[emacs] Persist selected slipbox when switching

This commit is contained in:
Correl Roush 2023-08-30 22:31:52 -04:00
parent 5a6781214d
commit 6b17ee239c

View file

@ -981,9 +981,9 @@ keep them tidy.
(defun my/org-roam-slipbox-node-find () (defun my/org-roam-slipbox-node-find ()
(interactive) (interactive)
(let* ((slipbox (completing-read "Slipbox" (-map #'f-filename (f-directories my/org-roam-slipbox-directory)))) (let ((slipbox (completing-read "Slipbox" (-map #'f-filename (f-directories my/org-roam-slipbox-directory)))))
(org-roam-directory (f-join my/org-roam-slipbox-directory slipbox)) (setq org-roam-directory (f-join my/org-roam-slipbox-directory slipbox)
(org-roam-db-location (f-join my/org-roam-slipbox-directory (s-concat slipbox ".db")))) org-roam-db-location (f-join my/org-roam-slipbox-directory (s-concat slipbox ".db")))
(unless (f-exists? org-roam-db-location) (unless (f-exists? org-roam-db-location)
(org-roam-db-sync)) (org-roam-db-sync))
(org-roam-node-find))) (org-roam-node-find)))