diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-02-22 14:51:58 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-02-22 14:51:58 +0100 |
commit | b10e2bde13c775a05042033de576f38c0461e107 (patch) | |
tree | 2aaf4f1c121773c66f93c323f012d5a6770d904b | |
parent | 8058e6601e63872663d192f7b00c18b3a18c7d10 (diff) | |
download | org-mode-b10e2bde13c775a05042033de576f38c0461e107.tar.gz |
export back-ends: Fix leftover downcase :custom-id properties
* lisp/ox-html.el (org-html-format-headline--wrap, org-html-headline):
Use :CUSTOM_ID, not :custom-id.
* contrib/lisp/ox-deck.el (org-deck-toc): Use :CUSTOM_ID,
not :custom-id.
-rw-r--r-- | contrib/lisp/ox-deck.el | 2 | ||||
-rw-r--r-- | lisp/ox-html.el | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/contrib/lisp/ox-deck.el b/contrib/lisp/ox-deck.el index c07d250..7ae6bb9 100644 --- a/contrib/lisp/ox-deck.el +++ b/contrib/lisp/ox-deck.el @@ -273,7 +273,7 @@ Note that the wrapper div must include the class \"slide\"." (if (and class (string-match-p "\\<slide\\>" class)) (format "<a href='#outline-container-%s'>%s</a>" - (or (org-element-property :custom-id headline) + (or (org-element-property :CUSTOM_ID headline) (mapconcat 'number-to-string (org-export-get-headline-number headline info) "-")) diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 2886bb7..01d3c05 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -1771,7 +1771,7 @@ holding contextual information." (text (org-export-data (org-element-property :title headline) info)) (tags (and (plist-get info :with-tags) (org-export-get-tags headline info))) - (headline-label (or (org-element-property :custom-id headline) + (headline-label (or (org-element-property :CUSTOM_ID headline) (concat "sec-" (mapconcat 'number-to-string headline-number "-")))) (format-function (cond @@ -1843,7 +1843,7 @@ holding contextual information." (level1 (+ level (1- org-html-toplevel-hlevel)))) (format "<div id=\"%s\" class=\"%s\">%s%s</div>\n" (format "outline-container-%s" - (or (org-element-property :custom-id headline) + (or (org-element-property :CUSTOM_ID headline) section-number)) (concat (format "outline-%d" level1) (and extra-class " ") extra-class) |