Add new org agenda sections

This commit is contained in:
Kiana Sheibani 2024-03-06 01:27:38 -05:00
parent e810718cfa
commit 04a0dcf86c
Signed by: toki
GPG key ID: 6CB106C25E86A9F7

View file

@ -2769,31 +2769,25 @@ The ~org-agenda~ dispatcher is occasionally useful, but most of the time when I
((agenda "") ((agenda "")
(alltodo "" (alltodo ""
((org-super-agenda-groups ((org-super-agenda-groups
'((:discard (:todo "PROJ")) '((:name "Next/In Progress"
:todo ("NEXT" "STRT" "WAIT" "HOLD"))
(:name "Important" (:name "Important"
:priority "A") :priority "A"
:order 1)
(:name "Assignments" (:name "Assignments"
:tag "assign" :tag "assign"
:order 1)
(:auto-map (lambda (item)
(~/org-agenda-section-by-link "Goal: " "goal" item))
:order 2) :order 2)
(:auto-map (lambda (item) (:auto-map (lambda (item)
(~/org-agenda-section-by-link "Area: " "area" item)) (~/org-agenda-section-by-link
"Goal: " "goal" item))
:order 3) :order 3)
(:auto-map (lambda (item)
(~/org-agenda-section-by-link
"Area: " "area" item))
:order 4)
(:name "Notes to Intake" (:name "Notes to Intake"
:tag "notes" :tag "notes"
:order 4) :order 10))))))))))
(:name "Projects"
:and (:tag "project"
:todo ("WORK" "HOLD"))
:order 5))))))))
;; In case I ever use this
org-stuck-projects
'("project/!-TODO-STRT-WAIT-DONE"
("PROJ" "NEXT" "FIN" "KILL")
nil "")))
(defun ~/org-agenda (&optional arg) (defun ~/org-agenda (&optional arg)
"Wrapper around preferred agenda view." "Wrapper around preferred agenda view."