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

Fix #356: support width and height in percentage.

This commit is contained in:
whatacold 2018-11-13 12:58:12 +08:00
parent 1cdd088ec5
commit 653e135b1a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ox-reveal.el
View File

@ -671,11 +671,15 @@ overview: %s,
;; slide width
(let ((width (plist-get info :reveal-width)))
(if (> width 0) (format "width: %d,\n" width) ""))
(cond ((and (integerp width) (> width 0)) (format "width: %d,\n" width))
((stringp width) (format "width: '%s',\n" width))
(t "")))
;; slide height
(let ((height (plist-get info :reveal-height)))
(if (> height 0) (format "height: %d,\n" height) ""))
(cond ((and (integerp height) (> height 0)) (format "height: %d,\n" height))
((stringp height) (format "height: '%s',\n" height))
(t "")))
;; slide margin
(let ((margin (string-to-number (plist-get info :reveal-margin))))