gtd distillation

simpler and simpler, don't need the complexity

diff --git a/config.org b/config.org
index 9c2b72a29d6a8aacac9ba67b06e12ad97cd8a38c..bef12c04fd43642b4107a20b060ff38b5e57ebf1 100644 (file)
--- a/config.org
+++ b/config.org
@@ -269,29 +269,26 @@ Sly really doesn't play well with elodc in the minibuffer, so here are some sett
       org-refile-allow-creating-parent-nodes 'confirm
       org-tag-alist '((:startgroup)
                       ("call" . ?c)
-                      ("email" . ?e)
-                      ("errand" . ?r)
+                      ("net" . ?n)
                       (:endgroup)
-                      ("jobpc" . ?j)
-                      ("license" . ?l))
+                      (:startgroup)
+                      ("home" . ?h)
+                      ("office" . ?o)
+                      ("errand" . ?e)
+                      (:endgroup))
       org-todo-keywords '((sequence "TODO(t)" "WAITING(w@)" "|" "DONE(d)" "BELAYED(b@)" "GIVEN(g@)")
                           (sequence "MEETING(m)" "|" "MET(M)"))
-      org-todo-keyword-faces '(("WAITING" :foreground "#e85400" :weight bold)
-                               ("MEETING" :foreground "#315e9a" :weight bold))
+      org-todo-keyword-faces '(("WAITING" :foreground "#e85400" :weight bold) ; alert orange
+                               ("MEETING" :foreground "#315e9a" :weight bold)) ; precaution blue
       org-agenda-restore-windows-after-quit t
       org-agenda-start-on-weekday nil
       org-agenda-span 'day
       org-deadline-warning-days 30
       org-agenda-window-setup 'current-window
-      org-agenda-time-grid '((daily today remove-match)
-                             (600 800 1200 1700 1800)
-                             " ----- "
-                             "---------------")
-      org-agenda-remove-tags t
-      org-agenda-prefix-format '((agenda . "  %?-12t% s")
-                                 (todo . "  ")
-                                 (tags . "  ")
-                                 (search . "  "))
+      ;; org-agenda-time-grid '((daily today remove-match)
+      ;;                        (800 1000 1200 1400 1600 1800 2000)
+      ;;                        "------>"
+      ;;                        "---------------")
       org-agenda-scheduled-leaders '("Booked: " "Booked %dd. ago: ")
       org-agenda-deadline-leaders '("Deadline: " "In %dd.: " "Died %dd. ago: ")
       org-read-date-prefer-future 'time
@@ -304,21 +301,19 @@ Sly really doesn't play well with elodc in the minibuffer, so here are some sett
 ***** Custom Agendas
 #+BEGIN_SRC emacs-lisp
 (defvar *re/org-agenda-inbox*
-  '(tags "inbox" ((org-agenda-skip-function
-                   '(org-agenda-skip-entry-if 'regexp "^\\* "))
-                  (org-agenda-overriding-header "INBOX:"))))
+  '(tags "CATEGORY=\"inbox\"" ((org-agenda-skip-function
+                   '(org-agenda-skip-entry-if 'regexp "^\\* ")))))
 
 (defvar *re/org-agenda-todo*
   '(tags-todo "-recurring/TODO" ((org-agenda-overriding-header "NEXT:"))))
 
 (defvar *re/org-agenda-undertakings*
-  '(tags "open" ((org-agenda-skip-function
-                  '(org-agenda-skip-entry-if 'notregexp "^\\*\\*\\* "))
-                 (org-agenda-overriding-header "UNDERTAKIŊS:"))))
+  '(tags "CATEGORY=\"undertaking\"" ((org-agenda-skip-function
+                  '(org-agenda-skip-entry-if 'notregexp "^\\*\\* ")))))
 
 (defvar *re/org-agenda-waiting*
   '(todo "WAITING" ((org-agenda-skip-function
-                     '(org-agenda-skip-entry-if 'regexp "^\\*\\*\\* "))
+                     '(org-agenda-skip-entry-if 'regexp "^\\*\\* "))
                     (org-agenda-overriding-header "WAITIŊ:"))))
 
 (defvar *re/org-agenda-two-week-overview*
@@ -327,19 +322,12 @@ Sly really doesn't play well with elodc in the minibuffer, so here are some sett
                (org-agenda-start-on-weekday nil)
                (org-agenda-overriding-header "TWO-WEEK UPCOMIŊ:"))))
 
-(setq org-agenda-custom-commands `(("f" "Maybe Someday" tags "someday" ((org-agenda-overriding-header "SOMEDAY:")))
-                                   ("i" "Inbox" ,@*re/org-agenda-inbox*)
-                                   ("l" "Licenses" tags "license" ((org-agenda-overriding-header "LICENSES:")))
+(setq org-agenda-custom-commands `(("i" "Inbox" ,@*re/org-agenda-inbox*)
                                    ("n" "Next Actions" ,@*re/org-agenda-todo*)
-                                   ("p" "JobPCs" tags "jobpc" ((org-agenda-overriding-header "JOB PCS:")))
                                    ("u" "Undertakings" ,@*re/org-agenda-undertakings*)
                                    ("w" "Waiting" ,@*re/org-agenda-waiting*)
-                                   ("o" "Overview" ((agenda "" ((org-agenda-compact-blocks t)))
-                                                    ,,*re/org-agenda-inbox*
-                                                    ,,*re/org-agenda-todo*
-                                                    ,,*re/org-agenda-undertakings*
-                                                    ,,*re/org-agenda-two-week-overview*
-                                                    ,,*re/org-agenda-waiting*))))
+                                   ("o" "Overview" ((agenda)
+                                                    (tags-todo "-recurring/-MEETING")))))
 #+END_SRC
 ***** Capture Templates
 #+BEGIN_SRC emacs-lisp
@@ -347,7 +335,7 @@ Sly really doesn't play well with elodc in the minibuffer, so here are some sett
                                (file+olp "gtd.org" "Inbox")
                                "* %^{Description}\n%U\n%?"
                                :prepend t)
-                              ("n" "Next Action" entry
+                              ("a" "Next Action" entry
                                (file+olp "gtd.org" "Next")
                                "* TODO %^{Description}\n%U\n%?"
                                :prepend t)
@@ -362,6 +350,10 @@ Sly really doesn't play well with elodc in the minibuffer, so here are some sett
                               ("p" "Phone Call" entry
                                (file "gtd.org")
                                "* %^{Description} :call:\n%U\n%?"
+                               :prepend t)
+                              ("n" "Note" entry
+                               (file "notes.org")
+                               "* %^{Description}\n%U\n%?"
                                :prepend t)))
 #+END_SRC
 **** IDs