changed the variable syntax in the oneliner runner

1 files changed, 18 insertions, 18 deletions

diff --git a/oneliners.api-client.lisp b/oneliners.api-client.lisp
index 5fcaa92..079f672 100644
--- a/oneliners.api-client.lisp
+++ b/oneliners.api-client.lisp
@@ -5,15 +5,15 @@
 (defpackage #:ONELINERS.API-CLIENT 
    (:use :cl :lazybones-client.shared) 
    (:export #:*host* #:*body* #:*headers* #:*cookies* #:request-with
-            #:GET--ONELINERS
-            #:PUT--ONELINER-ENTRY-FLAG
-            #:PATCH--ONELINER-ENTRY-EDIT
-            #:PUT--ONELINER-ONELINER-LOCKED
-            #:POST--ONELINER
-            #:POST--INVITE
-            #:DELETE--ACCESS-ACCESS
-            #:POST--ACCESS
-            #:POST--INVITE-REDEEM-CODE))
+ #:GET--ONELINERS
+#:PUT--ONELINER-ENTRY-FLAG
+#:PATCH--ONELINER-ENTRY-EDIT
+#:PUT--ONELINER-ONELINER-LOCKED
+#:POST--ONELINER
+#:POST--INVITE
+#:DELETE--ACCESS-ACCESS
+#:POST--ACCESS
+#:POST--INVITE-REDEEM-CODE))
 (in-package :ONELINERS.API-CLIENT)
 
 
@@ -67,7 +67,7 @@ COOKIES should be an instance of CL-COOKIE:COOKIE-JAR. Defaults to
 Entries. TAGS cannot be empty. Returns a [Search
 Result](#search-result) object."
   (LET ((LAZYBONES-CLIENT.SHARED::REQ-STRING
-         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST*
+         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST* "/api"
                 (FORMAT NIL "/oneliners")
                 (WHEN (OR TAGS LIMIT NOTFLAGGED)
                   (LIST "?"
@@ -91,7 +91,7 @@ Result](#search-result) object."
 (DEFUN PUT--ONELINER-ENTRY-FLAG (ENTRY &KEY TOKEN VALUE)
   "Flag the oneliner for review."
   (LET ((LAZYBONES-CLIENT.SHARED::REQ-STRING
-         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST*
+         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST* "/api"
                 (FORMAT NIL "/oneliner/~a/flag" ENTRY)
                 (WHEN (OR TOKEN VALUE)
                   (LIST "?"
@@ -116,7 +116,7 @@ Result](#search-result) object."
 (DEFUN PATCH--ONELINER-ENTRY-EDIT (ENTRY &KEY TOKEN)
   "Edit the fields of a oneliner."
   (LET ((LAZYBONES-CLIENT.SHARED::REQ-STRING
-         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST*
+         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST* "/api"
                 (FORMAT NIL "/oneliner/~a/edit" ENTRY)
                 (WHEN (OR TOKEN)
                   (LIST "?"
@@ -137,7 +137,7 @@ Result](#search-result) object."
 (DEFUN PUT--ONELINER-ONELINER-LOCKED (ONELINER &KEY TOKEN VALUE)
   "Sets the locked value of the specified oneliner"
   (LET ((LAZYBONES-CLIENT.SHARED::REQ-STRING
-         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST*
+         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST* "/api"
                 (FORMAT NIL "/oneliner/~a/locked" ONELINER)
                 (WHEN (OR TOKEN VALUE)
                   (LIST "?"
@@ -162,7 +162,7 @@ Result](#search-result) object."
 (DEFUN POST--ONELINER (&KEY TOKEN)
   "Make a new [oneliner](#oneliner)."
   (LET ((LAZYBONES-CLIENT.SHARED::REQ-STRING
-         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST*
+         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST* "/api"
                 (FORMAT NIL "/oneliner")
                 (WHEN (OR TOKEN)
                   (LIST "?"
@@ -183,7 +183,7 @@ Result](#search-result) object."
 (DEFUN POST--INVITE (&KEY TOKEN)
   "On success, return an object containing a new [invite token](#invite-token)."
   (LET ((LAZYBONES-CLIENT.SHARED::REQ-STRING
-         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST*
+         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST* "/api"
                 (FORMAT NIL "/invite")
                 (WHEN (OR TOKEN)
                   (LIST "?"
@@ -204,7 +204,7 @@ Result](#search-result) object."
 (DEFUN DELETE--ACCESS-ACCESS (ACCESS &KEY TOKEN)
   "Revoke access of CONTRIBUTOR"
   (LET ((LAZYBONES-CLIENT.SHARED::REQ-STRING
-         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST*
+         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST* "/api"
                 (FORMAT NIL "/access/~a" ACCESS)
                 (WHEN (OR TOKEN)
                   (LIST "?"
@@ -220,7 +220,7 @@ Result](#search-result) object."
 (DEFUN POST--ACCESS ()
   "Authenticate a contributor and reply with an [API token](#access-token)"
   (LET ((LAZYBONES-CLIENT.SHARED::REQ-STRING
-         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST*
+         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST* "/api"
                 (FORMAT NIL "/access") NIL)))
     (IF LAZYBONES-CLIENT.SHARED:*BODY*
         (DEXADOR:POST LAZYBONES-CLIENT.SHARED::REQ-STRING :CONTENT
@@ -235,7 +235,7 @@ Result](#search-result) object."
 (DEFUN POST--INVITE-REDEEM-CODE (CODE)
   "Redeem an [invite code](#invite-code) and create a new [contributor](#new-contributor-post-body)"
   (LET ((LAZYBONES-CLIENT.SHARED::REQ-STRING
-         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST*
+         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST* "/api"
                 (FORMAT NIL "/invite/redeem/~a" CODE) NIL)))
     (IF LAZYBONES-CLIENT.SHARED:*BODY*
         (DEXADOR:POST LAZYBONES-CLIENT.SHARED::REQ-STRING :CONTENT