Change: Dim blocked tasks in org-ql-view

Author: akirak

org-ql-view.el

@@ -881,6 +881,12 @@ return an empty string."
            (habit-property (org-with-point-at (org-element-property :begin element)
                              (when (org-is-habit-p)
                                (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)
                          ('nil "")
                          (string (format " %s " (org-add-props string nil 'face 'org-ql-view-due-date)))))
@@ -890,6 +896,11 @@ return an empty string."
       (--> string
         ;; FIXME: Use proper prefix
         (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-agenda-type 'search
           'todo-state todo-keyword