From 0a34d0ba571d19821ab490a37331f2ab03369784 Mon Sep 17 00:00:00 2001
From: Raul Benencia <id@rbenencia.name>
Date: Sun, 29 Jan 2023 17:25:03 -0800
Subject: emacs: re-arrange org-agenda

---
 .emacs.local.d/modes/org.el | 44 +++++++++++++++++++++++++++-----------------
 1 file changed, 27 insertions(+), 17 deletions(-)

diff --git a/.emacs.local.d/modes/org.el b/.emacs.local.d/modes/org.el
index c04e01f..d97ce81 100644
--- a/.emacs.local.d/modes/org.el
+++ b/.emacs.local.d/modes/org.el
@@ -109,14 +109,23 @@
       `(("A" "Daily agenda and top priority tasks"
          (
           (tags-todo "*"
-                     ((org-agenda-skip-function '(org-agenda-skip-if nil '(timestamp)))
+                     (
+                      (org-agenda-overriding-header "🤔 Important tasks without a date")
+                      (org-agenda-skip-function '(org-agenda-skip-if nil '(timestamp)))
                       (org-agenda-skip-function
                        `(org-agenda-skip-entry-if
                          'notregexp ,(format "\\[#%s\\]" (char-to-string org-priority-highest))))
                       (org-agenda-block-separator nil)
-                      (org-agenda-overriding-header "🤔 Important tasks without a date")))
+                      ))
 
-          (agenda "" ((org-agenda-time-grid nil)
+          (tags-todo "REFILE"
+                ((org-agenda-overriding-header "\n⛔ Tasks to Refile\n")
+                 (org-agenda-block-separator nil)
+                 ))
+
+          (agenda "" (
+                      (org-agenda-overriding-header "\n📚 Pending scheduled tasks")
+                      (org-agenda-time-grid nil)
                       (org-agenda-start-on-weekday nil)
                       (org-agenda-span 1)
                       (org-agenda-show-all-dates nil)
@@ -128,9 +137,11 @@
                       (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
                       (org-agenda-day-face-function (lambda (date) 'org-agenda-date))
                       (org-agenda-format-date "")
-                      (org-agenda-overriding-header "\n📚 Pending scheduled tasks")))
+                      ))
 
-          (agenda "" ((org-agenda-span 1)
+          (agenda "" (
+                      (org-agenda-overriding-header "\n📌 Today's agenda\n")
+                      (org-agenda-span 1)
                       (org-deadline-warning-days 0)
                       (org-agenda-block-separator nil)
                       (org-scheduled-past-days 0)
@@ -139,18 +150,22 @@
                       ;; utility in multi-day views.
                       (org-agenda-day-face-function (lambda (date) 'org-agenda-date))
                       (org-agenda-format-date "%A %-e %B %Y")
-                      (org-agenda-overriding-header "\n📌 Today's agenda\n")))
+                      ))
 
-          (agenda "" ((org-agenda-start-on-weekday nil)
+          (agenda "" (
+                      (org-agenda-overriding-header "\n⏰ Next three days\n")
+                      (org-agenda-start-on-weekday nil)
                       (org-agenda-start-day nil)
                       (org-agenda-start-day "+1d")
                       (org-agenda-span 3)
                       (org-deadline-warning-days 0)
                       (org-agenda-block-separator nil)
                       (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
-                      (org-agenda-overriding-header "\n⏰ Next three days\n")))
+                      ))
 
-          (agenda "" ((org-agenda-time-grid nil)
+          (agenda "" (
+                      (org-agenda-overriding-header "\n🕘 Upcoming deadlines (+14d)\n")
+                      (org-agenda-time-grid nil)
                       (org-agenda-start-on-weekday nil)
                       ;; We don't want to replicate the previous section's
                       ;; three days, so we start counting from the day after.
@@ -161,22 +176,17 @@
                       (org-agenda-block-separator nil)
                       (org-agenda-entry-types '(:deadline))
                       (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
-                      (org-agenda-overriding-header "\n🕘 Upcoming deadlines (+14d)\n")))
-
-          (tags-todo "REFILE"
-                ((org-agenda-overriding-header "Tasks to Refile")
-                 (org-agenda-block-separator nil)
-                 ))
+                      ))
 
           (tags-todo "-CANCELLED/!"
-                     ((org-agenda-overriding-header "Stuck Projects")
+                     ((org-agenda-overriding-header "\n🚫 Stuck Projects\n")
                       (org-agenda-skip-function 'bh/skip-non-stuck-projects)
                       (org-agenda-block-separator nil)
                       (org-agenda-sorting-strategy
                        '(category-keep))))
 
           (tags-todo "-HOLD-CANCELLED/!"
-                     ((org-agenda-overriding-header "Projects")
+                     ((org-agenda-overriding-header "\n🟢 Projects")
                       (org-agenda-skip-function 'bh/skip-non-projects)
                       (org-agenda-block-separator nil)
                       (org-tags-match-list-sublevels 'indented)
-- 
cgit v1.2.3