awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-01 12:17:21 -05:00
Code Issues Packages Projects Releases Wiki Activity

(fix): support multidir with dirty db flag (#1216)

Browse Source
This commit is contained in:
Herbert Jones
2020-10-25 22:22:40 -05:00
committed by GitHub
parent bd8b5587f5
commit cffa0bd201
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
org-roam-db.el
View File

@ -85,7 +85,9 @@ value like `most-positive-fixnum'."
"Database connection to Org-roam database.") "Database connection to Org-roam database.")
(defvar org-roam-db-dirty nil (defvar org-roam-db-dirty nil
"Whether the org-roam database is dirty and requires an update.") "Whether the org-roam database is dirty and requires an update.
Contains pairs of `org-roam-directory' and `org-roam-db-location'
so that multi-directories are updated.")
;;;; Core Functions ;;;; Core Functions
@ -196,7 +198,8 @@ the current `org-roam-directory'."
(defun org-roam-db--mark-dirty () (defun org-roam-db--mark-dirty ()
"Mark the Org-roam database as dirty." "Mark the Org-roam database as dirty."
(setq org-roam-db-dirty t)) (add-to-list 'org-roam-db-dirty (list org-roam-directory org-roam-db-location)
nil #'equal))
;;;; Database API ;;;; Database API
;;;;; Initialization ;;;;; Initialization
@ -548,9 +551,9 @@ If FORCE, force a rebuild of the cache from scratch."
(defun org-roam-db-update-cache () (defun org-roam-db-update-cache ()
"Update the cache if the database is dirty." "Update the cache if the database is dirty."
(when org-roam-db-dirty (pcase-dolist (`(,org-roam-directory ,org-roam-db-location) org-roam-db-dirty)
(org-roam-db-build-cache) (org-roam-db-build-cache))
(setq org-roam-db-dirty nil))) (setq org-roam-db-dirty nil))
(provide 'org-roam-db) (provide 'org-roam-db)