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

To test my contribution.

This commit is contained in:
Yujie Wen 2015-02-16 16:19:00 +08:00
parent 53c4aba696
commit c69f7551aa
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ox-reveal.el
View File

@ -42,19 +42,6 @@ default fragment style, otherwise return \"fragment style\"."
(t (format "fragment %s" frag))))
(defun org-reveal-append-frag (elem)
"Read org-reveal's fragment attribute from ELEM and append
transformed fragment attribute to ELEM's attr_html plist."
(let ((frag-attr (org-export-read-attribute :attr_reveal elem :frag)))
(if frag-attr
(let ((attr-html (org-element-property :attr_html elem)))
(push (cond
((string= frag-attr t) ":class fragment")
(t (format ":class fragment %s" frag-attr)))
attr-html)
(org-element-put-property elem :attr_html attr-html)))
elem))
(org-export-define-derived-backend 'reveal 'html
:menu-entry
@ -860,6 +847,18 @@ Each `attr_reveal' attribute is mapped to corresponding
;; Return the updated tree.
tree)
(defun org-reveal-append-frag (elem)
"Read org-reveal's fragment attribute from ELEM and append
transformed fragment attribute to ELEM's attr_html plist."
(let ((frag-attr (org-export-read-attribute :attr_reveal elem :frag)))
(if frag-attr
(let ((attr-html (org-element-property :attr_html elem)))
(push (cond
((string= frag-attr t) ":class fragment")
(t (format ":class fragment %s" frag-attr)))
attr-html)
(org-element-put-property elem :attr_html attr-html)))
elem))
(defvar client-multiplex nil
"used to cause generation of client html file for multiplex")