ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-org] Remove roam files from agenda, move roam database

Browse source
This commit is contained in:
Tom Willemse 2024-02-15 12:57:14 -08:00
parent 3d4924adbf
commit 3d17ef6cb2
2 changed files with 3 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
oni-org-roam.el
View file

@ -33,7 +33,7 @@
(require 'seq) (require 'seq)
(setq org-roam-completion-everywhere t) (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) (add-hook 'org-roam-mode-hook 'visual-line-mode)
@ -49,23 +49,6 @@
(not (window-minibuffer-p))) (not (window-minibuffer-p)))
(org-roam-buffer-toggle)))) (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 () (defun oni-org-roam--books-to-read ()
(org-roam-db-query (concat "select properties, file, title, group_concat(tag) as node_tags " (org-roam-db-query (concat "select properties, file, title, group_concat(tag) as node_tags "
"from nodes " "from nodes "
@ -99,8 +82,6 @@
(slot . 0) (slot . 0)
(window-width . 66))) (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' ;;; 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 ;;; 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 ;;; reference to a particular note. ‘ROAM_ALIASES' sets up additional names for

6
oni-org/oni-org.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; 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) ;; 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 ;; 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 (org-roam-db-query
[:select :distinct file :from nodes :where (= todo $s1)] "TODO"))) [:select :distinct file :from nodes :where (= todo $s1)] "TODO")))
(setq org-agenda-files (setq org-agenda-files (list oni-org-todo-main-file))
(cons oni-org-todo-main-file
(oni-org-roam-todo-files)))
(setq org-agenda-tags-todo-honor-ignore-options t) (setq org-agenda-tags-todo-honor-ignore-options t)
(setq org-agenda-todo-ignore-scheduled 'future) (setq org-agenda-todo-ignore-scheduled 'future)
(setq org-agenda-restore-windows-after-quit t) (setq org-agenda-restore-windows-after-quit t)