From 25dc5140d63f5dd08dec391911fc508f1f30e83e Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 19 Jan 2014 23:33:51 +0100
Subject: Don't add :: for empty tag

---
 .emacs.d/site-lisp/org-init.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/.emacs.d/site-lisp/org-init.el b/.emacs.d/site-lisp/org-init.el
index 63ff5b4..4ca88bd 100644
--- a/.emacs.d/site-lisp/org-init.el
+++ b/.emacs.d/site-lisp/org-init.el
@@ -80,7 +80,10 @@
   "Get the name for a new tag for the currently loaded desktop."
   (let ((dname (desktop-registry-current-desktop)))
     (if dname
-        (format ":%s:" (read-string "Tag(s): " (tagify dname)))
+        (let ((tag (read-string "Tag(s): " (tagify dname))))
+          (if (not (string= tag ""))
+              (format ":%s:" tag)
+            ""))
       "")))
 
 (setq org-agenda-files '("~/documents/org/tasks"))
-- 
cgit v1.2.3-54-g00ecf