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

Fixed #216: Fix the missed default fragment style.

This commit is contained in:
yujie 2016-07-25 16:30:41 +08:00
parent 6ee0e547dd
commit 7a1f9a8cc8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ox-reveal.el
View File

@ -802,7 +802,6 @@ CONTENTS is nil. INFO is a plist holding contextual information."
(defun org-reveal--format-image-data-uri (link path info) (defun org-reveal--format-image-data-uri (link path info)
"Generate the data URI for the image referenced by LINK." "Generate the data URI for the image referenced by LINK."
(let* ((ext (downcase (file-name-extension path)))) (let* ((ext (downcase (file-name-extension path))))
(message "link=%s" link)
(if (string= ext "svg") (if (string= ext "svg")
(org-reveal-embedded-svg path) (org-reveal-embedded-svg path)
(org-html-close-tag (org-html-close-tag
@ -964,7 +963,6 @@ contextual information."
(author (cdr (assq ?a spec))) (author (cdr (assq ?a spec)))
(email (cdr (assq ?e spec))) (email (cdr (assq ?e spec)))
(date (cdr (assq ?d spec)))) (date (cdr (assq ?d spec))))
(message "date=%s" date)
(concat (concat
(when (and (plist-get info :with-title) (when (and (plist-get info :with-title)
(org-string-nw-p title)) (org-string-nw-p title))
@ -1051,12 +1049,14 @@ Each `attr_reveal' attribute is mapped to corresponding
;; Return the updated tree. ;; Return the updated tree.
tree) tree)
(defun org-reveal--update-attr-html (elem frag &optional frag-index) (defun org-reveal--update-attr-html (elem frag default-style &optional frag-index)
"Update ELEM's attr_html atrribute with reveal's "Update ELEM's attr_html atrribute with reveal's
fragment attributes." fragment attributes."
(let ((attr-html (org-element-property :attr_html elem))) (let ((attr-html (org-element-property :attr_html elem)))
(when (and frag (not (string= frag "none"))) (when (and frag (not (string= frag "none")))
(push (cond ((string= frag t) ":class fragment") (push (cond ((string= frag t)
(if default-style (format ":class fragment %s" default-style)
":class fragment"))
(t (format ":class fragment %s" frag))) (t (format ":class fragment %s" frag)))
attr-html) attr-html)
(when frag-index (when frag-index
@ -1082,11 +1082,11 @@ transformed fragment attribute to ELEM's attr_html plist."
(items (org-element-contents elem))) (items (org-element-contents elem)))
(if frag-index (if frag-index
(mapcar* 'org-reveal--update-attr-html (mapcar* 'org-reveal--update-attr-html
items frag-list (car (read-from-string frag-index))) items frag-list default-style (car (read-from-string frag-index)))
;; Make frag-list tail circular ;; Make frag-list tail circular
(nconc frag-list (last frag-list)) (nconc frag-list (last frag-list))
(mapcar* 'org-reveal--update-attr-html items frag-list)))) (mapcar* 'org-reveal--update-attr-html items frag-list default-style))))
(t (org-reveal--update-attr-html elem frag frag-index)))) (t (org-reveal--update-attr-html elem frag default-style frag-index))))
elem)) elem))
(defvar client-multiplex nil (defvar client-multiplex nil