diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-09 12:59:22 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-23 12:31:01 -0700 |
| commit | 614f79f7c6550de6802dad1d61f37eb5c8f6f11f (patch) | |
| tree | 2dff711b6c597a2264129fb6aa061d402fd8040c /src/connection.lisp | |
| parent | dee05622a94e2803d232892b376aba70328c21e6 (diff) | |
| download | consfigurator-614f79f7c6550de6802dad1d61f37eb5c8f6f11f.tar.gz | |
rename :XDG-CACHE-HOME connattr to :XDG_CACHE_HOME
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection.lisp')
| -rw-r--r-- | src/connection.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 370d146..9a7584f 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -245,7 +245,7 @@ login(1)). Tilde expansion works correctly." (ensure-directory-pathname (stripln home))))) (defmethod connection-connattr - ((connection connection) (k (eql :XDG-CACHE-HOME))) + ((connection connection) (k (eql :XDG_CACHE_HOME))) (let ((env (stripln (connection-run connection "echo $XDG_CACHE_HOME" nil)))) (if (plusp (length env)) (ensure-directory-pathname env) @@ -255,7 +255,7 @@ login(1)). Tilde expansion works correctly." (defmethod connection-connattr ((connection connection) (k (eql :consfigurator-cache))) (merge-pathnames "consfigurator/" - (connection-connattr connection :XDG-CACHE-HOME))) + (connection-connattr connection :XDG_CACHE_HOME))) ;;;; Functions to access the slots of the current connection |