|
@@ -29,12 +29,18 @@
|
|
|
|
|
|
(require 'org-compat)
|
|
|
(require 'org-id)
|
|
|
+(require 'xdg)
|
|
|
|
|
|
(declare-function org-back-to-heading "org" (&optional invisible-ok))
|
|
|
(declare-function org-next-visible-heading "org" (arg))
|
|
|
(declare-function org-at-heading-p "org" (&optional invisible-not-ok))
|
|
|
|
|
|
-(defvar org-persist-path (org-file-name-concat user-emacs-directory "org-persist/")
|
|
|
+(defvar org-persist-path (org-file-name-concat
|
|
|
+ (let ((cache-dir (xdg-cache-home)))
|
|
|
+ (if (seq-empty-p cache-dir)
|
|
|
+ user-emacs-directory
|
|
|
+ cache-dir))
|
|
|
+ "org-persist/")
|
|
|
"Directory where the data is stored.")
|
|
|
|
|
|
(defvar org-persist-index-file "index"
|