From 030fa324859eb5b3e7b539c6e1dcbbb3fac1db4c Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 29 Aug 2021 12:31:21 -0700 Subject: use UIOP:XDG-CACHE-HOME Signed-off-by: Sean Whitton --- src/data.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/data.lisp') diff --git a/src/data.lisp b/src/data.lisp index fe96809..fa814f0 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -470,9 +470,7 @@ properties, or data sources which return objects referencing existing files." :version (caddr triple)))) (defun get-local-data-cache-dir () - (ensure-directory-pathname - (strcat (or (getenv "XDG_CACHE_HOME") (strcat (getenv "HOME") "/.cache")) - "/consfigurator/data"))) + (merge-pathnames "consfigurator/data/" (uiop:xdg-cache-home))) ;;;; Passphrases -- cgit v1.2.3