diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-29 12:31:21 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-31 15:55:26 -0700 |
| commit | 030fa324859eb5b3e7b539c6e1dcbbb3fac1db4c (patch) | |
| tree | 0e8314faa3e16b20e9ecafd9ba42275d543d59d7 /src/data.lisp | |
| parent | 2248ee00ede423fc55791259099cbf7d5f57fcdc (diff) | |
| download | consfigurator-030fa324859eb5b3e7b539c6e1dcbbb3fac1db4c.tar.gz | |
use UIOP:XDG-CACHE-HOME
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
| -rw-r--r-- | src/data.lisp | 4 |
1 files changed, 1 insertions, 3 deletions
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 |