summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRick Frankel <rick@rickster.com>2013-03-03 20:50:58 -0500
committerBastien Guerry <bzg@altern.org>2013-03-04 07:39:16 +0100
commit8ed99fad6bb04857a0c1a54345d7c427a065ea39 (patch)
treedef1ea71dc898486c4bd803150e2ad76a0d727f7
parent6ca7953db56908dac33e337ea09f6f7c940d1c11 (diff)
downloadorg-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.el16
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)))