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

Fixed #332. Need to change default-style to default-style-list when there is frag_idx

This commit is contained in:
Yujie Wen 2018-07-22 11:00:47 +08:00
parent f48077a11b
commit 7c0873ed19
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ox-reveal.el
View File

@ -1211,17 +1211,17 @@ transformed fragment attribute to ELEM's attr_html plist."
s))
frag-list)
frag-list))
(items (org-element-contents elem)))
(items (org-element-contents elem))
(default-style-list
(mapcar (lambda (a) default-style)
(number-sequence 1 (length items)))))
(if frag-index
(mapcar* 'org-reveal--update-attr-html
items frag-list default-style (car (read-from-string frag-index)))
items frag-list default-style-list (car (read-from-string frag-index)))
(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)))))
(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)))