diff options
author | Tom Willemse | 2014-01-19 23:33:51 +0100 |
---|---|---|
committer | Tom Willemse | 2014-01-19 23:33:51 +0100 |
commit | 25dc5140d63f5dd08dec391911fc508f1f30e83e (patch) | |
tree | 3898c13a7214913fe80b0fc23fd7a955c31684c8 /.emacs.d | |
parent | a7e7674a901da7f851a8160cee3f4f1dc22100a9 (diff) | |
download | emacs-25dc5140d63f5dd08dec391911fc508f1f30e83e.tar.gz emacs-25dc5140d63f5dd08dec391911fc508f1f30e83e.zip |
Don't add :: for empty tag
Diffstat (limited to '.emacs.d')
-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")) |