From: rearman <rearman@r717.net>
Date: Mon, 15 Jun 2026 18:03:46 +0000 (-0400)
Subject: gtd distillation
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=42c752bffac1c3bfbf3e5dfec7e946cf0bcde7e9;p=emacsinit.git

gtd distillation

simpler and simpler, don't need the complexity
---

diff --git a/config.org b/config.org
index bef12c0..22f8d37 100644
--- a/config.org
+++ b/config.org
@@ -302,7 +302,8 @@ Sly really doesn't play well with elodc in the minibuffer, so here are some sett
 #+BEGIN_SRC emacs-lisp
 (defvar *re/org-agenda-inbox*
   '(tags "CATEGORY=\"inbox\"" ((org-agenda-skip-function
-                   '(org-agenda-skip-entry-if 'regexp "^\\* ")))))
+                                '(org-agenda-skip-entry-if 'regexp "^\\* "))
+                               (org-agenda-overriding-header "INBOX:"))))
 
 (defvar *re/org-agenda-todo*
   '(tags-todo "-recurring/TODO" ((org-agenda-overriding-header "NEXT:"))))
@@ -312,22 +313,15 @@ Sly really doesn't play well with elodc in the minibuffer, so here are some sett
                   '(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-overriding-header "WAITIŊ:"))))
-
-(defvar *re/org-agenda-two-week-overview*
-  '(agenda "" ((org-agenda-span 14)
-               (org-agenda-start-day "+1d")
-               (org-agenda-start-on-weekday nil)
-               (org-agenda-overriding-header "TWO-WEEK UPCOMIŊ:"))))
+  '(todo "WAITING" ((org-agenda-overriding-header "WAITIŊ:"))))
 
 (setq org-agenda-custom-commands `(("i" "Inbox" ,@*re/org-agenda-inbox*)
                                    ("n" "Next Actions" ,@*re/org-agenda-todo*)
                                    ("u" "Undertakings" ,@*re/org-agenda-undertakings*)
                                    ("w" "Waiting" ,@*re/org-agenda-waiting*)
-                                   ("o" "Overview" ((agenda)
-                                                    (tags-todo "-recurring/-MEETING")))))
+                                   ("o" "Overview" (,*re/org-agenda-inbox*
+                                                    ,,*re/org-agenda-todo*
+                                                    ,,*re/org-agenda-waiting*))))
 #+END_SRC
 ***** Capture Templates
 #+BEGIN_SRC emacs-lisp