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 c6fcc1a347cb8506b5ff13b4966d647181d6d044..c50f0061e02375005ce0c36fd6349264b1b41582 100644 (file)
--- 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:")))))