Skip to content

Commit

Permalink
Fix handling of EPUBSTYLE
Browse files Browse the repository at this point in the history
In org mode 9.0:

(org-split-string "") -> '()

In org mode 9.1+:

(org-split-string "") -> '("")

So we switch to split-string, which does what we want.

Fixes #15
  • Loading branch information
ofosos committed Oct 20, 2017
1 parent ed91dba commit 4b45852
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion ox-epub.el
Original file line number Diff line number Diff line change
Expand Up @@ -237,7 +237,7 @@ holding export options."
(org-element-property :level headline)
(org-export-get-reference headline info)))
(org-export-collect-headlines info 2)))
(let ((styles (org-split-string (or (plist-get org-epub-metadata :epub-style) " "))))
(let ((styles (split-string (or (plist-get org-epub-metadata :epub-style) " "))))
(mapc #'(lambda (style)
(let* ((stylenum (cl-incf org-epub-style-counter))
(stylename (concat "style-" (format "%d" stylenum)))
Expand Down

0 comments on commit 4b45852

Please sign in to comment.