From eeb35292ab40d44ed28c1a4ebecbdc98fc4a5f95 Mon Sep 17 00:00:00 2001
From: Kiana Sheibani <kiana.a.sheibani@gmail.com>
Date: Wed, 14 Aug 2024 05:17:30 -0400
Subject: [PATCH] feat(org): factor Org TODO groups into multiple agenda views

---
 config.org | 64 +++++++++++++++++++++++++++++-------------------------
 1 file changed, 35 insertions(+), 29 deletions(-)

diff --git a/config.org b/config.org
index 7323953..f60b4e5 100644
--- a/config.org
+++ b/config.org
@@ -3644,38 +3644,44 @@ By customizing ~org-super-agenda-groups~ via a let-binding in my custom agenda v
          (-interpose ", ")
          (apply #'concat prefix))))
 
+(defvar ~/org-todo-groups nil
+  "`org-super-agenda' groups for TODO entries of agenda.")
+
 (after! org
-  (setq org-agenda-custom-commands
+  (setq ~/org-todo-groups
+        '((:name "Next/In Progress"
+           :todo ("NEXT" "STRT" "WAIT" "HOLD"))
+          (:name "Important"
+           :priority "A"
+           :order 1)
+          (:name "Goals"
+           :tag "goal"
+           :order 9)
+          (:name "Notes to Intake"
+           :tag "notes"
+           :order 10)
+          (:name "Assignments"
+           :tag "assign"
+           :order 2)
+          (:auto-map (lambda (item)
+                       (~/org-agenda-section-by-link
+                        "Goal: " "goal" item))
+           :order 3)
+          (:auto-map (lambda (item)
+                       (~/org-agenda-section-by-link
+                        "Area: " "area" item))
+           :order 4))
+        org-agenda-custom-commands
         '(("o" "Overview"
            ((agenda "")
-            (alltodo ""
-                     ((org-super-agenda-groups
-                       '((:name "Next/In Progress"
-                          :todo ("NEXT" "STRT" "WAIT" "HOLD"))
-                         (:discard
-                          (:date t
-                           :deadline t
-                           :scheduled t))
-                         (:name "Important"
-                          :priority "A"
-                          :order 1)
-                         (:name "Goals"
-                          :tag "goal"
-                          :order 9)
-                         (:name "Notes to Intake"
-                          :tag "notes"
-                          :order 10)
-                         (:name "Assignments"
-                          :tag "assign"
-                          :order 2)
-                         (:order-multi
-                          (3
-                           (:auto-map (lambda (item)
-                                        (~/org-agenda-section-by-link
-                                         "Goal: " "goal" item)))
-                           (:auto-map (lambda (item)
-                                        (~/org-agenda-section-by-link
-                                         "Area: " "area" item))))))))))))))
+            (alltodo "" ((org-super-agenda-groups
+                          (-insert-at 1 '(:discard
+                                          (:date t
+                                           :deadline t
+                                           :scheduled t))
+                                      ~/org-todo-groups))))))
+          ("g" "Grouped list of TODO entries"
+           alltodo "" ((org-super-agenda-groups ~/org-todo-groups))))))
 #+end_src
 
 This "overview" agenda command is very nice. It's so nice, in fact, that it's almost always the only agenda view I want to use! Having to go through the dispatcher every time I want to access it is annoying and unnecessary.