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

Fixed #225, correct the export error with fragment list.

This commit is contained in:
yujie 2016-08-24 18:17:28 +08:00
parent 7059843b42
commit 2ec80e1abe
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ox-reveal.el
View File

@ -1088,11 +1088,17 @@ transformed fragment attribute to ELEM's attr_html plist."
(if frag-index
(mapcar* 'org-reveal--update-attr-html
items frag-list default-style (car (read-from-string frag-index)))
;; Make frag-list tail circular
(nconc frag-list (last frag-list))
(mapcar* 'org-reveal--update-attr-html items frag-list default-style))))
(t (org-reveal--update-attr-html elem frag default-style frag-index))))
elem))
(let* ((last-frag (car (last frag-list)))
(tail-list (mapcar (lambda (a) last-frag)
(number-sequence (+ (length frag-list) 1)
(length items))))
(default-style-list
(mapcar (lambda (a) default-style)
(number-sequence 1 (length items)))))
(nconc frag-list tail-list)
(mapcar* 'org-reveal--update-attr-html items frag-list default-style-list)))))
(t (org-reveal--update-attr-html elem frag default-style frag-index)))
elem)))
(defvar client-multiplex nil
"used to cause generation of client html file for multiplex")