diff options
author | Rick Frankel <rick@rickster.com> | 2013-03-03 20:50:58 -0500 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-03-04 07:39:16 +0100 |
commit | 8ed99fad6bb04857a0c1a54345d7c427a065ea39 (patch) | |
tree | def1ea71dc898486c4bd803150e2ad76a0d727f7 | |
parent | 6ca7953db56908dac33e337ea09f6f7c940d1c11 (diff) | |
download | org-mode-8ed99fad6bb04857a0c1a54345d7c427a065ea39.tar.gz |
Don't generate links for empty theme or transition.
* ox-deck.el (org-deck--get-packages): Check for non-blank deck-theme
and deck-transition.
-rw-r--r-- | contrib/lisp/ox-deck.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/contrib/lisp/ox-deck.el b/contrib/lisp/ox-deck.el index 5d3b853..bfe6a3c 100644 --- a/contrib/lisp/ox-deck.el +++ b/contrib/lisp/ox-deck.el @@ -308,13 +308,15 @@ Note that the wrapper div must include the class \"slide\"." (when (file-exists-p (concat dir base "html")) (add-to-list 'snippets (concat dir base "html")))))) (org-deck--find-extensions)) - (add-to-list 'sheets - (if (file-name-directory theme) theme - (format "%sthemes/style/%s" prefix theme))) - (add-to-list - 'sheets - (if (file-name-directory transition) transition - (format "%sthemes/transition/%s" prefix transition))) + (if (not (string-match-p "^[[:space:]]*$" theme)) + (add-to-list 'sheets + (if (file-name-directory theme) theme + (format "%sthemes/style/%s" prefix theme)))) + (if (not (string-match-p "^[[:space:]]*$" transition)) + (add-to-list + 'sheets + (if (file-name-directory transition) transition + (format "%sthemes/transition/%s" prefix transition)))) (list :scripts (nreverse scripts) :sheets (nreverse sheets) :snippets snippets))) |