# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1715649375 14400
# Node ID 6c02d3d7732660a16cdef64e3d07864201972719
# Parent  56826abc2d56065bcbbad7ef42b7fa197f8fd254
bugfix

diff -r 56826abc2d56 -r 6c02d3d77326 lisp/bin/homer.lisp
--- a/lisp/bin/homer.lisp	Mon May 13 21:13:46 2024 -0400
+++ b/lisp/bin/homer.lisp	Mon May 13 21:16:15 2024 -0400
@@ -58,12 +58,13 @@
         
 (defun load-homerc (&optional (file *default-user-homerc*))
   "Load a homerc configuration from FILE. Defaults to ~/.homerc."
-  (let ((form (file-read-forms file)))
-    (setq *home-config* (load-ast (make-instance 'home-config :ast form :path file :id (sxhash form))))
-    (with-slots (src) *home-config*
-      (if src
-          (setf src (pathname src))
-          (setf src (pathname (sb-posix:getenv "HOMER")))))))
+  (unless (null (probe-file file))
+    (let ((form (file-read-forms file)))
+      (setq *home-config* (load-ast (make-instance 'home-config :ast form :path file :id (sxhash form))))
+      (with-slots (src) *home-config*
+        (if src
+            (setf src (pathname src))
+            (setf src (pathname (sb-posix:getenv "HOMER"))))))))
 
 ;;; CLI
 (defopt homer-help (print-help $cli))