ENH make cancelled agenda items grey
This commit is contained in:
parent
735f20b6a6
commit
0cf7f2388a
|
@ -2427,9 +2427,14 @@ 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)
|
||||||
|
(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
|
(list
|
||||||
;; face
|
;; face
|
||||||
'face (if (org-x-dag-id->is-done-p id) 'org-agenda-done face)
|
'face face*
|
||||||
'undone-face face
|
'undone-face face
|
||||||
'done-face 'org-agenda-done
|
'done-face 'org-agenda-done
|
||||||
;; marker
|
;; marker
|
||||||
|
@ -2438,7 +2443,7 @@ FUTURE-LIMIT in a list."
|
||||||
;; headline stuff
|
;; headline stuff
|
||||||
'date (org-x-dag-date-to-absolute date)
|
'date (org-x-dag-date-to-absolute 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)))
|
||||||
|
|
||||||
(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)
|
||||||
|
|
Loading…
Reference in New Issue