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

(experimental): react to directory related events in the database

Browse Source 
With filenotify events related to subdirectories, automatically
invalidate no longer valid entries and add the new ones as they appear.
This commit is contained in:
Wetlize
2021-08-23 01:09:44 +03:00
parent 1c3d3098c7
commit 9401fad1b2
1 changed files with 30 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
org-roam-db.el
View File

@ -634,9 +634,36 @@ be on of the values from `org-roam-db-autosync-update-method'."
(defun org-roam-db-autosync--filenotify-update (event) (defun org-roam-db-autosync--filenotify-update (event)
"Update Org-roam's database according to EVENT sent by `filenotify'." "Update Org-roam's database according to EVENT sent by `filenotify'."
(cl-destructuring-bind (_descriptor _action &rest files) event (cl-destructuring-bind (_descriptor action &rest files) event
(mapc (lambda (f) (when (org-roam-file-p f) (org-roam-db-update-file f))) (cond
files))) ((cl-find-if #'org-roam-file-p files)
(mapc #'org-roam-db-update-file files))
((memq action '(created deleted renamed))
(apply (intern (format "org-roam-db-autosync--update-%s-dir" action)) files)))))
(defun org-roam-db-autosync--update-created-dir (dir)
"Add entries from Org-roam files under DIR to the database."
(when (file-directory-p dir)
(let ((files (let ((org-roam-directory dir))
(org-roam-list-files))))
(emacsql-with-transaction (org-roam-db)
(mapc #'org-roam-db-update-file files)))))
(defun org-roam-db-autosync--update-deleted-dir (dir)
"Invalidate entries related to Org-roam files under DIR from the database."
(let ((dir (thread-first dir
;; Ensure that separator is present in the name
(directory-file-name)
(concat (f-path-separator))
;; Follow the same format as the rest of the files in the database
(expand-file-name))))
(org-roam-db-query [:delete :from files :where (like file $s1)]
(concat dir "%"))))
(defun org-roam-db-autosync--update-renamed-dir (old-name new-name)
"Invalidate and then add files renamed from OLD-NAME directory to NEW-NAME."
(org-roam-db-autosync--update-deleted-dir old-name)
(org-roam-db-autosync--update-created-dir new-name))
(defun org-roam-db-autosync--delete-file-a (file &optional _trash) (defun org-roam-db-autosync--delete-file-a (file &optional _trash)
"Maintain cache consistency when file deletes. "Maintain cache consistency when file deletes.