From: rearman <rearman@r717.net>
Date: Tue, 17 Mar 2026 15:34:29 +0000 (-0400)
Subject: overhaul agenda
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=b0b0305b0023556257a230ac548e7e119d05bede;p=emacsinit.git

overhaul agenda

Default to one day in agenda view, show tags, next items all together and
sorted by last tag, better default tags.
---

diff --git a/re/re-org.el b/re/re-org.el
index 4862429..044f7eb 100644
--- a/re/re-org.el
+++ b/re/re-org.el
@@ -45,32 +45,33 @@
 				    "DONE(d)" "BELAYED(b)" "GIVEN(g@)" "MET(M)")))
 
 (setq org-tag-alist '((:startgroup . nil) ; contexts
-		      ("email" . ?m)
-		      ("call" . ?c)
 		      ("buy" . ?b)
-		      ("software" . ?s)
-		      ("jobpc" . ?j)
+		      ("call" . ?c)
+		      ("email" . ?m)
 		      ("errand" . ?r)
-		      ("writ" . ?w)
+		      ("jobpc" . ?j)
+		      ("license" . ?l)
 		      ("online" . ?o)
+		      ("software" . ?s)
+		      ("writ" . ?w)
 		      (:endgroup . nil)
-		      ("troubleshoot" . ?t)
-		      ("update" . ?u)
 		      ("bugfix" . ?g)
+		      ("update" . ?u)
+		      ("troubleshoot" . ?t)
 		      (:startgroup . nil) ; people to contact
+		      ("amy" . nil)
+		      ("ee" . nil)
+		      ("me" . nil)
 		      ("mikec" . nil)
-		      ("mechanical" . nil)
-		      ("electrical" . nil)
-		      ("service" . nil)
-		      ("psm" . nil)
 		      ("pm" . nil)
-		      ("amy" . nil)
+		      ("psm" . nil)
+		      ("sm" . nil)
 		      (:endgroup . nil)))
 
 (setq org-agenda-restore-windows-after-quit t
       org-agenda-start-on-weekday nil
-      org-agenda-remove-tags t
-      org-agenda-span 14
+      org-agenda-remove-tags nil
+      org-agenda-span 'day
       org-deadline-warning-days 7
       org-agenda-window-setup 'current-window)
 
@@ -82,26 +83,16 @@
       org-agenda-deadline-leaders '("DEADLINE: " "In %3d d.: " "%2d d. ago: "))
 
 (setq org-agenda-custom-commands
-      '(("d" "Done items" todo "DONE" ((org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp "^\\* "))
+      '(("d" "Done items" todo "DONE" ((org-agenda-skip-function
+					'(org-agenda-skip-entry-if 'notregexp "^\\* "))
 				       (org-agenda-overriding-header "DONE - MAYBE ARCHIVE")))
 	("f" "Maybe Someday" tags "someday" ((org-agenda-files '("~/org/someday.org"))
 					     (org-agenda-overriding-header "SOMEDAY:")))
 	("i" "Inbox" tags "inbox" ((org-agenda-overriding-header "INBOX:")))
 	("l" "Licenses" tags "license" ((org-agenda-overriding-header "LICENSES:")))
-	("n" "Next Actions" ((tags-todo "email-recurring/TODO"
-					((org-agenda-overriding-header "EMAILS:")))
-			     (tags-todo "call-recurring/TODO"
-					((org-agenda-overriding-header "CALLS:")))
-			     (tags-todo "errand-recurring/TODO"
-					((org-agenda-overriding-header "ERRANDS:")))
-			     (tags-todo "buy-recurring/TODO"
-					((org-agenda-overriding-header "BUY:")))
-			     (tags-todo "online-recurring/TODO"
-					((org-agenda-overriding-header "ONLINE:")))
-			     (tags-todo "writ-recurring/TODO"
-					((org-agenda-overriding-header "WRITS:")))
-			     (tags-todo "ALLTAGS=\"\"/TODO"
-					((org-agenda-overriding-header "UNCATEGORIZED:")))))
+	("n" "Next Actions" tags-todo "-recurring/TODO" ((org-agenda-overriding-header "NEXT:")
+							 (org-agenda-sorting-strategy
+							  '((agenda tag-up time-up)))))
 	("p" "JobPCs" tags "jobpc" ((org-agenda-overriding-header "JOB PCS:")))
 	("u" "Undertakings" todo "UNDERTAKEN" ((org-agenda-overriding-header "UNDERTAKINGS:")))
 	("w" "Waiting" todo "WAITING" ((org-agenda-overriding-header "WAITING:")))))