From a4f29410e98d185f0c5bfe3b887b654ac5d388c2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C5=81ukasz=20Stelmach?= Date: Thu, 4 May 2017 20:01:44 +0200 Subject: [PATCH] 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. --- contrib/lisp/ox-s5.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/contrib/lisp/ox-s5.el b/contrib/lisp/ox-s5.el index 503bfd0ad..8f9501058 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