From 07500848d9ed01a8ff4179af6f7d32b24c9593df Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 26 Nov 2013 01:56:05 +0100
Subject: Ask for tag when adding a new task

---
 .emacs.d/site-lisp/org-init.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to '.emacs.d/site-lisp/org-init.el')

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