From 3d17ef6cb2cfe3c48e308d18e903001b94a236e7 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 15 Feb 2024 12:57:14 -0800
Subject: [oni-org] Remove roam files from agenda, move roam database

---
 oni-org-roam.el    | 21 +--------------------
 oni-org/oni-org.el |  6 ++----
 2 files changed, 3 insertions(+), 24 deletions(-)

diff --git a/oni-org-roam.el b/oni-org-roam.el
index 9a21f65..e33b103 100644
--- a/oni-org-roam.el
+++ b/oni-org-roam.el
@@ -33,7 +33,7 @@
 (require 'seq)
 
 (setq org-roam-completion-everywhere t)
-(setq org-roam-directory (expand-file-name "~/documents/exocortex/"))
+(setq org-roam-directory (expand-file-name "~/documents/exocortex-novus/reference/"))
 
 (add-hook 'org-roam-mode-hook 'visual-line-mode)
 
@@ -49,23 +49,6 @@
                (not (window-minibuffer-p)))
       (org-roam-buffer-toggle))))
 
-;;; Taken from/inspired by
-;;; https://magnus.therning.org/2021-07-23-keeping-todo-items-in-org-roam-v2.html
-(defun oni-org-roam-update-todo-files (&rest _)
-  "Set ‘org-agenda-files’ to all roam files with a task in them."
-  (setq org-agenda-files (seq-uniq (append org-agenda-files (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."
-  (let ((nodes (seq-filter #'oni-org-roam--todo-node-p (org-roam-node-list))))
-    (seq-uniq (seq-map #'org-roam-node-file nodes))))
-
-(defun oni-org-roam--todo-node-p (node)
-  "Predicate to check whether or not NODE is task."
-  (let ((state (org-roam-node-todo node)))
-    (and (not (null state))
-         (not (string= state "FINISHED")))))
-
 (defun oni-org-roam--books-to-read ()
   (org-roam-db-query (concat "select properties, file, title, group_concat(tag) as node_tags "
                              "from nodes "
@@ -99,8 +82,6 @@
                (slot . 0)
                (window-width . 66)))
 
-(advice-add 'org-agenda :before #'oni-org-roam-update-todo-files)
-
 ;;; These two properties are used a lot when working in ‘org-roam'. ‘ROAM_REFS'
 ;;; is used to specify a URL that (if pointed to) should be considered a
 ;;; reference to a particular note. ‘ROAM_ALIASES' sets up additional names for
diff --git a/oni-org/oni-org.el b/oni-org/oni-org.el
index 5d2ebf4..beef7b9 100644
--- a/oni-org/oni-org.el
+++ b/oni-org/oni-org.el
@@ -4,7 +4,7 @@
 
 ;; Author: Tom Willemse <tom@ryuslash.org>
 ;; Keywords: local
-;; Version: 2024.0201.163746
+;; Version: 2024.0201.164329
 ;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-bullets org-edna diminish all-the-icons olivetti form-feed org-pretty-table ob-async)
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -638,9 +638,7 @@ also move point to the start of the heading."
    (org-roam-db-query
     [:select :distinct file :from nodes :where (= todo $s1)] "TODO")))
 
-(setq org-agenda-files
-      (cons oni-org-todo-main-file
-            (oni-org-roam-todo-files)))
+(setq org-agenda-files (list oni-org-todo-main-file))
 (setq org-agenda-tags-todo-honor-ignore-options t)
 (setq org-agenda-todo-ignore-scheduled 'future)
 (setq org-agenda-restore-windows-after-quit t)
-- 
cgit v1.2.3-54-g00ecf