From 66ccc65935c389942f1bc72e968846d8dab9951b Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Wed, 14 Dec 2016 14:34:21 -0500 Subject: [PATCH] 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. --- lisp/image-dired.el | 9 ++++++--- 1 file 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 -- 2.39.2