浏览代码

Use XDG cache dir as default dir for cache persistance

* lisp/org-persist.el (org-persist-path): Change default dir to XDG
cache dir and fall back to `user-emacs-directory' as the last resort.
Ihor Radchenko 3 年之前
父节点
当前提交
eeb04504ef
共有 1 个文件被更改,包括 7 次插入1 次删除
  1. 7 1
      lisp/org-persist.el

+ 7 - 1
lisp/org-persist.el

@@ -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"