diff options
Diffstat (limited to 'lib/state.lisp')
| -rw-r--r-- | lib/state.lisp | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lib/state.lisp b/lib/state.lisp index 676ff10..0f69ff3 100644 --- a/lib/state.lisp +++ b/lib/state.lisp @@ -19,7 +19,7 @@ ;;; Config Struct -(defstruct config +(defplist config (handle "") (api-token "") (host "") @@ -69,8 +69,7 @@ (defun write-config-to-disk () (print-to-file - (with-slots (handle api-token host shell) *config* - (list :handle handle :api-token api-token :host host :shell shell)) + *config* (config-file))) (defun write-cache-to-disk () @@ -79,9 +78,7 @@ (defun read-config-file () "Read a configuration from the location returned by CONFIG-FILE. NIL if there is no such file" - (a:when-let ((conf - (read-from-file (config-file)))) - (apply 'make-config conf))) + (read-from-file (config-file))) (defun read-cache-file () "Read the cache from the location returned by |