ENH update agenda view

This commit is contained in:
Nathan Dwarshuis 2022-04-10 19:22:19 -04:00
parent ccf1a007cb
commit 949fec4f32
1 changed files with 5 additions and 2 deletions

View File

@ -2997,7 +2997,10 @@ In the order of display
(org-x-headline-has-property org-x-prop-routine (org-x-headline-has-property org-x-prop-routine
org-x-prop-routine-evening) org-x-prop-routine-evening)
:order 3) :order 3)
(:name "Calendar" :order 1 :time-grid t) (:name "Calendar" :order 1 :time-grid t
:transformer (if (equal (get-text-property 1 'org-category it) "daily")
(propertize it 'face 'org-todo)
it))
(:discard (:anything t)))))))) (:discard (:anything t))))))))
(defun nd/org-agenda-goals () (defun nd/org-agenda-goals ()
@ -3167,7 +3170,7 @@ review phase)"
| org-x-kw-wait | org-x-kw-wait
| org-x-kw-hold | org-x-kw-hold
| org-x-kw-canc)) | org-x-kw-canc))
(files (org-x-get-action-and-incubator-files))) (files (org-x-get-action-files)))
(nd/org-agenda-call "Tasks" nil 'tags-todo match files (nd/org-agenda-call "Tasks" nil 'tags-todo match files
`((org-agenda-skip-function #'org-x-task-skip-function) `((org-agenda-skip-function #'org-x-task-skip-function)
(org-agenda-todo-ignore-with-date t) (org-agenda-todo-ignore-with-date t)