From 1f12dfda4aeb6d08af454d60caa5985b2bd5b1ba Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 28 Aug 2021 15:54:18 -0700 Subject: cache XDG_CACHE_HOME as a connattr This should provide a performance improvement. Signed-off-by: Sean Whitton --- src/connection.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/connection.lisp') diff --git a/src/connection.lisp b/src/connection.lisp index 782160a..9c1a291 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -227,6 +227,12 @@ login(1)). Tilde expansion works correctly." (failed-change "Failed to determine remote home directory.") (ensure-directory-pathname (stripln home))))) +(defmethod connection-connattr + ((connection connection) (k (eql :XDG-CACHE-HOME))) + (ensure-directory-pathname + (stripln + (connection-run connection "echo ${XDG_CACHE_HOME:-$HOME/.cache}" nil)))) + ;;;; Functions to access the slots of the current connection @@ -556,7 +562,7 @@ specification of POSIX ls(1))." (defun remote-consfigurator-cache-pathname (path) (merge-pathnames - path (car (runlines "echo ${XDG_CACHE_HOME:-$HOME/.cache}/consfigurator/")))) + path (merge-pathnames "consfigurator/" (get-connattr :XDG-CACHE-HOME)))) (defun readfile (path) (connection-readfile -- cgit v1.2.3