changeset 346: |
cf840165e1a8 |
parent 345: |
feab62701ad1 |
child 347: |
724218ecea4b |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Mon, 13 May 2024 22:01:27 -0400 |
files: |
lisp/lib/krypt/krypt.lisp |
description: |
return nil instead of error when no kryptrc |
1.1--- a/lisp/lib/krypt/krypt.lisp Mon May 13 21:58:28 2024 -0400
1.2+++ b/lisp/lib/krypt/krypt.lisp Mon May 13 22:01:27 2024 -0400
1.3@@ -40,5 +40,6 @@
1.4
1.5 (defun load-kryptrc (&optional (file *default-user-kryptrc*))
1.6 "Load a homerc configuration from FILE. Defaults to ~/.homerc."
1.7- (let ((form (file-read-forms file)))
1.8- (load-ast (make-instance 'krypt-config :ast form :path file :id (sxhash form)))))
1.9+ (unless (not (probe-file file))
1.10+ (let ((form (file-read-forms file)))
1.11+ (load-ast (make-instance 'krypt-config :ast form :path file :id (sxhash form))))))