|
@@ -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)
|