emacs-orgmode
[Top][All Lists]
Advanced

[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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]