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): change locals to hash tables (#196)

Browse Source 
better support emacs 25
This commit is contained in:
Daniel Koudouna
2020-02-27 02:34:54 +00:00
committed by GitHub
parent 685aa2afcd
commit d086d1675d
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
org-roam.el
View File

@ -182,7 +182,7 @@ If called interactively, then PARENTS is non-nil."
(defvar org-roam-last-window nil (defvar org-roam-last-window nil
"Last window `org-roam' was called from.") "Last window `org-roam' was called from.")
(defvar org-roam--cache nil (defvar org-roam--cache (make-hash-table :test 'equal)
"The list of cache separated by directory.") "The list of cache separated by directory.")
(defvar-local org-roam--local-cache-ref nil (defvar-local org-roam--local-cache-ref nil
@ -200,12 +200,11 @@ as a unique key."
(defmacro org-roam--get-local (name) (defmacro org-roam--get-local (name)
"Get a variable that is local to the current org-roam-directory." "Get a variable that is local to the current org-roam-directory."
`(alist-get (org-roam-directory-normalized) ,name nil nil #'equal)) `(gethash (org-roam-directory-normalized) ,name nil))
(defmacro org-roam--set-local (name value) (defmacro org-roam--set-local (name value)
"Set a variable that is local to the current org-roam-directory." "Set a variable that is local to the current org-roam-directory."
`(setf (alist-get (org-roam-directory-normalized) ,name nil nil #'equal) `(puthash (org-roam-directory-normalized) ,value ,name))
,value))
(defun org-roam--get-directory-cache () (defun org-roam--get-directory-cache ()
"Get the cache object for the current org-roam-directory." "Get the cache object for the current org-roam-directory."
@ -438,7 +437,7 @@ If PREFIX, downcase the title before insertion."
(when-let ((name (completing-read "Choose a buffer: " names-and-buffers))) (when-let ((name (completing-read "Choose a buffer: " names-and-buffers)))
(switch-to-buffer (cdr (assoc name names-and-buffers)))))) (switch-to-buffer (cdr (assoc name names-and-buffers))))))
(defvar org-roam--ongoing-async-build nil (defvar org-roam--ongoing-async-build (make-hash-table :test 'equal)
"Prevent multiple async cache builds. This can happen when "Prevent multiple async cache builds. This can happen when
restoring a session or loading multiple org-roam files before a restoring a session or loading multiple org-roam files before a
build has completed.") build has completed.")