From 1f591bcc3049d6c522d0c7a59d86770c897cb8b0 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 1 Mar 2013 16:16:53 +0100 Subject: [PATCH] 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. --- lisp/ox-html.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 3844fa09f..85efc3d99 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -2108,7 +2108,8 @@ holding contextual information." (preferred-id (car ids)) (extra-ids (cdr ids)) (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 "
%s%s
\n" (format "outline-container-%s" (or (org-element-property :CUSTOM_ID headline) @@ -2127,7 +2128,10 @@ holding contextual information." extra-ids "") full-text level1) - contents)))))) + (if (not (eq (org-element-type first-content) 'section)) + (concat (org-html-section first-content "" info) + contents) + contents))))))) ;;;; Horizontal Rule -- 2.11.4.GIT