From 702f6a9e6ef16638660905c71380e615f90d8e0e Mon Sep 17 00:00:00 2001 From: Christian Cunningham Date: Fri, 14 Jun 2024 15:51:34 -0700 Subject: New Todo and Sorting --- elchemy-dashboard.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'elchemy-dashboard.el') diff --git a/elchemy-dashboard.el b/elchemy-dashboard.el index 32efb92..0768483 100644 --- a/elchemy-dashboard.el +++ b/elchemy-dashboard.el @@ -153,14 +153,14 @@ (add-text-properties start (point) '(face (:height 1.5)))) (insert "\n") - (insert (elchemy/format-processed-agenda (mapcar 'elchemy/process-agenda-heading (org-ql-select (org-agenda-files) `(and (todo "STRT" "WAIT" "TODO") (ts :from ,(- elchemy/schedule-lookahead) :to today)))))) + (insert (elchemy/format-processed-agenda (mapcar 'elchemy/process-agenda-heading (org-ql-select (org-agenda-files) `(and (todo "STRT" "WAIT" "TODO" "CYCL") (ts :from ,(- elchemy/schedule-lookahead) :to today)) :sort '(todo priority date))))) (insert "\n") (let ((start (point))) (insert "Upcoming") (add-text-properties start (point) '(face (:height 1.5)))) (insert "\n") - (insert (elchemy/format-processed-agenda (mapcar 'elchemy/process-agenda-heading (org-ql-select (org-agenda-files) `(and (todo "STRT" "WAIT" "TODO") (ts :from today :to ,elchemy/schedule-lookahead)))))) + (insert (elchemy/format-processed-agenda (mapcar 'elchemy/process-agenda-heading (org-ql-select (org-agenda-files) `(and (todo "STRT" "WAIT" "TODO" "CYCL") (ts :from today :to ,elchemy/schedule-lookahead)) :sort '(todo priority date))))) (insert "\n") (let ((start (point))) (insert "Command Reference") -- cgit v1.2.1