ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ox-html.el: Bugfix wrt org-info.js 

* ox-html.el (org-html-headline): For headlines whose first
element is a headline and not a section, pretend there is an
empty section (as "") for the correct HTML div to be inserted.

This fixes a bug wrt org-info.js.  Thanks to Nicolas for
guiding me through this patch.
This commit is contained in:
Bastien Guerry 2013-03-01 16:16:53 +01:00
parent e48f13423a
commit 1f591bcc30
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ox-html.el
View File

@ -2108,7 +2108,8 @@ holding contextual information."
(preferred-id (car ids)) (preferred-id (car ids))
(extra-ids (cdr ids)) (extra-ids (cdr ids))
(extra-class (org-element-property :HTML_CONTAINER_CLASS headline)) (extra-class (org-element-property :HTML_CONTAINER_CLASS headline))
(level1 (+ level (1- org-html-toplevel-hlevel)))) (level1 (+ level (1- org-html-toplevel-hlevel)))
(first-content (car (org-element-contents headline))))
(format "<div id=\"%s\" class=\"%s\">%s%s</div>\n" (format "<div id=\"%s\" class=\"%s\">%s%s</div>\n"
(format "outline-container-%s" (format "outline-container-%s"
(or (org-element-property :CUSTOM_ID headline) (or (org-element-property :CUSTOM_ID headline)
@ -2127,7 +2128,10 @@ holding contextual information."
extra-ids "") extra-ids "")
full-text full-text
level1) level1)
contents)))))) (if (not (eq (org-element-type first-content) 'section))
(concat (org-html-section first-content "" info)
contents)
contents)))))))
;;;; Horizontal Rule ;;;; Horizontal Rule