mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 20:07:46 +00:00
ox-org: Use lower case keywords
* lisp/ox-org.el (org-org-identity, org-org-template): As it has previously been clarified on the mailing list that upper-case keywords are only intended for the manual[1], an Org export of an Org file should use lower-case keywords. [1]: https://list.orgmode.org/87tuuw3n15.fsf@nicolasgoaziou.fr/
This commit is contained in:
parent
9e2341bc65
commit
8130147958
|
@ -141,7 +141,7 @@ CONTENTS and INFO are ignored."
|
|||
CONTENTS is its contents, as a string or nil. INFO is ignored."
|
||||
(let ((case-fold-search t))
|
||||
(replace-regexp-in-string
|
||||
"^[ \t]*#\\+ATTR_[-_A-Za-z0-9]+:\\(?: .*\\)?\n" ""
|
||||
"^[ \t]*#\\+attr_[-_a-za-z0-9]+:\\(?: .*\\)?\n" ""
|
||||
(org-export-expand blob contents t))))
|
||||
|
||||
(defun org-org-headline (headline contents info)
|
||||
|
@ -185,26 +185,26 @@ as a communication channel."
|
|||
(org-element-map (plist-get info :parse-tree) 'keyword
|
||||
(lambda (k)
|
||||
(and (string-equal (org-element-property :key k) "OPTIONS")
|
||||
(concat "#+OPTIONS: "
|
||||
(concat "#+options: "
|
||||
(org-element-property :value k)))))
|
||||
"\n"))
|
||||
(and (plist-get info :with-title)
|
||||
(format "#+TITLE: %s\n" (org-export-data (plist-get info :title) info)))
|
||||
(format "#+title: %s\n" (org-export-data (plist-get info :title) info)))
|
||||
(and (plist-get info :with-date)
|
||||
(let ((date (org-export-data (org-export-get-date info) info)))
|
||||
(and (org-string-nw-p date)
|
||||
(format "#+DATE: %s\n" date))))
|
||||
(format "#+date: %s\n" date))))
|
||||
(and (plist-get info :with-author)
|
||||
(let ((author (org-export-data (plist-get info :author) info)))
|
||||
(and (org-string-nw-p author)
|
||||
(format "#+AUTHOR: %s\n" author))))
|
||||
(format "#+author: %s\n" author))))
|
||||
(and (plist-get info :with-email)
|
||||
(let ((email (org-export-data (plist-get info :email) info)))
|
||||
(and (org-string-nw-p email)
|
||||
(format "#+EMAIL: %s\n" email))))
|
||||
(format "#+email: %s\n" email))))
|
||||
(and (plist-get info :with-creator)
|
||||
(org-string-nw-p (plist-get info :creator))
|
||||
(format "#+CREATOR: %s\n" (plist-get info :creator)))
|
||||
(format "#+creator: %s\n" (plist-get info :creator)))
|
||||
contents))
|
||||
|
||||
(defun org-org-timestamp (timestamp _contents _info)
|
||||
|
|
Loading…
Reference in a new issue