From bc7ceca83eaba5f2525403de0f8e01411639b7e0 Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Mon, 15 Feb 2021 06:12:33 +0530 Subject: [PATCH] [cp-org] indent closing element of cp-org-insert-src --- contrapunctus/cp-org.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/contrapunctus/cp-org.el b/contrapunctus/cp-org.el index 62d5ada..818474d 100644 --- a/contrapunctus/cp-org.el +++ b/contrapunctus/cp-org.el @@ -119,11 +119,12 @@ (org-link-set-parameters "gemini" :export #'org-link-gemini-export-link)) (defun cp-org-insert-src (&optional lang) - (insert (format "#+BEGIN_SRC %s\n" - (if (stringp lang) lang ""))) - (let ((pos (point))) - (insert "\n#+END_SRC") - (goto-char pos))) + (let ((col (- (point) (point-at-bol)))) + (insert (format "#+BEGIN_SRC %s\n" + (if (stringp lang) lang ""))) + (let ((pos (point))) + (insert (format "\n%s#+END_SRC" (make-string col ?\ ))) + (goto-char pos)))) (defhydra cp-org-src (:color blue) "Org source block"