mark/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Working org-node

Browse Source
This commit is contained in:
Mark van der Putten 2025-04-23 22:39:12 +02:00
parent 43cc8528f6
commit 93bc4b44b2
1 changed files with 10 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
elisp/init-org-node.el
View File

@ -56,28 +56,17 @@
:super-groups '((:name "Taken" :todo)) :super-groups '((:name "Taken" :todo))
)) ))
;; (defun my/org-node-todo-file-sort () (setq my-todo-nodes
;; "Toon alle TODOs uit org-bestanden, gesorteerd op bestandsnaam." (lambda (node)
;; (interactive) (string= (org-node-get-todo node) "TODO")))
;; (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))))
;; (defun my/org-agenda-ql-todos-with-date () (setq org-agenda-custom-commands
;; "Toon TODO's met een datum uit Org Roam bestanden in de agenda." '(("b" "TODO's uit Org-Node (gefilterd)"
;; (interactive) ((agenda "" ((org-agenda-files (org-node-list-files))
;; (org-agenda-custom-agenda (org-agenda-filter-function
;; '(("TODOs met Datum" (lambda (entry)
;; ((org-ql-search (org-node-list-files) (let ((node (org-entry-get-node entry)))
;; '(:and (todo) (:or deadline scheduled)) (funcall my-todo-nodes node))))))))))
;; :title "TODOs met Datum"
;; :sort '(date)
;; :super-groups '((:name "Vandaag" :date today)
;; (:name "Binnenkort" :date future)
;; (:name "Verleden" :date past))))))))
) )