FIX agenda view selection using datetime strings

This commit is contained in:
Nathan Dwarshuis 2022-05-09 22:05:52 -04:00
parent f77967681d
commit dc4e160e12
1 changed files with 9 additions and 6 deletions

View File

@ -4446,19 +4446,22 @@ FUTURE-LIMIT in a list."
;; make the signature exactly like `org-agenda-list' ...for now ;; make the signature exactly like `org-agenda-list' ...for now
(defun org-x-dag-show-daily-nodes (&optional _ start-day _ _) (defun org-x-dag-show-daily-nodes (&optional _ start-day _ _)
(-let ((completion-ignore-case t) (-let* ((completion-ignore-case t)
;; TODO not sure if this if thing is actually necessary ;; TODO not sure if this if thing is actually necessary
((arg start-day span with-hour) (or org-agenda-overriding-arguments ((arg start-day span with-hour) (or org-agenda-overriding-arguments
(list nil start-day 'day nil)))) (list nil start-day 'day nil)))
(start-day* (if (stringp start-day)
(time-to-days (org-read-date nil t start-day))
start-day)))
(catch 'exit (catch 'exit
(org-agenda-prepare "DAG-DAILY") (org-agenda-prepare "DAG-DAILY")
(org-compile-prefix-format 'agenda) (org-compile-prefix-format 'agenda)
(org-set-sorting-strategy 'agenda) (org-set-sorting-strategy 'agenda)
(org-x-dag-sync nil t) (org-x-dag-sync nil t)
(-let* ((today (org-today)) (-let* ((today (org-today))
(sd (or start-day today)) (sd (or start-day* today))
(org-agenda-redo-command (org-agenda-redo-command
`(org-x-dag-show-daily-nodes 'nil ,start-day ',span ,with-hour)) `(org-x-dag-show-daily-nodes 'nil ,start-day* ',span ,with-hour))
((greg &as m d y) (calendar-gregorian-from-absolute sd)) ((greg &as m d y) (calendar-gregorian-from-absolute sd))
(day-name (calendar-day-name greg)) (day-name (calendar-day-name greg))
(rtnall (org-x-dag-itemize-agenda org-agenda-files `(,y ,m ,d)))) (rtnall (org-x-dag-itemize-agenda org-agenda-files `(,y ,m ,d))))