From 1e99ee6ff7f47db2052e226d7b071e31ff33b56c Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 4 Aug 2021 17:09:47 -0700 Subject: add LXC properties, :LXC{,-UNPRIV-ATTACH} connections, WITH-HOMEDIR Signed-off-by: Sean Whitton --- src/data.lisp | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'src/data.lisp') diff --git a/src/data.lisp b/src/data.lisp index 4962ae0..1b74338 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -469,7 +469,17 @@ properties, or data sources which return objects referencing existing files." :version (caddr triple)))) (defun get-local-data-cache-dir () - (merge-pathnames "consfigurator/data/" (uiop:xdg-cache-home))) + (merge-pathnames + "data/" + ;; A combinator like WITH-HOMEDIR might have temporarily set the HOME + ;; and/or XDG_CACHE_HOME environment variables, so use a cached value if we + ;; can find one. + (or (loop for conn = *connection* then (connection-parent conn) + while conn + when (subtypep (type-of conn) 'lisp-connection) + return (connection-connattr conn :consfigurator-cache)) + (connection-connattr + (establish-connection :local nil) :consfigurator-cache)))) ;;;; Passphrases -- cgit v1.2.3