From b9104f997c4695f8a43464c6acf35d2ed8ad1c7c Mon Sep 17 00:00:00 2001
From: Raul Benencia <rul@kalgan.cc>
Date: Tue, 7 Feb 2023 10:08:47 -0800
Subject: emacs: re-sort elements of org-agenda

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

(limited to '.emacs.local.d/modes/org.el')

diff --git a/.emacs.local.d/modes/org.el b/.emacs.local.d/modes/org.el
index 627b038..d5769ae 100644
--- a/.emacs.local.d/modes/org.el
+++ b/.emacs.local.d/modes/org.el
@@ -151,21 +151,19 @@
           ))
         ("A" "Daily agenda and top priority tasks"
          (
-          (tags-todo "*"
-                     (
-                      (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))))
+          (agenda "" (
+                      (org-agenda-overriding-header "📌 Today's agenda\n")
+                      (org-agenda-span 1)
+                      (org-deadline-warning-days 0)
                       (org-agenda-block-separator nil)
+                      (org-scheduled-past-days 0)
+                      ;; We don't need the `org-agenda-date-today'
+                      ;; highlight because that only has a practical
+                      ;; utility in multi-day views.
+                      (org-agenda-day-face-function (lambda (date) 'org-agenda-date))
+                      (org-agenda-format-date "%A %-e %B %Y")
                       ))
 
-          (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)
@@ -182,19 +180,6 @@
                       (org-agenda-format-date "")
                       ))
 
-          (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)
-                      ;; We don't need the `org-agenda-date-today'
-                      ;; highlight because that only has a practical
-                      ;; utility in multi-day views.
-                      (org-agenda-day-face-function (lambda (date) 'org-agenda-date))
-                      (org-agenda-format-date "%A %-e %B %Y")
-                      ))
-
           (agenda "" (
                       (org-agenda-overriding-header "\n⏰ Next three days\n")
                       (org-agenda-start-on-weekday nil)
@@ -216,13 +201,28 @@
                       (org-agenda-span 14)
                       (org-agenda-show-all-dates nil)
                       (org-deadline-warning-days 0)
-                      (org-agenda-block-separator nil)
                       (org-agenda-entry-types '(:deadline))
                       (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
                       ))
 
+          (tags-todo "*"
+                     (
+                      (org-agenda-overriding-header "\n🤔 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)
+                      ))
+
+          (tags-todo "REFILE"
+                ((org-agenda-overriding-header "\n⛔ Tasks to Refile")
+                 (org-agenda-block-separator nil)
+                 ))
+
+
           (tags-todo "-HOLD-CANCELLED/!"
-                     ((org-agenda-overriding-header "\n🚫 Stuck Projects\n")
+                     ((org-agenda-overriding-header "\n🚫 Stuck Projects")
                       (org-agenda-skip-function 'bh/skip-non-stuck-projects)
                       (org-agenda-block-separator nil)
                       (org-agenda-sorting-strategy
-- 
cgit v1.2.3