diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2016-12-14 14:34:21 -0500 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2016-12-14 14:34:21 -0500 |
| commit | 66ccc65935c389942f1bc72e968846d8dab9951b (patch) | |
| tree | 42d80d45d73e8b7127291ef665fc35105c09a680 /lisp | |
| parent | 44a77d34c63fb4188edca6e1a875c9a1ec01f3f7 (diff) | |
| download | emacs-66ccc65935c389942f1bc72e968846d8dab9951b.tar.gz | |
Update standard image-dired thumbnail location
* lisp/image-dired.el (image-dired-thumb-name): Conform to the latest
standard: consider XDG_CACHE_HOME, falling back on ~/.cache.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/image-dired.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/image-dired.el b/lisp/image-dired.el index 1c99db333f5..066a9949166 100644 --- a/lisp/image-dired.el +++ b/lisp/image-dired.el @@ -587,9 +587,12 @@ the thumbnail file name unique. For per-directory storage, just add a subdirectory. For standard storage, produce the file name according to the Thumbnail Managing Standard." (cond ((eq 'standard image-dired-thumbnail-storage) - (expand-file-name - (concat "~/.thumbnails/normal/" - (md5 (concat "file://" (expand-file-name file))) ".png"))) + (let* ((xdg (getenv "XDG_CACHE_HOME")) + (dir (if (and xdg (file-name-absolute-p xdg)) + xdg "~/.cache"))) + (expand-file-name + (concat (md5 (concat "file://" (expand-file-name file))) ".png") + (expand-file-name "thumbnails/normal" dir)))) ((eq 'use-image-dired-dir image-dired-thumbnail-storage) (let* ((f (expand-file-name file)) (md5-hash |