diff options
| -rw-r--r-- | .emacs.local.d/modes/org.el | 44 |
1 files 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) |