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

Add HTML block support.

This commit is contained in:
yujie 2013-09-11 20:56:42 +08:00
parent 525a554495
commit 5c5eb3ea5d
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ox-reveal.el
View File

@ -218,12 +218,15 @@ can be include."
(defun org-reveal-export-block (export-block contents info)
"Transocde a EXPORT-BLOCK element from Org to Reveal.
CONTENTS is nil. NFO is a plist holding contextual information."
(when (string= (org-element-property :type export-block) "NOTES")
(let ((block-string (org-element-property :value export-block)))
(concat
"<aside class=\"notes\">\n"
(org-export-string-as block-string 'html 'body-only)
"</aside>"))))
(let ((block-type (org-element-property :type export-block))
(block-string (org-element-property :value export-block)))
(cond ((string= block-type "NOTES")
(concat
"<aside class=\"notes\">\n"
(org-export-string-as block-string 'html 'body-only)
"</aside>"))
((string= block-type "HTML")
(org-remove-indentation block-string)))))
(defun org-reveal-headline (headline contents info)
"Transcode a HEADLINE element from Org to Reveal.