ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-org-roam] Don't include headings that are FINISHED in my agenda

Browse source
This commit is contained in:
Tom Willemse 2021-11-23 00:40:28 -08:00
parent cfa0179053
commit 7432982e6a
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
oni-org-roam.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2021.1116.213141 ;; Version: 2021.1116.222944
;; Package-Requires: (oni-org org-roam) ;; Package-Requires: (oni-org org-roam)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -40,7 +40,9 @@
;;; https://magnus.therning.org/2021-07-23-keeping-todo-items-in-org-roam-v2.html ;;; https://magnus.therning.org/2021-07-23-keeping-todo-items-in-org-roam-v2.html
(defun oni-org-roam--todo-node-p (node) (defun oni-org-roam--todo-node-p (node)
"Predicate to check whether or not NODE is task." "Predicate to check whether or not NODE is task."
(not (null (org-roam-node-todo node)))) (let ((state (org-roam-node-todo node)))
(and (not (null state))
(not (string= state "FINISHED")))))
(defun oni-org-roam--todo-files () (defun oni-org-roam--todo-files ()
"Get a list of all the files in the org-roam database with tasks in them." "Get a list of all the files in the org-roam database with tasks in them."