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

Move extra scripts before initialize

This commit is contained in:
Lukas Barth 2022-02-01 12:02:01 +01:00
parent ec6092d2d5
commit 9642179c18
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ox-reveal.el
View File

@ -769,6 +769,17 @@ custom variable `org-reveal-root'."
;; plugin headings ;; plugin headings
(if-format "%s\n" (car reveal-4-plugin)) (if-format "%s\n" (car reveal-4-plugin))
;; Extra <script src="..."></script> tags
(let ((src-list (let ((l (plist-get info :reveal-extra-script-src)))
;; map to a single string to a list.
(if (stringp l)
(list l)
l))))
(and src-list
(mapconcat (lambda (src) (format "<script src=\"%s\"></script>" src))
src-list
"\n")))
;; Reveal.initialize ;; Reveal.initialize
(let ((reveal-4-plugin-statement (cdr reveal-4-plugin)) (let ((reveal-4-plugin-statement (cdr reveal-4-plugin))
(init-options (plist-get info :reveal-init-options)) (init-options (plist-get info :reveal-init-options))
@ -818,17 +829,7 @@ Reveal.initialize({
legacy-dependency-statement)) legacy-dependency-statement))
",\n") ",\n")
;; Extra initialization scripts ;; Extra initialization scripts
(or (plist-get info :reveal-extra-script) ""))) (or (plist-get info :reveal-extra-script) ""))))))
;; Extra <script src="..."></script> tags
(let ((src-list (let ((l (plist-get info :reveal-extra-script-src)))
;; map to a single string to a list.
(if (stringp l)
(list l)
l))))
(and src-list
(mapconcat (lambda (src) (format "<script src=\"%s\"></script>" src))
src-list
"\n"))))))
(defun org-reveal--read-sexps-from-string (s) (defun org-reveal--read-sexps-from-string (s)
(let ((s (string-trim s))) (let ((s (string-trim s)))