forked from mirrors/org-mode
ox: Insert templates with lower case keywords
* lisp/ox.el (org-export-insert-default-template): Insert lower case keywords.
This commit is contained in:
parent
8a2f4a21a9
commit
92c3b76dd8
|
@ -3216,7 +3216,7 @@ locally for the subtree through node properties."
|
||||||
(org-entry-put
|
(org-entry-put
|
||||||
node "EXPORT_OPTIONS" (mapconcat 'identity items " "))
|
node "EXPORT_OPTIONS" (mapconcat 'identity items " "))
|
||||||
(while items
|
(while items
|
||||||
(insert "#+OPTIONS:")
|
(insert "#+options:")
|
||||||
(let ((width 10))
|
(let ((width 10))
|
||||||
(while (and items
|
(while (and items
|
||||||
(< (+ width (length (car items)) 1) fill-column))
|
(< (+ width (length (car items)) 1) fill-column))
|
||||||
|
@ -3242,7 +3242,7 @@ locally for the subtree through node properties."
|
||||||
(if subtreep (org-entry-put node (concat "EXPORT_" (car key)) val)
|
(if subtreep (org-entry-put node (concat "EXPORT_" (car key)) val)
|
||||||
(insert
|
(insert
|
||||||
(format "#+%s:%s\n"
|
(format "#+%s:%s\n"
|
||||||
(car key)
|
(downcase (car key))
|
||||||
(if (org-string-nw-p val) (format " %s" val) ""))))))))
|
(if (org-string-nw-p val) (format " %s" val) ""))))))))
|
||||||
|
|
||||||
(defun org-export-expand-include-keyword (&optional included dir footnotes)
|
(defun org-export-expand-include-keyword (&optional included dir footnotes)
|
||||||
|
|
Loading…
Reference in New Issue