From d21757ebb118ca4a4ed6fb429cd0430e7b2c076c Mon Sep 17 00:00:00 2001
From: Benson Chu <bensonchu457@gmail.com>
Date: Sat, 3 Jun 2023 10:21:41 -0500
Subject: [PATCH] Oops, org roam dependency mismanagement

---
 config-org.org | 45 ++++++++++++++++++++++-----------------------
 1 file changed, 22 insertions(+), 23 deletions(-)

diff --git a/config-org.org b/config-org.org
index 1a9ec4c..bf80bb3 100644
--- a/config-org.org
+++ b/config-org.org
@@ -724,32 +724,31 @@
        :templates
        '(("p" "project" plain ""
           :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}: %^{Description}\n#+category: ${title}\n#+filetags: project")
-          :unnarrowed t)))))
+          :unnarrowed t))))
 
-  (use-package consult-org-roam
-    :after org-roam consult
-    :commands (my/org-roam-find-daily)
-    :config
+    (use-package consult-org-roam
+      :demand t
+      :commands (my/org-roam-find-daily)
+      :config
+      (require 'org-roam-util)
 
-    (require 'org-roam-util)
+      (defun consult-org-roam-file-find (arg)
+        "Find org-roam node with preview, if ARG open in other window."
+        (interactive "P")
+        (cl-letf (((symbol-function 'org-roam-node-read)
+                   (symbol-function 'consult-org-roam-node-read)))
+          (let ((other-window (if arg t nil)))
+            (org-roam-node-find other-window nil #'consult-org-roam--node-file-p))))
 
-    (defun consult-org-roam-file-find (arg)
-      "Find org-roam node with preview, if ARG open in other window."
-      (interactive "P")
-      (cl-letf (((symbol-function 'org-roam-node-read)
-                 (symbol-function 'consult-org-roam-node-read)))
-        (let ((other-window (if arg t nil)))
-          (org-roam-node-find other-window nil #'consult-org-roam--node-file-p))))
-
-    (defun my/org-roam-find-daily ()
-      (interactive)
-      (cl-letf (((symbol-function 'org-roam-node-read)
-                 (symbol-function 'consult-org-roam-node-read)))
-        (org-roam-node-find nil nil
-                            (my/org-roam-filter-by-tag "dailies")
-                            (lambda (x y)
-                              (string-lessp (org-roam-node-file (cdr y))
-                                            (org-roam-node-file (cdr x))))))))
+      (defun my/org-roam-find-daily ()
+        (interactive)
+        (cl-letf (((symbol-function 'org-roam-node-read)
+                   (symbol-function 'consult-org-roam-node-read)))
+          (org-roam-node-find nil nil
+                              (my/org-roam-filter-by-tag "dailies")
+                              (lambda (x y)
+                                (string-lessp (org-roam-node-file (cdr y))
+                                              (org-roam-node-file (cdr x)))))))))
 
   ;; (require 'org-roam-protocol)
 #+end_src