From 15e555bb5e09eaea982b6881f889d2df3517048b Mon Sep 17 00:00:00 2001
From: Tom Willemse <tom@ryuslash.org>
Date: Tue, 12 Mar 2024 11:36:32 -0700
Subject: [PATCH] Add Stuck projects and overview agenda commands

---
 oni-org/oni-org.el | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/oni-org/oni-org.el b/oni-org/oni-org.el
index beef7b9..8fd65ec 100644
--- a/oni-org/oni-org.el
+++ b/oni-org/oni-org.el
@@ -4,8 +4,8 @@
 
 ;; Author: Tom Willemse <tom@ryuslash.org>
 ;; Keywords: local
-;; Version: 2024.0201.164329
-;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-bullets org-edna diminish all-the-icons olivetti form-feed org-pretty-table ob-async)
+;; Version: 2024.0312.113546
+;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-bullets org-edna diminish all-the-icons olivetti form-feed org-pretty-table ob-async org-ql org-super-agenda)
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -47,7 +47,9 @@
 (require 'org-faces)
 (require 'org-habit)
 (require 'org-protocol)
+(require 'org-ql)
 (require 'org-roam)
+(require 'org-super-agenda)
 (require 'range)
 (require 'subr-x)
 (require 'yasnippet)
@@ -555,6 +557,7 @@ also move point to the start of the heading."
 (add-hook 'org-mode-hook 'yas-minor-mode)
 
 (org-edna-mode)
+(org-super-agenda-mode)
 
 (unless (eq system-type 'windows-nt)
   (require 'org-bullets)
@@ -1226,6 +1229,18 @@ same code all the time."
                 (map-insert ,collection ,key-name ,value-name))
           ,value-name)))))
 
+(oni-org--map-put org-agenda-custom-commands "P"
+  '("Stuck projects" ((org-ql-block '(and (todo) (children (not (todo))))))))
+
+(oni-org--map-put org-agenda-custom-commands "o"
+  '("Overview" ((org-ql-block '(and (todo) (children (not (todo))))
+                              ((org-ql-block-header "Stuck projects")))
+                (org-ql-block '(and (todo) (not (children)))
+                              ((org-super-agenda-groups '((:auto-parent)))
+                               (org-ql-block-header "Todo")))
+                (agenda ""
+                        ((org-agenda-span 3))))))
+
 (oni-org--map-put org-capture-templates "t"
   '("A simple TODO item." entry (file "") "* TODO %?
 :PROPERTIES: