aboutsummaryrefslogtreecommitdiff
path: root/.emacs.local.d
diff options
context:
space:
mode:
authorRaul Benencia <id@rbenencia.name>2023-01-29 17:25:03 -0800
committerRaul Benencia <id@rbenencia.name>2023-01-29 17:25:03 -0800
commit0a34d0ba571d19821ab490a37331f2ab03369784 (patch)
treef3b7b363e6b7f37bfb7c70f5127c124f262c03d9 /.emacs.local.d
parent8e5c59eb8b83703a63b084d2afc8c1c3ef512394 (diff)
emacs: re-arrange org-agenda
Diffstat (limited to '.emacs.local.d')
-rw-r--r--.emacs.local.d/modes/org.el44
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)
nihil fit ex nihilo