diff options
-rw-r--r-- | .emacs.d/site-lisp/org-init.el | 5 |
1 files changed, 4 insertions, 1 deletions
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")) |