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

Revert "(fix)db: update atime on file access (#2174)"

Browse Source 
This reverts commit b2d9543fa2.
This commit is contained in:
Jethro Kuan
2022-05-11 22:19:05 -07:00
parent b2d9543fa2
commit 455f139d3e
2 changed files with 1 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
org-roam-db.el
View File

@ -695,19 +695,6 @@ If FORCE, force a rebuild of the cache from scratch."
(lwarn 'org-roam :error "Failed to process %s with error %s, skipping..."
file (error-message-string err))))))))
(defun org-roam-db--update-file-atime-h ()
"Update atime in the files table on file-access."
(let* ((f (buffer-file-name (buffer-base-buffer)))
(file-in-db-p (> (caar (org-roam-db-query [:select (funcall count file) :from files
:where (= file $s1)] f)) 0))
(new-atime (file-attribute-access-time (file-attributes f))))
(when file-in-db-p
(org-roam-db-query [:update (atime)
:in files
:values $v1
:where (= file $s2)]
[new-atime] f))))
;;;###autoload
(define-minor-mode org-roam-db-autosync-mode
"Global minor mode to keep your Org-roam session automatically synchronized.
@ -725,14 +712,12 @@ database, see `org-roam-db-sync' command."
(cond
(enabled
(add-hook 'find-file-hook #'org-roam-db-autosync--setup-file-h)
(add-hook 'find-file-hook #'org-roam-db--update-file-atime-h)
(add-hook 'kill-emacs-hook #'org-roam-db--close-all)
(advice-add #'rename-file :after #'org-roam-db-autosync--rename-file-a)
(advice-add #'delete-file :before #'org-roam-db-autosync--delete-file-a)
(org-roam-db-sync))
(t
(remove-hook 'find-file-hook #'org-roam-db-autosync--setup-file-h)
(remove-hook 'find-file-hook #'org-roam-db--update-file-atime-h)
(remove-hook 'kill-emacs-hook #'org-roam-db--close-all)
(advice-remove #'rename-file #'org-roam-db-autosync--rename-file-a)
(advice-remove #'delete-file #'org-roam-db-autosync--delete-file-a)