diff options
Diffstat (limited to 'src/connection/local.lisp')
-rw-r--r-- | src/connection/local.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/connection/local.lisp b/src/connection/local.lisp index 745c40c..4bd272e 100644 --- a/src/connection/local.lisp +++ b/src/connection/local.lisp @@ -66,3 +66,8 @@ root Lisp is running on, as the root Lisp's uid.")) :element-type type) (copy-stream-to-stream content stream :element-type type))))) (run-program `("mv" ,temp ,path)))) + +(defmethod connection-connattr + ((connection local-connection) (k (eql :XDG-CACHE-HOME))) + (ensure-directory-pathname (or (getenv "XDG_CACHE_HOME") + (strcat (getenv "HOME") "/.cache")))) |