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

[org] add newline after block

This commit is contained in:
contrapunctus 2021-11-28 10:48:56 +05:30
parent 019c53b08e
commit 0ceb8e43bc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
init.org
View File

@ -2894,12 +2894,12 @@ TYPE should be an Org block type, e.g. SRC, QUOTE, etc.
If TYPE is SRC, LANG should be the name of the language as a string, e.g. \"emacs-lisp\"."
(let* ((column (- (point) (point-at-bol)))
(indent (make-string column ?\ ))
(indent (make-string column ?\s))
(region-start (region-beginning))
(region-end (region-end))
(start-string (format "#+BEGIN_%s %s\n" type
(if (stringp lang) lang "")))
(end-string (format "%s#+END_%s" indent type)))
(end-string (format "%s#+END_%s\n" indent type)))
;; create a block around a region - preserve position of point
(cond ((region-active-p)
(save-excursion