emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

refactor(lib): hoist new org-id-locations-file value

Browse source
This commit is contained in:
Henrik Lissner 2023-09-11 23:27:44 +02:00
parent 75d4046820
commit 7f3d5d54bd
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/lib/docs.el
View file

@ -426,13 +426,13 @@ This primes `org-mode' for reading."
(defvar doom-docs--id-locations nil) (defvar doom-docs--id-locations nil)
(defvar doom-docs--id-files nil) (defvar doom-docs--id-files nil)
(defvar doom-docs--id-location-file (file-name-concat doom-cache-dir "doom-docs-org-ids"))
;;;###autoload ;;;###autoload
(defun doom/reload-docs (&optional force) (defun doom/reload-docs (&optional force)
"Reload the ID locations in Doom's documentation and open docs buffers." "Reload the ID locations in Doom's documentation and open docs buffers."
(interactive (list 'interactive)) (interactive (list 'interactive))
(with-temp-buffer (with-temp-buffer
(let ((org-id-locations-file (let ((org-id-locations-file doom-docs--id-location-file)
(doom-path (file-truename doom-cache-dir) "doom-docs-org-ids"))
(org-id-track-globally t) (org-id-track-globally t)
org-agenda-files org-agenda-files
org-id-extra-files org-id-extra-files
@ -463,7 +463,7 @@ This primes `org-mode' for reading."
(let ((org-id-link-to-org-use-id t) (let ((org-id-link-to-org-use-id t)
(org-id-method 'uuid) (org-id-method 'uuid)
(org-id-track-globally t) (org-id-track-globally t)
(org-id-locations-file (doom-path doom-cache-dir "doom-docs-org-ids")) (org-id-locations-file doom-docs--id-location-file)
(org-id-locations doom-docs--id-locations) (org-id-locations doom-docs--id-locations)
(org-id-files doom-docs--id-files)) (org-id-files doom-docs--id-files))
(doom/reload-docs) (doom/reload-docs)
@ -486,7 +486,7 @@ Keeps track of its own IDs in `doom-docs-dir' and toggles `doom-docs-mode' when
(setq-local org-id-link-to-org-use-id t (setq-local org-id-link-to-org-use-id t
org-id-method 'uuid org-id-method 'uuid
org-id-track-globally t org-id-track-globally t
org-id-locations-file (doom-path doom-cache-dir "doom-docs-org-ids") org-id-locations-file doom-docs--id-location-file
org-id-locations doom-docs--id-locations org-id-locations doom-docs--id-locations
org-id-files doom-docs--id-files org-id-files doom-docs--id-files
org-num-max-level 3 org-num-max-level 3