From 0cf7f2388ae69be5ce806e4c3276e006f9e2228a Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sun, 24 Apr 2022 10:51:57 -0400
Subject: [PATCH] ENH make cancelled agenda items grey

---
 local/lib/org-x/org-x-dag.el | 29 +++++++++++++++++------------
 1 file changed, 17 insertions(+), 12 deletions(-)

diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el
index 783a607..6b5ba17 100644
--- a/local/lib/org-x/org-x-dag.el
+++ b/local/lib/org-x/org-x-dag.el
@@ -2427,18 +2427,23 @@ FUTURE-LIMIT in a list."
             'type (concat "tagsmatch" ts-type)))))
 
 (defun org-x-dag-planning-props (id face pos date ts-date type)
-  (list
-   ;; face
-   'face (if (org-x-dag-id->is-done-p id) 'org-agenda-done face)
-   'undone-face face
-   'done-face 'org-agenda-done
-   ;; marker
-   '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))
+  (let* ((todo (org-x-dag-id->todo id))
+         (face* (cond
+                 ((equal todo org-x-kw-canc) 'org-agenda-dimmed-todo-face)
+                 ((equal todo org-x-kw-done) 'org-agenda-done)
+                 (t face))))
+    (list
+     ;; face
+     'face face*
+     'undone-face face
+     'done-face 'org-agenda-done
+     ;; marker
+     '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
                                                  extra-fun face-fun dt-fun)