Update agenda views

This commit is contained in:
Wojciech Kozlowski 2022-09-21 16:04:36 +02:00
parent 676482859d
commit 16f1356f81

View File

@ -147,52 +147,28 @@
(add-to-list 'org-after-todo-state-change-hook
(lambda ()
(when (equal org-state "DONE")
(org-archive-to-archive-sibling)))))
(org-cut-subtree)))))
(after! org-agenda
(setq org-agenda-custom-commands
'(("d" "Agenda and tasklist for the day"
'(("w" "Agenda and tasklist for the week"
((agenda "")
(todo "TODO"))
((org-agenda-span 'day)
(org-agenda-start-day "")
(org-deadline-warning-days 0)))
("w" "Agenda and tasklist for the week"
((agenda "")
(todo "TODO")
(todo "WEEK"))
((org-agenda-start-on-weekday 1)
(org-agenda-span 'week)
(org-agenda-start-day "")
(org-deadline-warning-days 0)))
("p" . "Planning lists")
("pd" "Agenda and tasklist for daily planning"
((agenda "")
(todo "WEEK")
(todo "TODO"))
((org-agenda-start-on-weekday 1)
(org-agenda-span 'week)
(org-agenda-start-day "")
(org-deadline-warning-days 0)))
("pw" "Agenda and tasklist for weekly planning"
((agenda "")
(todo "NEXT")
(todo "HOLD")
(todo "NEXT")
(todo "WAIT")
(todo "WEEK")
(todo "TODO"))
((org-agenda-start-on-weekday 1)
(org-agenda-span 'fortnight)
(org-agenda-start-day "")
(org-deadline-warning-days 0)))
("r" . "Weekly review lists")
("rl" "Tasklist of leftover work"
((todo "TODO")
(todo "WEEK")))
("rn" "Agenda and tasklist of upcoming tasks"
("r" "Agenda and tasklist for the weekly review"
((agenda "")
(todo "WAIT")
(todo "HOLD")
(todo "NEXT")
(todo "HOLD"))
(todo "WAIT")
(todo "WEEK")
(todo "TODO"))
((org-agenda-start-on-weekday 1)
(org-agenda-span 'month)
(org-agenda-start-day "")