[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 17:39:04 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) |
* contrib/lisp/ox-s5.el: adapt to changes introduced by c9ca0b6d in the
way :html-divs/org-html-divs are passed to ox-html
---
It appears that for some reason the patch didn't make it to the list the
first time I sent it.
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
- [O] [PATCH] ox-s5: update to work with refactored html backedn,
Łukasz Stelmach <=