From e74523905b4eaeb09358384a70921a09a9b83c61 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 30 Sep 2012 20:02:28 +0200 Subject: [PATCH] org-element: Distinguish parsed affiliated keywords from document properties * lisp/org-element.el (org-element-parsed-keywords): Remove document properties from the value. (org-element-dual-keywords): Fix docstring. (org-element-document-properties): New variable * contrib/lisp/org-export.el (org-export--get-subtree-options, org-export--get-inbuffer-options, org-export--get-global-options): Use new variable instead of parsed keywords. --- contrib/lisp/org-export.el | 21 ++++++++++++--------- lisp/org-element.el | 13 +++++++++---- 2 files changed, 21 insertions(+), 13 deletions(-) diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index e4c004bde..e0d1f4263 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -1371,7 +1371,8 @@ for export. Return options as a plist." (when (setq prop (org-entry-get (point) "EXPORT_OPTIONS")) (setq plist (nconc plist (org-export--parse-option-keyword prop backend)))) - ;; Handle other keywords. + ;; Handle other keywords. TITLE keyword is excluded as it has + ;; already been handled already. (let ((seen '("TITLE"))) (mapc (lambda (option) @@ -1388,7 +1389,7 @@ for export. Return options as a plist." plist (car option) ;; Parse VALUE if required. - (if (member property org-element-parsed-keywords) + (if (member property org-element-document-properties) (org-element-parse-secondary-string value (org-element-restriction 'keyword)) value)))))))) @@ -1457,8 +1458,8 @@ Assume buffer is in Org mode. Narrowing, if any, is ignored." ;; Build regexp matching all keywords associated to export ;; options. Note: the search is case insensitive. (opt-re (format "^[ \t]*#\\+%s:" - (regexp-opt - (delq nil (mapcar (lambda (e) (nth 1 e)) all)))))) + (regexp-opt + (delq nil (mapcar (lambda (e) (nth 1 e)) all)))))) (goto-char (point-min)) (while (re-search-forward opt-re nil t) (let ((element (org-element-at-point))) @@ -1483,7 +1484,8 @@ Assume buffer is in Org mode. Narrowing, if any, is ignored." ('t val) (otherwise (if (not (plist-member plist prop)) val (plist-get plist prop)))))))))) - ;; Parse keywords specified in `org-element-parsed-keywords'. + ;; Parse keywords specified in + ;; `org-element-document-properties'. (mapc (lambda (key) (let* ((prop (cdr (assoc key alist))) @@ -1494,7 +1496,7 @@ Assume buffer is in Org mode. Narrowing, if any, is ignored." plist prop (org-element-parse-secondary-string value (org-element-restriction 'keyword))))))) - org-element-parsed-keywords)) + org-element-document-properties)) ;; 3. Return final value. plist))) @@ -1561,12 +1563,13 @@ process." plist (car cell) ;; Eval default value provided. If keyword is a member - ;; of `org-element-parsed-keywords', parse it as + ;; of `org-element-document-properties', parse it as ;; a secondary string before storing it. (let ((value (eval (nth 3 cell)))) (if (not (stringp value)) value (let ((keyword (nth 1 cell))) - (if (not (member keyword org-element-parsed-keywords)) value + (if (not (member keyword org-element-document-properties)) + value (org-element-parse-secondary-string value (org-element-restriction 'keyword))))))))) all) @@ -1606,7 +1609,7 @@ retrieved." ;;;; Tree Properties ;; -;; Tree properties are infromation extracted from parse tree. They +;; Tree properties are information extracted from parse tree. They ;; are initialized at the beginning of the transcoding process by ;; `org-export-collect-tree-properties'. ;; diff --git a/lisp/org-element.el b/lisp/org-element.el index 53499c06f..94d2600f8 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -262,8 +262,8 @@ This list is checked after translations have been applied. See By default, all keywords setting attributes (i.e. \"ATTR_LATEX\") allow multiple occurrences and need not to be in this list.") -(defconst org-element-parsed-keywords '("AUTHOR" "CAPTION" "DATE" "TITLE") - "List of keywords whose value can be parsed. +(defconst org-element-parsed-keywords '("CAPTION") + "List of affiliated keywords whose value can be parsed. Their value will be stored as a secondary string: a list of strings and objects. @@ -272,10 +272,10 @@ This list is checked after translations have been applied. See `org-element-keyword-translation-alist'.") (defconst org-element-dual-keywords '("CAPTION" "RESULTS") - "List of keywords which can have a secondary value. + "List of affiliated keywords which can have a secondary value. In Org syntax, they can be written with optional square brackets -before the colons. For example, results keyword can be +before the colons. For example, RESULTS keyword can be associated to a hash value with the following: #+RESULTS[hash-string]: some-source @@ -283,6 +283,11 @@ associated to a hash value with the following: This list is checked after translations have been applied. See `org-element-keyword-translation-alist'.") +(defconst org-element-document-properties '("AUTHOR" "DATE" "TITLE") + "List of properties associated to the whole document. +Any keyword in this list will have its value parsed and stored as +a secondary string.") + (defconst org-element-object-restrictions '((bold export-snippet inline-babel-call inline-src-block latex-or-entity link radio-target sub/superscript target text-markup timestamp) -- 2.11.4.GIT