[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH] ox-s5: Update to work with refactored html backedn
From: |
Łukasz Stelmach |
Subject: |
[O] [PATCH] ox-s5: Update to work with refactored html backedn |
Date: |
Thu, 4 May 2017 20:01:44 +0200 |
* contrib/lisp/ox-s5.el (org-s5-template): Adapt to changes introduced
by c9ca0b6d in the way :html-divs/org-html-divs are passed to ox-html.
---
contrib/lisp/ox-s5.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/contrib/lisp/ox-s5.el b/contrib/lisp/ox-s5.el
index 503bfd0..7a717fe 100644
--- a/contrib/lisp/ox-s5.el
+++ b/contrib/lisp/ox-s5.el
@@ -304,13 +304,13 @@ 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 (plist-get info :html-container) "li")
+ (append '((content "ol" "content")) org-s5--divs)
+ org-s5--divs))))
(mapconcat
'identity
(list
--
2.1.4