From 93bc4b44b237fcca0bca7deaa65ea122109c5175 Mon Sep 17 00:00:00 2001 From: Mark van der Putten Date: Wed, 23 Apr 2025 22:39:12 +0200 Subject: [PATCH] Working org-node --- elisp/init-org-node.el | 31 ++++++++++--------------------- 1 file changed, 10 insertions(+), 21 deletions(-) diff --git a/elisp/init-org-node.el b/elisp/init-org-node.el index bb6107f..6d5b33a 100644 --- a/elisp/init-org-node.el +++ b/elisp/init-org-node.el @@ -56,28 +56,17 @@ :super-groups '((:name "Taken" :todo)) )) - ;; (defun my/org-node-todo-file-sort () - ;; "Toon alle TODOs uit org-bestanden, gesorteerd op bestandsnaam." - ;; (interactive) - ;; (org-ql-search (org-node-list-files) - ;; '(todo) - ;; :title "TODO's per Bestand" - ;; :sort (lambda (a b) (string< (org-ql-get a 'file) (org-ql-get b 'file))) - ;; :super-groups '((:name (lambda (items) (format "Bestand: %s" (org-ql-get (car items) 'file))) - ;; :all)))) + (setq my-todo-nodes + (lambda (node) + (string= (org-node-get-todo node) "TODO"))) - ;; (defun my/org-agenda-ql-todos-with-date () - ;; "Toon TODO's met een datum uit Org Roam bestanden in de agenda." - ;; (interactive) - ;; (org-agenda-custom-agenda - ;; '(("TODOs met Datum" - ;; ((org-ql-search (org-node-list-files) - ;; '(:and (todo) (:or deadline scheduled)) - ;; :title "TODOs met Datum" - ;; :sort '(date) - ;; :super-groups '((:name "Vandaag" :date today) - ;; (:name "Binnenkort" :date future) - ;; (:name "Verleden" :date past)))))))) + (setq org-agenda-custom-commands + '(("b" "TODO's uit Org-Node (gefilterd)" + ((agenda "" ((org-agenda-files (org-node-list-files)) + (org-agenda-filter-function + (lambda (entry) + (let ((node (org-entry-get-node entry))) + (funcall my-todo-nodes node)))))))))) )