mirror of https://github.com/yjwen/org-reveal.git
Move extra scripts before initialize
This commit is contained in:
parent
ec6092d2d5
commit
9642179c18
23
ox-reveal.el
23
ox-reveal.el
|
@ -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)))
|
||||||
|
|
Loading…
Reference in New Issue