oni-core.el

@@ -4,7 +4,7 @@
 
 ;; Author: Tom Willemse <tom@ryuslash.org>
 ;; Keywords: local
-;; Version: 2024.0205.222004
+;; Version: 2024.0202.103900
 ;; Package-Requires: (oni-data-dir oni-embrace oni-hydra expand-region multiple-cursors gcmh diminish ws-butler which-key insert-char-preview mixed-pitch ace-window vertico marginalia orderless consult embark docstr mini-frame)
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -386,9 +386,6 @@ _s_: String list"
       (append '(cursor-intangible t) minibuffer-prompt-properties))
 
 (setq read-extended-command-predicate 'command-completion-default-include-p)
-(setq read-buffer-completion-ignore-case t)
-(setq read-file-name-completion-ignore-case t)
-(setq completion-ignore-case t)
 
 ;;; Vertico
 

oni-elfeed.el

@@ -4,7 +4,7 @@
 
 ;; Author: Tom Willemse <tom@ryuslash.org>
 ;; Keywords: local
-;; Version: 2024.0205.235009
+;; Version: 2023.1107.155953
 ;; Package-Requires: (elfeed olivetti)
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -134,9 +134,7 @@
 (defvar oni-elfeed-blabbermouth-favourite-tagger
   (elfeed-make-tagger :feed-url (rx "blabbermouth.net")
                       :entry-title (rx (or "SLIPKNOT"
-                                           (seq "DREAM" whitespace "THEATER")
-                                           (seq "BLIND" whitespace "GUARDIAN")
-                                           "MASTODON"))
+                                           (seq "DREAM" whitespace "THEATER")))
                       :add 'favourite)
   "Tagger that highlights specific bands from Blabbermouth.")
 

oni-org-roam.el

@@ -4,7 +4,7 @@
 
 ;; Author: Tom Willemse <tom@ryuslash.org>
 ;; Keywords: local
-;; Version: 2024.0212.234817
+;; Version: 2023.0805.233914
 ;; Package-Requires: (oni-org org-roam)
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -33,7 +33,7 @@
 (require 'seq)
 
 (setq org-roam-completion-everywhere t)
-(setq org-roam-directory (expand-file-name "~/documents/exocortex-novus/reference/"))
+(setq org-roam-directory (expand-file-name "~/documents/exocortex/"))
 
 (add-hook 'org-roam-mode-hook 'visual-line-mode)
 
@@ -49,6 +49,23 @@
                (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 "
@@ -82,6 +99,8 @@
                (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
@@ -101,15 +120,6 @@
       (cons '(org-roam-backlinks-section :unique t)
             (delete 'org-roam-backlinks-section org-roam-mode-sections)))
 
-;; Show only the current element, not the whole heading for the org-roam-buffer
-;; preview.
-(defun oni-org-roam-preview-element-function ()
-  (let ((element (org-element-at-point)))
-    (buffer-substring-no-properties (org-element-property :begin element)
-                                    (org-element-property :end element))))
-
-(setq org-roam-preview-function #'oni-org-roam-preview-element-function)
-
 (org-roam-db-autosync-mode)
 
 (provide 'oni-org-roam)

oni-org/oni-org.el

@@ -4,7 +4,7 @@
 
 ;; Author: Tom Willemse <tom@ryuslash.org>
 ;; Keywords: local
-;; Version: 2024.0201.164329
+;; Version: 2024.0201.163746
 ;; 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,7 +638,9 @@ 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 (list oni-org-todo-main-file))
+(setq org-agenda-files
+      (cons oni-org-todo-main-file
+            (oni-org-roam-todo-files)))
 (setq org-agenda-tags-todo-honor-ignore-options t)
 (setq org-agenda-todo-ignore-scheduled 'future)
 (setq org-agenda-restore-windows-after-quit t)