emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [PATCH] Don't generate links for empty theme or transition.
@ 2013-03-04  1:50 Rick Frankel
  2013-03-04  6:39 ` Bastien
  0 siblings, 1 reply; 2+ messages in thread
From: Rick Frankel @ 2013-03-04  1:50 UTC (permalink / raw)
  To: emacs-orgmode

* 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

^ permalink raw reply related	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2013-03-04  6:40 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-03-04  1:50 [PATCH] Don't generate links for empty theme or transition Rick Frankel
2013-03-04  6:39 ` Bastien

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).