diff --git a/ox-reveal.el b/ox-reveal.el index b83bfc1..5dfbc36 100644 --- a/ox-reveal.el +++ b/ox-reveal.el @@ -73,6 +73,7 @@ (keyword . org-reveal-keyword) (paragraph . org-reveal-paragraph) (section . org-reveal-section) + (src-block . org-reveal-src-block) (template . org-reveal-template)) :export-block '("REVEAL" "NOTES") @@ -545,11 +546,6 @@ holding export options." (unordered "") (descriptive ""))))) -(defun org-reveal--get-frag (info) - "Get Reveal fragment settings from context." - (let ((frag (plist-get info :reveal-frag))) - (if (eq frag "none") nil frag))) - (defun org-reveal-item (item contents info) "Transcode an ITEM element from Org to Reveal. CONTENTS holds the contents of the item. INFO is aplist holding @@ -631,12 +627,40 @@ the plist used as a communication channel." (defun org-reveal-section (section contents info) - "Transcode a SECTION element from Org to HTML. + "Transcode a SECTION element from Org to Reveal. CONTENTS holds the contents of the section. INFO is a plist holding contextual information." ;; Just return the contents. No "
\n%s" + (if frag (format "fragment %s" frag) "example") + label code) + (format + "
%s" + (if frag + (format "fragment %s" frag) + (format "src src-%s" lang)) + label code)))))) + (defun org-reveal-template (contents info) "Return complete document string after HTML conversion. contents is the transcoded contents string.