emacs
/
org-reveal
mirror of https://github.com/yjwen/org-reveal.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Enable stable numbering scheme for slides

This commit is contained in:
Phillip Lord 2017-06-06 15:43:54 +01:00 committed by Nicholas J Meyer
parent 6d913caed8
commit b814daa8f7
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ox-reveal.el
View File

@ -371,6 +371,9 @@ BEFORE the plugins that depend on them."
:group 'org-export-reveal
:type 'string)
(defvar org-reveal--slide-counter 0
"Count of the slides exported so far for use as a slide ID.")
(defvar org-reveal--last-slide-section-tag ""
"Variable to cache the section tag from the last slide. ")
@ -421,8 +424,7 @@ holding contextual information."
;; Standard headline. Export it as a slide
(let* ((level (org-export-get-relative-level headline info))
(preferred-id (or (org-element-property :CUSTOM_ID headline)
(org-export-get-reference headline info)
(org-element-property :ID headline)))
(incf org-reveal--slide-counter)))
(hlevel (org-reveal--get-hlevel info))
(header (plist-get info :reveal-slide-header))
(header-div (when header (format "<div class=\"slide-header\">%s</div>\n" header)))
@ -1186,7 +1188,7 @@ transformed fragment attribute to ELEM's attr_html plist."
(let* ((extension (concat "." org-html-extension))
(file (org-export-output-file-name extension subtreep))
(clientfile (org-export-output-file-name (concat "_client" extension) subtreep)))
(setq org-reveal--slide-counter 0)
; export filename_client HTML file if multiplexing
(setq client-multiplex nil)
(setq retfile (org-export-to-file 'reveal file