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

Add binding for Org export block

This commit is contained in:
contrapunctus 2022-02-21 21:54:02 +05:30
parent 1a94e00712
commit daf0a270af
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
init.org
View File

@ -813,7 +813,8 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("t" (my-org-insert-block "SRC" nil ":tangle test :load test") "Source test")
("e" (my-org-insert-block "SRC" nil ":tangle no :load no") "Source example")
("o" (my-org-insert-block "QUOTE") "quote")
("v" (my-org-insert-block "VERSE") "verse"))
("v" (my-org-insert-block "VERSE") "verse")
("x" (my-org-insert-block "EXPORT" nil nil t) "Export"))
#+END_SRC
**** org navigation
@ -3722,23 +3723,32 @@ 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\".
If TYPE is EXPORT, LANG should be the name of the export format as a string, e.g. \"html\".
If LANG is not supplied, use the value of
`my-org-src-default-lang'. If `my-org-src-default-lang' is nil,
or with ASK, prompt the user for a language."
(let* ((src-block-p (equal type "SRC"))
(let* ((src-block-p (equal type "SRC"))
(export-block-p (equal type "EXPORT"))
(ask-lang-p (or (not lang) ask))
(lang (cond ((stringp lang) lang)
((and (bound-and-true-p my-org-src-default-lang)
(stringp my-org-src-default-lang)
(not ask))
my-org-src-default-lang)
((and src-block-p (or (not lang) ask))
((and src-block-p ask-lang-p)
(completing-read "Source block language: "
(mapcar #'cl-first org-src-lang-modes)))
((and export-block-p ask-lang-p)
(completing-read "Export block format: "
(mapcar #'symbol-name org-export-backends)))
(t nil)))
(column (- (point) (point-at-bol)))
(indent (make-string column ?\s))
(start-string (format "#+BEGIN_%s %s%s\n" type
(if src-block-p lang "")
(if (or src-block-p export-block-p)
lang
"")
(if (and src-block-p header-args)
(format " %s" header-args)
"")))