From: rearman <rearman@r717.net>
Date: Tue, 17 Mar 2026 21:00:17 +0000 (-0400)
Subject: Various QOL updates
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=894498c87c4be05d10aa88863f0e01acd2148291;p=emacsinit.git

Various QOL updates

Less finicky todo changes, capture a note when something is belayed, compact
agenda blocks, use of categories, done items actually show all, add agenda
view for notes.
---

diff --git a/re/re-org.el b/re/re-org.el
index c6fcc1a..c50f006 100644
--- a/re/re-org.el
+++ b/re/re-org.el
@@ -11,6 +11,8 @@
       org-cycle-inline-images-display t
       org-cycle-separator-lines -1
       org-M-RET-may-split-line nil
+      org-treat-S-cursor-todo-selection-as-state-change nil
+      org-treat-insert-todo-heading-as-state-change nil
       org-table-export-default-format "orgtbl-to-csv"
       org-ellipsis "↴")
 
@@ -44,7 +46,7 @@
 
 (setq org-todo-keywords '((sequence "TODO(t)" "WAITING(w@)" "UNDERTAKEN(u)" "MEETING(m)"
 				    "|"
-				    "DONE(d)" "BELAYED(b)" "GIVEN(g@)" "MET(M)")))
+				    "DONE(d)" "BELAYED(b@)" "GIVEN(g@)" "MET(M)")))
 
 (setq org-tag-alist '((:startgroup . nil) ; contexts
 		      ("buy" . ?b)
@@ -72,29 +74,29 @@
 
 (setq org-agenda-restore-windows-after-quit t
       org-agenda-start-on-weekday nil
-      org-agenda-remove-tags nil
+      org-agenda-compact-blocks t
       org-agenda-span 'day
       org-deadline-warning-days 7
       org-agenda-window-setup 'current-window)
 
-(setq org-agenda-prefix-format '((agenda . "  %?-12t% s")
-				 (todo . "  %?-12t% s")
-				 (tags . "  %?-12t% s")
-				 (search . "  %?-12t% s"))
+(setq org-agenda-prefix-format '((agenda . "%25c:%?-12t% s")
+				 (todo . "%25c:%?-12t% s")
+				 (tags . "%25c:%?-12t% s")
+				 (search . "%25c:%?-12t% s"))
       org-agenda-scheduled-leaders '("BOOKED: " "Booked %2d d. ago: ")
       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 "^\\* "))
-				       (org-agenda-overriding-header "DONE - MAYBE ARCHIVE:")))
-	("f" "Maybe Someday" tags "someday" ((org-agenda-files '("~/org/someday.org"))
-					     (org-agenda-overriding-header "SOMEDAY:")))
+      '(("d" "Done items" todo "DONE|BELAYED|GIVEN|MET" ((org-agenda-skip-function
+							  '(org-agenda-skip-entry-if 'notregexp "^\\* "))
+							 (org-agenda-overriding-header "DONE - MAYBE ARCHIVE:")))
+	("f" "Maybe Someday" tags "someday" ((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 "-recurring/TODO" ((org-agenda-overriding-header "NEXT:")
 							 (org-agenda-sorting-strategy
 							  '((agenda tag-up time-up)))))
+	("N" "Notes" tags "note" ((org-agenda-overriding-header "NOTES:")))
 	("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:")))))