From 56ff85b49ac40a9526c8352a767e8d5d8d6b02c5 Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Tue, 27 Jan 2026 14:49:30 -0600 Subject: [PATCH] HOLD are similar to invisible --- lisp/org-project/opr-projects.el | 2 +- lisp/org-ql-custom-stuck-projects.el | 18 +++++++++++------- 2 files changed, 12 insertions(+), 8 deletions(-) diff --git a/lisp/org-project/opr-projects.el b/lisp/org-project/opr-projects.el index eed4e2e..c9c7136 100644 --- a/lisp/org-project/opr-projects.el +++ b/lisp/org-project/opr-projects.el @@ -51,7 +51,7 @@ ;; All todo children are done? Stuck! (not (olc/any-todo-children? (not (member (cdr (opr/get-type-and-state)) - '(done wait invis)))))) + '(done wait invis hold)))))) 'stuck 'active))) diff --git a/lisp/org-ql-custom-stuck-projects.el b/lisp/org-ql-custom-stuck-projects.el index 3e0c1cd..160c204 100644 --- a/lisp/org-ql-custom-stuck-projects.el +++ b/lisp/org-ql-custom-stuck-projects.el @@ -62,13 +62,17 @@ (let ((type (opr/get-type))) (pcase type ('project - (when (eq 'stuck (opr/type-of-project)) - (let ((res (-> (point) - (org-element-headline-parser) - (org-ql--add-markers) - (my/get-project-stuck-displayables) - (reverse)))) - (setf display (append res display))))) + (pcase (opr/type-of-project) + ('stuck + (let ((res (-> (point) + (org-element-headline-parser) + (org-ql--add-markers) + (my/get-project-stuck-displayables) + (reverse)))) + (setf display (append res display)))) + ('hold + (push (org-ql--add-markers (org-element-headline-parser (point))) + nothing)))) ('task (cond ((eq 'stuck (opr/type-of-task))