diff options
| author | Raul Benencia <rul@kalgan.cc> | 2023-02-07 10:08:47 -0800 | 
|---|---|---|
| committer | Raul Benencia <rul@kalgan.cc> | 2023-02-07 10:08:47 -0800 | 
| commit | b9104f997c4695f8a43464c6acf35d2ed8ad1c7c (patch) | |
| tree | 49df64eb1f263bfe4b9c496750fb0bf7adb22621 /.emacs.local.d/modes | |
| parent | 2362248734ac3b57a768213cef6486917d9a4735 (diff) | |
emacs: re-sort elements of org-agenda
Diffstat (limited to '.emacs.local.d/modes')
| -rw-r--r-- | .emacs.local.d/modes/org.el | 54 | 
1 files changed, 27 insertions, 27 deletions
| 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) @@ -183,19 +181,6 @@                        ))            (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)                        (org-agenda-start-day 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 | 
