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

ENH make cancelled agenda items grey

This commit is contained in:
Nathan Dwarshuis 2022-04-24 10:51:57 -04:00
parent 735f20b6a6
commit 0cf7f2388a
1 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2427,18 +2427,23 @@ FUTURE-LIMIT in a list."
'type (concat "tagsmatch" ts-type))))) 'type (concat "tagsmatch" ts-type)))))
(defun org-x-dag-planning-props (id face pos date ts-date type) (defun org-x-dag-planning-props (id face pos date ts-date type)
(list (let* ((todo (org-x-dag-id->todo id))
;; face (face* (cond
'face (if (org-x-dag-id->is-done-p id) 'org-agenda-done face) ((equal todo org-x-kw-canc) 'org-agenda-dimmed-todo-face)
'undone-face face ((equal todo org-x-kw-done) 'org-agenda-done)
'done-face 'org-agenda-done (t face))))
;; marker (list
'org-hd-marker (org-agenda-new-marker (org-x-dag-id->marker id)) ;; face
'org-marker (org-agenda-new-marker (org-x-dag-id->marker id pos)) 'face face*
;; headline stuff 'undone-face face
'date (org-x-dag-date-to-absolute date) 'done-face 'org-agenda-done
'ts-date (org-x-dag-date-to-absolute ts-date) ;; marker
'type type)) '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))
;; headline stuff
'date (org-x-dag-date-to-absolute date)
'ts-date (org-x-dag-date-to-absolute ts-date)
'type type)))
(defun org-x-dag-format-timestamp-node (sel-date pos datetime tags id (defun org-x-dag-format-timestamp-node (sel-date pos datetime tags id
extra-fun face-fun dt-fun) extra-fun face-fun dt-fun)