emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH] Don't generate links for empty theme or transition.


From: Rick Frankel
Subject: [O] [PATCH] Don't generate links for empty theme or transition.
Date: Sun, 3 Mar 2013 20:50:58 -0500
User-agent: Mutt/1.5.21 (2010-09-15)

* ox-deck.el (org-deck--get-packages): Check for non-blank deck-theme
  and deck-transition.
---
 contrib/lisp/ox-deck.el | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/contrib/lisp/ox-deck.el b/contrib/lisp/ox-deck.el
index 5d25369..23cc3ab 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)))
 
-- 
1.8.1.2




reply via email to

[Prev in Thread] Current Thread [Next in Thread]