From mboxrd@z Thu Jan 1 00:00:00 1970 From: Rick Frankel Subject: [PATCH] Don't generate links for empty theme or transition. Date: Sun, 3 Mar 2013 20:50:58 -0500 Message-ID: <20130304015058.GD45961@BigDog.local> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from eggs.gnu.org ([208.118.235.92]:50291) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UCKYR-000582-RF for emacs-orgmode@gnu.org; Sun, 03 Mar 2013 20:51:06 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UCKYN-0000Mf-Ik for emacs-orgmode@gnu.org; Sun, 03 Mar 2013 20:51:03 -0500 Received: from [204.62.15.78] (port=46047 helo=mail.rickster.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UCKYN-0000Mb-FN for emacs-orgmode@gnu.org; Sun, 03 Mar 2013 20:50:59 -0500 Received: from BigDog.local (pool-72-89-40-63.nycmny.fios.verizon.net [72.89.40.63]) by mail.rickster.com (Postfix) with ESMTPS id 3A40320B7B for ; Sun, 3 Mar 2013 20:51:00 -0500 (EST) Content-Disposition: inline List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * 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