pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

Oops, org roam dependency mismanagement

Browse source
This commit is contained in:
Benson Chu 2023-06-03 10:21:41 -05:00
parent cbd0a63b21
commit d21757ebb1
1 changed files with 22 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
config-org.org
View file

@ -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