aboutsummaryrefslogtreecommitdiff
path: root/lib/state.lisp
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-08-23 20:16:42 -0500
committerColin Okay <colin@cicadas.surf>2022-08-23 20:16:42 -0500
commit5a16537d72931db14ca9f7a67c7b8def7d3f51bb (patch)
tree84c551fd2f5ad0e11228b68d50dd71676e4dbc5a /lib/state.lisp
parenta371f89f8fefa20a823ce77e1c6a9ffc4a2f5cfd (diff)
[add] new generated api client code; updated client.lisp
Diffstat (limited to 'lib/state.lisp')
-rw-r--r--lib/state.lisp9
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/state.lisp b/lib/state.lisp
index e690f37..1f9f36b 100644
--- a/lib/state.lisp
+++ b/lib/state.lisp
@@ -160,6 +160,9 @@ user for some input if it does not."
(read-config-file)
(make-fresh-config)))
+;;; HOSTS
+
+(defvar *host* nil)
;;; STATE LOADING MACRO
@@ -169,18 +172,18 @@ sets the api's *host* variable. If BODY produces no errors, the "
`(let* ((*config* (ensure-config))
(*cache* (read-cache-file))
(*drafts* (read-drafts-file))
- (api:*host* (config-host *config*))
+ (*host* (config-host *config*))
(errorsp nil))
(unwind-protect
(handler-case
(progn
- (assert api:*host* () "ol must be configured with a server host.")
+ (assert *host* () "ol must be configured with a server host.")
(set-term-width)
,@body)
(dexador.error:http-request-failed (e)
(setf errorsp t)
(format *error-output* "Operation failed. The server at ~a returned with ~a~%"
- api:*host*
+ *host*
(dexador.error:response-status e)))
(error (e)
(setf errorsp t)