diff options
author | Ćukasz Stelmach <stlman@poczta.fm> | 2017-05-04 20:01:44 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-05-06 09:02:01 +0200 |
commit | a4f29410e98d185f0c5bfe3b887b654ac5d388c2 (patch) | |
tree | 9a435fc0364a28f5aee911a16657354507a4f631 | |
parent | 250b64b3cb9a538b853312b787f98015747b2a01 (diff) | |
download | org-mode-a4f29410e98d185f0c5bfe3b887b654ac5d388c2.tar.gz |
ox-s5: Update to work with refactored HTML backend
* 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.
-rw-r--r-- | contrib/lisp/ox-s5.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/contrib/lisp/ox-s5.el b/contrib/lisp/ox-s5.el index 503bfd0..8f95010 100644 --- a/contrib/lisp/ox-s5.el +++ b/contrib/lisp/ox-s5.el @@ -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 |