|
@@ -304,13 +304,15 @@ holding export options."
|
|
|
"Return complete document string after HTML conversion.
|
|
|
CONTENTS is the transcoded contents string. INFO is a plist
|
|
|
holding export options."
|
|
|
- (let ((org-html-divs
|
|
|
- (if (equal (plist-get info :html-container) "li")
|
|
|
- (append '((content "ol" "content")) org-s5--divs)
|
|
|
- org-s5--divs))
|
|
|
- (info (plist-put
|
|
|
+ (let ((info (plist-put
|
|
|
+ (plist-put
|
|
|
(plist-put info :html-preamble (plist-get info :s5-preamble))
|
|
|
- :html-postamble (plist-get info :s5-postamble))))
|
|
|
+ :html-postamble
|
|
|
+ (plist-get info :s5-postamble))
|
|
|
+ :html-divs
|
|
|
+ (if (equal "li" (plist-get info :html-container))
|
|
|
+ (cons '(content "ol" "content") org-s5--divs)
|
|
|
+ org-s5--divs))))
|
|
|
(mapconcat
|
|
|
'identity
|
|
|
(list
|