From 9b28dc8051b94ba9c53f3e7da8022a9850e6b143 Mon Sep 17 00:00:00 2001
From: Marc Pohling <poh@PRIMEMEAT.DE>
Date: Thu, 15 May 2025 16:03:09 +0200
Subject: [PATCH] new agenda template including org-ql

---
 config.org | 64 ++++++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 62 insertions(+), 2 deletions(-)

diff --git a/config.org b/config.org
index cb5bc3b..b68b882 100644
--- a/config.org
+++ b/config.org
@@ -1356,7 +1356,6 @@ nil)))
   ;; use inheritance except for "agenda"
   (setq org-use-tag-inheritance
         (lambda (tags) (remove "agenda" tags)))
-
   :config
   (when *work_remote*
     (org-add-link-type "outlook" 'my--org-outlook-open)
@@ -1436,7 +1435,68 @@ nil)))
        (alltodo ""
                 ((org-agenda-skip-function '(or (my--org-skip-subtree-if-priority ?A)
                                                 (org-agenda-skip-if nil '(scheduled deadline))))
-                 (org-agenda-overriding-header "Sonstige Aufgaben:"))))))))
+                 (org-agenda-overriding-header "Sonstige Aufgaben:")))))
+      ("q" "test"
+       (
+        (agenda ""
+                ((org-agenda-span 7)
+                 (org-agenda-start-on-weekday 1)
+                 (org-super-agenda-groups
+                  '((:name "high priority [#A]" :priority "A" :order 1)
+                    (:name "overdue" :deadline past :scheduled past :order 2)
+                    (:name "due soon" :deadline future :scheduled future :order 3)
+                    (:discard (:anything))))
+                 (org-agenda-overriding-header "weekly agenda")))
+        (org-ql-block
+         '(and (tags "@bag")
+               (todo "TODO")
+               (not (done)))
+         ((org-ql-block-header "@bag tasks")))
+        (org-ql-block
+         '(and (todo)
+               (not (scheduled :to today))
+               (not (deadline :to today))
+               (not (scheduled :from today :to +7))
+               (not (deadline :from today :to +7))
+               (regexp "\\+[0-9]+[dwmy]"))
+         ((org-ql-block-header "repeating tasks")))
+        (org-ql-block
+         '(and (todo "OPEN") (todo "HOLD"))
+         ((org-ql-block-header "open or hold tasks")))
+        (org-ql-block
+         '(and (todo)
+               (not (done))
+               (not (regexp "\\+[0-9]+[dwmy]"))
+               (not (scheduled :to today))
+               (not (deadline :to today))
+               (not (scheduled :from today :to +7))
+               (not (deadline :from today :to +7))
+               (not (and (tags "@bag") (todo "TODO"))))
+         ((org-ql-block-header "everything else")))
+        ))
+
+     ("p" "super agenda"
+      ((org-ql-block
+        '(and (todo)
+              (not (done)))
+        ((org-super-agenda-groups
+                '((:name "High Priority [#A]"
+                         :priority "A"
+                         :order 1)
+                  (:name "Due soon or overdue"
+                         :and (:scheduled past
+                               :deadline past
+                               :scheduled future
+                               :deadline future
+                               :not (:priority "A"))
+                         :order 2)
+                  (:name "everything else"
+                         :anything t
+                         :order 99)))
+         (org-agenda-overriding-header "org ql super agenda")
+         (org-agenda-skip-scheduled-if-done nil)
+         (org-agenda-skip-deadline-if-done nil))))))))
+
 #+END_SRC
 
 ** COMMENT languages