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

Initial Support for klipse plugin 

It is now possible to edit supported languages in a live environment,
and to display code output.
This commit is contained in:
Matt Price 2016-12-11 06:57:40 -05:00
parent a92c5ef57f
commit 7b1d8520bf
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ox-reveal.el
View File

@ -994,14 +994,19 @@ contextual information."
:attr_reveal src-block :code_attribs) ""))
(label (let ((lbl (org-element-property :name src-block)))
(if (not lbl) ""
(format " id=\"%s\"" lbl)))))
(format " id=\"%s\"" lbl))))
(klipsify (and (assoc 'klipse org-reveal-external-plugins)
(member lang '("javascript" "ruby" "scheme" "clojure" "php"))))
;;(klipse-hidden (if (assoc 'klipse org-reveal-external-plugins) " style=\"display:hidden;\"") nil)
)
(if (not lang)
(format "<pre %s%s>\n%s</pre>"
(or (frag-class frag info) " class=\"example\"")
label
code)
(format
"<div class=\"org-src-container\">\n%s%s\n</div>"
"<div %sclass=\"org-src-container\">\n%s%s\n</div>%s"
(if klipsify "style=\"display:none;\" " "")
(if (not caption) ""
(format "<label class=\"org-src-name\">%s</label>"
(org-export-data caption info)))
@ -1012,7 +1017,10 @@ contextual information."
(format "\n<pre %s%s>%s</pre>"
(or (frag-class frag info)
(format " class=\"src src-%s\"" lang))
label code)))))))
label code)
)
(if klipsify (format "<klipse-snippet data-language=\"%s\">%s</klipse-snippet>"
lang code) ""))))))
(defun org-reveal-quote-block (quote-block contents info)
"Transcode a QUOTE-BLOCK element from Org to Reveal.