jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change: Dim blocked tasks in org-ql-view

Browse source
This commit is contained in:
Akira Komamura 2021-02-11 20:50:54 +09:00
parent 8342656b2d
commit 0201daa7db
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
org-ql-view.el
View file

@ -881,6 +881,12 @@ return an empty string."
(habit-property (org-with-point-at (org-element-property :begin element) (habit-property (org-with-point-at (org-element-property :begin element)
(when (org-is-habit-p) (when (org-is-habit-p)
(org-habit-parse-todo)))) (org-habit-parse-todo))))
(blocked (when-let (marker (or (org-element-property :org-hd-marker element)
(org-element-property :org-marker element)))
(when org-agenda-dim-blocked-tasks
(org-with-point-at marker
(when (org-entry-blocked-p)
org-agenda-dim-blocked-tasks)))))
(due-string (pcase (org-element-property :relative-due-date element) (due-string (pcase (org-element-property :relative-due-date element)
('nil "") ('nil "")
(string (format " %s " (org-add-props string nil 'face 'org-ql-view-due-date))))) (string (format " %s " (org-add-props string nil 'face 'org-ql-view-due-date)))))
@ -890,6 +896,11 @@ return an empty string."
(--> string (--> string
;; FIXME: Use proper prefix ;; FIXME: Use proper prefix
(concat " " it) (concat " " it)
(if blocked
(org-add-props it nil
'org-filter-type 'todo-blocked
'org-todo-blocked blocked)
it)
(org-add-props it properties (org-add-props it properties
'org-agenda-type 'search 'org-agenda-type 'search
'todo-state todo-keyword 'todo-state todo-keyword