1.1--- a/lisp/bin/homer.lisp	Fri Jul 19 22:02:26 2024 -0400
     1.2+++ b/lisp/bin/homer.lisp	Sun Jul 21 16:22:22 2024 -0400
     1.3@@ -14,6 +14,12 @@
     1.4 (defvar *home-config*)
     1.5 (defvar *home-hidden-paths* (nconc *hidden-paths* (list "stash" "store" "readme.org" ".hgignore")))
     1.6 (defvar *homer-force* nil)
     1.7+
     1.8+(defun init-homer-vars ()
     1.9+  (setq *user* (sb-posix:getenv "USER")
    1.10+        *user-homedir* (user-homedir-pathname)
    1.11+        *default-user-homerc* (merge-pathnames ".homerc" *user-homedir*)))
    1.12+  
    1.13 (defclass home-config (sxp id)
    1.14   ((user :initform *user* :initarg :user :type string)
    1.15    (path :initform nil :initarg :path :type (or pathname null))
    1.16@@ -195,6 +201,7 @@
    1.17 (defun run ()
    1.18   (let ((*log-level* :info))
    1.19     (with-cli (opts cmds args) $cli
    1.20+      (init-homer-vars)
    1.21       (load-homerc)
    1.22       (do-cmd $cli)
    1.23       (debug-opts $cli))))