diff --git a/ox-reveal.el b/ox-reveal.el index 30fa922..2aabe95 100644 --- a/ox-reveal.el +++ b/ox-reveal.el @@ -69,6 +69,11 @@ (:reveal-title-slide-background-position "REVEAL_TITLE_SLIDE_BACKGROUND_POSITION" nil nil t) (:reveal-title-slide-background-repeat "REVEAL_TITLE_SLIDE_BACKGROUND_REPEAT" nil nil t) (:reveal-title-slide-background-transition "REVEAL_TITLE_SLIDE_BACKGROUND_TRANSITION" nil nil t) + (:reveal-default-slide-background "REVEAL_DEFAULT_SLIDE_BACKGROUND" nil nil t) + (:reveal-default-slide-background-size "REVEAL_DEFAULT_SLIDE_BACKGROUND_SIZE" nil nil t) + (:reveal-default-slide-background-position "REVEAL_DEFAULT_SLIDE_BACKGROUND_POSITION" nil nil t) + (:reveal-default-slide-background-repeat "REVEAL_DEFAULT_SLIDE_BACKGROUND_REPEAT" nil nil t) + (:reveal-default-slide-background-transition "REVEAL_DEFAULT_SLIDE_BACKGROUND_TRANSITION" nil nil t) (:reveal-mathjax-url "REVEAL_MATHJAX_URL" nil org-reveal-mathjax-url t) (:reveal-preamble "REVEAL_PREAMBLE" nil org-reveal-preamble t) (:reveal-head-preamble "REVEAL_HEAD_PREAMBLE" nil org-reveal-head-preamble newline) @@ -343,6 +348,9 @@ content." :group 'org-export-reveal :type 'string) +(defvar org-reveal--last-slide-section-tag "" + "Variable to cache the section tag from the last slide. ") + (defun if-format (fmt val) (if val (format fmt val) "")) @@ -398,61 +406,78 @@ holding contextual information." (footer (plist-get info :reveal-slide-footer)) (footer-div (when footer (format "
\n" footer))) (first-sibling (org-export-first-sibling-p headline info)) - (last-sibling (org-export-last-sibling-p headline info))) - (concat - (if (or (/= level 1) (not first-sibling)) - ;; Not the first heading. Close previou slide. - (concat - ;; Slide footer if any - footer-div - ;; Close previous slide - "\n" - (if (<= level hlevel) - ;; Close previous vertical slide group. - "\n"))) - (if (<= level hlevel) - ;; Add an extra "