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

Fix duplicate lambda

This commit is contained in:
Frédéric Giquel 2021-10-14 21:44:34 +02:00
parent d99311fc5b
commit 3b40266307
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ox-reveal.el
View File

@ -860,18 +860,17 @@ Reveal.initialize({
(let ((root-path (file-name-as-directory (plist-get info :reveal-root)))) (let ((root-path (file-name-as-directory (plist-get info :reveal-root))))
(mapconcat (mapconcat
(lambda (p) (lambda (p)
(lambda (p) ;; when it is a list, create a script tag for every entry
;; when it is a list, create a script tag for every entry (cond
(cond ((listp p)
((listp p) (mapconcat (lambda (pi)
(mapconcat (lambda (pi) (format "<script src=\"%s\"></script>"
(format "<script src=\"%s\"></script>" (format pi root-path)))
(format pi root-path))) p
p "\n"))
"\n")) ;; when it is a single string, create a single script tag
;; when it is a single string, create a single script tag (t (format "<script src=\"%s\"></script>\n"
(t (format "<script src=\"%s\"></script>\n" (format p root-path)))))
(format p root-path))))))
plugin-js plugin-js
"")) ""))
;; Second value of the tuple, a list of Reveal plugin ;; Second value of the tuple, a list of Reveal plugin