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/org.el | |
parent | 2362248734ac3b57a768213cef6486917d9a4735 (diff) |
emacs: re-sort elements of org-agenda
Diffstat (limited to '.emacs.local.d/modes/org.el')
-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 |