awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-09-28 16:50:58 -05:00
Code Issues Packages Projects Releases Wiki Activity

use filenotify-recursive

Browse Source
This commit is contained in:
Jethro Kuan
2021-08-19 03:14:49 +08:00
parent 6135731eed
commit 0d0ae01684
5 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
org-roam-capture.el
View File

@@ -6,7 +6,7 @@
;; URL: https://github.com/org-roam/org-roam ;; URL: https://github.com/org-roam/org-roam
;; Keywords: org-mode, roam, convenience ;; Keywords: org-mode, roam, convenience
;; Version: 2.0.0 ;; Version: 2.0.0
;; Package-Requires: ((emacs "26.1") (dash "2.13") (f "0.17.2") (org "9.4") (emacsql "3.0.0") (emacsql-sqlite "1.0.0") (magit-section "2.90.1")) ;; Package-Requires: ((emacs "26.1") (dash "2.13") (f "0.17.2") (org "9.4") (emacsql "3.0.0") (emacsql-sqlite "1.0.0") (magit-section "2.90.1") (filenotify-recursive "0.0.1"))
;; This file is NOT part of GNU Emacs. ;; This file is NOT part of GNU Emacs.

13
org-roam-db.el
View File

@@ -6,7 +6,7 @@
;; URL: https://github.com/org-roam/org-roam ;; URL: https://github.com/org-roam/org-roam
;; Keywords: org-mode, roam, convenience ;; Keywords: org-mode, roam, convenience
;; Version: 2.0.0 ;; Version: 2.0.0
;; Package-Requires: ((emacs "26.1") (dash "2.13") (f "0.17.2") (org "9.4") (emacsql "3.0.0") (emacsql-sqlite "1.0.0") (magit-section "2.90.1")) ;; Package-Requires: ((emacs "26.1") (dash "2.13") (f "0.17.2") (org "9.4") (emacsql "3.0.0") (emacsql-sqlite "1.0.0") (magit-section "2.90.1") (filenotify-recursive "0.0.1"))
;; This file is NOT part of GNU Emacs. ;; This file is NOT part of GNU Emacs.
@@ -32,6 +32,8 @@
;;; Code: ;;; Code:
(require 'org-roam) (require 'org-roam)
(require 'filenotify) (require 'filenotify)
(require 'filenotify-recursive)
(defvar org-outline-path-cache) (defvar org-outline-path-cache)
;;; Options ;;; Options
@@ -585,7 +587,7 @@ database, see `org-roam-db-sync' command."
(remove-hook 'after-save-hook #'org-roam-db-autosync--try-update-on-save-h t))))))) (remove-hook 'after-save-hook #'org-roam-db-autosync--try-update-on-save-h t)))))))
(defvar org-roam-db-autosync--filenotify-descriptors (list) (defvar org-roam-db-autosync--filenotify-descriptors (list)
"An alist mapping watched Org-roam directories to `filenotify' descriptor.") "An alist mapping watched Org-roam directories to `filenotify-recursive' uuid.")
(defun org-roam-db-autosync--update-method () (defun org-roam-db-autosync--update-method ()
"Setup `org-roam-db-autosync-update-method' dependently on the mode's state." "Setup `org-roam-db-autosync-update-method' dependently on the mode's state."
@@ -595,8 +597,7 @@ database, see `org-roam-db-sync' command."
('filenotify ('filenotify
(cl-pushnew (cl-pushnew
(cons org-roam-directory (cons org-roam-directory
(file-notify-add-watch org-roam-directory '(change) (fnr-add-watch org-roam-directory '(change) #'org-roam-db-autosync--filenotify-update))
#'org-roam-db-autosync--filenotify-update))
org-roam-db-autosync--filenotify-descriptors)) org-roam-db-autosync--filenotify-descriptors))
('on-save ('on-save
(add-hook 'org-roam-find-file-hook #'org-roam-db-autosync--setup-update-on-save-h) (add-hook 'org-roam-find-file-hook #'org-roam-db-autosync--setup-update-on-save-h)
@@ -611,8 +612,8 @@ database, see `org-roam-db-sync' command."
('filenotify ('filenotify
(cl-loop for entry in org-roam-db-autosync--filenotify-descriptors (cl-loop for entry in org-roam-db-autosync--filenotify-descriptors
for _dir = (car entry) for _dir = (car entry)
for desc = (cdr entry) for uuid = (cdr entry)
do (file-notify-rm-watch desc)) do (fnr-rm-watch uuid))
(setq org-roam-db-autosync--filenotify-descriptors nil)) (setq org-roam-db-autosync--filenotify-descriptors nil))
('on-save ('on-save
(remove-hook 'org-roam-find-file-hook #'org-roam-db-autosync--setup-update-on-save-h) (remove-hook 'org-roam-find-file-hook #'org-roam-db-autosync--setup-update-on-save-h)

2
org-roam-migrate.el
View File

@@ -6,7 +6,7 @@
;; URL: https://github.com/org-roam/org-roam ;; URL: https://github.com/org-roam/org-roam
;; Keywords: org-mode, roam, convenience ;; Keywords: org-mode, roam, convenience
;; Version: 2.0.0 ;; Version: 2.0.0
;; Package-Requires: ((emacs "26.1") (dash "2.13") (f "0.17.2") (org "9.4") (emacsql "3.0.0") (emacsql-sqlite "1.0.0") (magit-section "2.90.1")) ;; Package-Requires: ((emacs "26.1") (dash "2.13") (f "0.17.2") (org "9.4") (emacsql "3.0.0") (emacsql-sqlite "1.0.0") (magit-section "2.90.1") (filenotify-recursive "0.0.1"))
;; This file is NOT part of GNU Emacs. ;; This file is NOT part of GNU Emacs.

2
org-roam-mode.el
View File

@@ -6,7 +6,7 @@
;; URL: https://github.com/org-roam/org-roam ;; URL: https://github.com/org-roam/org-roam
;; Keywords: org-mode, roam, convenience ;; Keywords: org-mode, roam, convenience
;; Version: 2.0.0 ;; Version: 2.0.0
;; Package-Requires: ((emacs "26.1") (dash "2.13") (f "0.17.2") (org "9.4") (emacsql "3.0.0") (emacsql-sqlite "1.0.0") (magit-section "2.90.1")) ;; Package-Requires: ((emacs "26.1") (dash "2.13") (f "0.17.2") (org "9.4") (emacsql "3.0.0") (emacsql-sqlite "1.0.0") (magit-section "2.90.1") (filenotify-recursive "0.0.1"))
;; This file is NOT part of GNU Emacs. ;; This file is NOT part of GNU Emacs.

2
org-roam.el
View File

@@ -6,7 +6,7 @@
;; URL: https://github.com/org-roam/org-roam ;; URL: https://github.com/org-roam/org-roam
;; Keywords: org-mode, roam, convenience ;; Keywords: org-mode, roam, convenience
;; Version: 2.0.0 ;; Version: 2.0.0
;; Package-Requires: ((emacs "26.1") (dash "2.13") (f "0.17.2") (org "9.4") (emacsql "3.0.0") (emacsql-sqlite "1.0.0") (magit-section "2.90.1")) ;; Package-Requires: ((emacs "26.1") (dash "2.13") (f "0.17.2") (org "9.4") (emacsql "3.0.0") (emacsql-sqlite "1.0.0") (magit-section "2.90.1") (filenotify-recursive "0.0.1"))
;; This file is NOT part of GNU Emacs. ;; This file is NOT part of GNU Emacs.