contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[cp-org] indent cursor at the end of cp-org-insert-src

This commit is contained in:
contrapunctus 2021-02-15 06:16:08 +05:30
parent 3b10f4c876
commit 5119a791f4
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrapunctus/cp-org.el
View File

@ -119,12 +119,14 @@
(org-link-set-parameters "gemini" :export #'org-link-gemini-export-link))
(defun cp-org-insert-src (&optional lang)
(let ((col (- (point) (point-at-bol))))
(let* ((col (- (point) (point-at-bol)))
(indent (make-string col ?\ )))
(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))))
(insert (format "\n%s#+END_SRC" indent))
(goto-char pos)
(insert indent))))
(defhydra cp-org-src (:color blue)
"Org source block"