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 ;; 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)