aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGravatar Tom Willemse2021-11-23 00:40:28 -0800
committerGravatar Tom Willemse2021-11-23 00:40:28 -0800
commit7432982e6a2462d59300f5a9d1ba54d0f8ef56a4 (patch)
treeaca4cae988e68c3ce41fb5e6fa3066a420862264
parentcfa0179053def7e0651e84fdbeddf80af0b6cfae (diff)
downloademacs-config-7432982e6a2462d59300f5a9d1ba54d0f8ef56a4.tar.gz
emacs-config-7432982e6a2462d59300f5a9d1ba54d0f8ef56a4.zip
[oni-org-roam] Don't include headings that are FINISHED in my agenda
-rw-r--r--oni-org-roam.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/oni-org-roam.el b/oni-org-roam.el
index 68b6b22..423de70 100644
--- a/oni-org-roam.el
+++ b/oni-org-roam.el
@@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local
-;; Version: 2021.1116.213141
+;; Version: 2021.1116.222944
;; Package-Requires: (oni-org org-roam)
;; 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
(defun oni-org-roam--todo-node-p (node)
"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 ()
"Get a list of all the files in the org-roam database with tasks in them."