ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX inconsistent text props in agenda daily view

This commit is contained in:
Nathan Dwarshuis 2022-05-03 00:09:23 -04:00
parent ff35f41ec5
commit 07daaa0d43
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
local/lib/org-x/org-x-dag.el
View File

@ -2512,7 +2512,7 @@ FUTURE-LIMIT in a list."
'org-hd-marker (org-agenda-new-marker (org-x-dag-id->marker id)) 'org-hd-marker (org-agenda-new-marker (org-x-dag-id->marker id))
'org-marker (org-agenda-new-marker (org-x-dag-id->marker id pos)) 'org-marker (org-agenda-new-marker (org-x-dag-id->marker id pos))
;; headline stuff ;; headline stuff
'date (org-x-dag-date-to-absolute date) 'date (org-x-dag-date-to-gregorian date)
'ts-date (org-x-dag-date-to-absolute ts-date) 'ts-date (org-x-dag-date-to-absolute ts-date)
'type type))) 'type type)))
@ -4287,6 +4287,10 @@ FUTURE-LIMIT in a list."
(-some--> (org-agenda-add-time-grid-maybe rtnall 1 (= sd today)) (-some--> (org-agenda-add-time-grid-maybe rtnall 1 (= sd today))
(org-agenda-finalize-entries it 'agenda) (org-agenda-finalize-entries it 'agenda)
(insert it "\n")) (insert it "\n"))
;; `org-agenda-list' adds these properties for every day block; add
;; them here for one day just to be consistent
(put-text-property (point-min) (1- (point-max)) 'day sd)
(put-text-property (point-min) (1- (point-max)) 'org-day-cnt 1)
(goto-char (point-min)) (goto-char (point-min))
(or org-agenda-multi (org-agenda-fit-window-to-buffer)) (or org-agenda-multi (org-agenda-fit-window-to-buffer))
(add-text-properties (add-text-properties