# HG changeset patch # User Richard Westhaver # Date 1715652087 14400 # Node ID cf840165e1a89cfe1656a567658cbb1e45110ca5 # Parent feab62701ad15dc3bdd37fa0ce4e60972676888c return nil instead of error when no kryptrc diff -r feab62701ad1 -r cf840165e1a8 lisp/lib/krypt/krypt.lisp --- a/lisp/lib/krypt/krypt.lisp Mon May 13 21:58:28 2024 -0400 +++ b/lisp/lib/krypt/krypt.lisp Mon May 13 22:01:27 2024 -0400 @@ -40,5 +40,6 @@ (defun load-kryptrc (&optional (file *default-user-kryptrc*)) "Load a homerc configuration from FILE. Defaults to ~/.homerc." - (let ((form (file-read-forms file))) - (load-ast (make-instance 'krypt-config :ast form :path file :id (sxhash form))))) + (unless (not (probe-file file)) + (let ((form (file-read-forms file))) + (load-ast (make-instance 'krypt-config :ast form :path file :id (sxhash form))))))