summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2013-02-22 14:51:58 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2013-02-22 14:51:58 +0100
commitb10e2bde13c775a05042033de576f38c0461e107 (patch)
tree2aaf4f1c121773c66f93c323f012d5a6770d904b
parent8058e6601e63872663d192f7b00c18b3a18c7d10 (diff)
downloadorg-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.el2
-rw-r--r--lisp/ox-html.el4
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)