aboutsummaryrefslogtreecommitdiff
path: root/lib/state.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lib/state.lisp')
-rw-r--r--lib/state.lisp9
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