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

Merge branch 'master' of https://github.com/yjwen/org-reveal

This commit is contained in:
yujie 2016-06-22 14:51:22 +08:00
parent 44bb75db1f 8ca4e8745b
commit 6d36c4d6e2
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ox-reveal.el
View File

@ -684,9 +684,9 @@ dependencies: [
(append (list extra-codes) builtin-codes))))
(mapconcat 'identity total-codes ",\n"))
"]\n"
))
(let ((init-script (plist-get info :reveal-init-script)))
(if init-script (concat "," init-script)))
))
(if init-script (concat (if in-single-file "" ",") init-script)))
"});\n</script>\n")))
(defun org-reveal-toc (depth info)
@ -923,6 +923,8 @@ contextual information."
#'buffer-substring))
(org-html-format-code src-block info))))
(frag (org-export-read-attribute :attr_reveal src-block :frag))
(code-attribs (or (org-export-read-attribute
:attr_reveal src-block :code_attribs) ""))
(label (let ((lbl (org-element-property :name src-block)))
(if (not lbl) ""
(format " id=\"%s\"" lbl)))))
@ -937,9 +939,9 @@ contextual information."
(format "<label class=\"org-src-name\">%s</label>"
(org-export-data caption info)))
(if use-highlight
(format "\n<pre%s%s><code class=\"%s\">%s</code></pre>"
(format "\n<pre%s%s><code class=\"%s\" %s>%s</code></pre>"
(or (frag-class frag info) "")
label lang code)
label lang code-attribs code)
(format "\n<pre %s%s>%s</pre>"
(or (frag-class frag info)
(format " class=\"src src-%s\"" lang))