changelog shortlog graph tags branches files raw help

Mercurial > core / changeset: return nil instead of error when no kryptrc

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))))))