temporarily adding generated client code

2 files changed, 152 insertions, 0 deletions

diff --git a/oneliners.api-client.asd b/oneliners.api-client.asd
new file mode 100644
index 0000000..3b75288
--- /dev/null
+++ b/oneliners.api-client.asd
@@ -0,0 +1,3 @@
+(asdf:defsystem #:ONELINERS.API-CLIENT
+   :depends-on (#:dexador)
+   :components ((:file "oneliners.api-client")))
\ No newline at end of file
diff --git a/oneliners.api-client.lisp b/oneliners.api-client.lisp
new file mode 100644
index 0000000..d3142fb
--- /dev/null
+++ b/oneliners.api-client.lisp
@@ -0,0 +1,149 @@
+
+(defpackage #:lazybones-client.shared 
+   (:intern #:req-string)
+   (:export #:*host* #:*body* #:*headers* #:*cookies*))
+(defpackage #:ONELINERS.API-CLIENT 
+   (:use :cl :lazybones-client.shared) 
+   (:export #:*host* #:*body* #:*headers* #:*cookies* #:request-with
+            #:POST--AUTH
+            #:POST--ONELINER
+            #:PUT--ONELINER-ONELINER
+            #:GET--SEARCH))
+(in-package :ONELINERS.API-CLIENT)
+
+
+(defvar *host* nil
+       "The host to which the client will send its requests.")
+
+(defvar *body* nil
+  "Body passed to client post, put, and patch requests")
+
+(defvar *cookies* nil
+  "An instance of CL-COOKIE:COOKIE-JAR.")
+
+(defvar *headers* nil
+  "A liist of (header-name . header-value) pairs.")
+
+(defmacro request-with ((&key host body headers content-type cookies) &body forms)
+    "Make a request in a specific context.
+
+HOST is a string, the hostname where the request will be sent. Defaults
+to *HOST*.
+
+BODY should be a string, an alist, or a pathname. Default to *BODY*
+
+HEADERS should be an ALIST of (header-name . header-value) string
+pairs. Defaults to *HEADERS*.
+
+CONTENT-TYPE is a convenience for supplying just the Content-Type
+header.
+
+COOKIES should be an instance of CL-COOKIE:COOKIE-JAR. Defaults to
+*COOKIES*.
+"
+    (let ((content-type-var (gensym))) 
+      `(let ((*host* (or ,host *host*))
+             (*body* (or ,body *body*))
+             (*headers* (or ,headers *headers*))
+             (*cookies* (or ,cookies *cookies*))
+             (,content-type-var ,content-type))
+         (when ,content-type-var
+           (push (cons "Content-Type" ,content-type-var) *headers*))
+         ,@forms)))
+
+
+(DEFUN POST--AUTH ()
+  "Requests an authorization token"
+  (LET ((LAZYBONES-CLIENT.SHARED::REQ-STRING
+         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST*
+                (FORMAT NIL "/auth") (WHEN (OR) (LIST "?")))))
+    (IF LAZYBONES-CLIENT.SHARED:*BODY*
+        (DEXADOR:POST LAZYBONES-CLIENT.SHARED::REQ-STRING :CONTENT
+         LAZYBONES-CLIENT.SHARED:*BODY* :COOKIE-JAR
+         LAZYBONES-CLIENT.SHARED:*COOKIES* :HEADERS
+         LAZYBONES-CLIENT.SHARED:*HEADERS*)
+        (DEXADOR:POST LAZYBONES-CLIENT.SHARED::REQ-STRING :COOKIE-JAR
+         LAZYBONES-CLIENT.SHARED:*COOKIES* :HEADERS
+         LAZYBONES-CLIENT.SHARED:*HEADERS*)))) 
+
+
+(DEFUN POST--ONELINER ()
+  "Adds a new oneliner entry to the wiki database."
+  (LET ((LAZYBONES-CLIENT.SHARED::REQ-STRING
+         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST*
+                (FORMAT NIL "/oneliner") (WHEN (OR) (LIST "?")))))
+    (IF LAZYBONES-CLIENT.SHARED:*BODY*
+        (DEXADOR:POST LAZYBONES-CLIENT.SHARED::REQ-STRING :CONTENT
+         LAZYBONES-CLIENT.SHARED:*BODY* :COOKIE-JAR
+         LAZYBONES-CLIENT.SHARED:*COOKIES* :HEADERS
+         LAZYBONES-CLIENT.SHARED:*HEADERS*)
+        (DEXADOR:POST LAZYBONES-CLIENT.SHARED::REQ-STRING :COOKIE-JAR
+         LAZYBONES-CLIENT.SHARED:*COOKIES* :HEADERS
+         LAZYBONES-CLIENT.SHARED:*HEADERS*)))) 
+
+
+(DEFUN PUT--ONELINER-ONELINER (ONELINER)
+  "Updates a oneliner entry in the wiki database."
+  (LET ((LAZYBONES-CLIENT.SHARED::REQ-STRING
+         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST*
+                (FORMAT NIL "/oneliner/~a" ONELINER) (WHEN (OR) (LIST "?")))))
+    (IF LAZYBONES-CLIENT.SHARED:*BODY*
+        (DEXADOR:PUT LAZYBONES-CLIENT.SHARED::REQ-STRING :CONTENT
+         LAZYBONES-CLIENT.SHARED:*BODY* :COOKIE-JAR
+         LAZYBONES-CLIENT.SHARED:*COOKIES* :HEADERS
+         LAZYBONES-CLIENT.SHARED:*HEADERS*)
+        (DEXADOR:PUT LAZYBONES-CLIENT.SHARED::REQ-STRING :COOKIE-JAR
+         LAZYBONES-CLIENT.SHARED:*COOKIES* :HEADERS
+         LAZYBONES-CLIENT.SHARED:*HEADERS*)))) 
+
+
+(DEFUN GET--SEARCH
+       (&KEY COMMANDS KEYWORDS LIMIT PAGE NEXTPAGE NOTFLAGGED ONLYAUDITED)
+  "A search endpoint returning a JSON encoded array of Oneliner Entries.
+
+**Note**: either command or keywords are required.
+"
+  (LET ((LAZYBONES-CLIENT.SHARED::REQ-STRING
+         (APPLY #'CONCATENATE 'STRING LAZYBONES-CLIENT.SHARED:*HOST*
+                (FORMAT NIL "/search")
+                (WHEN
+                    (OR COMMANDS KEYWORDS LIMIT PAGE NEXTPAGE NOTFLAGGED
+                        ONLYAUDITED)
+                  (LIST "?"
+                        (IF COMMANDS
+                            (CONCATENATE 'STRING (SYMBOL-NAME 'COMMANDS) "="
+                                         (FORMAT NIL "~a" COMMANDS))
+                            "")
+                        (IF KEYWORDS
+                            (CONCATENATE 'STRING "&" (SYMBOL-NAME 'KEYWORDS)
+                                         "=" (FORMAT NIL "~a" KEYWORDS))
+                            "")
+                        (IF LIMIT
+                            (CONCATENATE 'STRING "&" (SYMBOL-NAME 'LIMIT) "="
+                                         (FORMAT NIL "~a" LIMIT))
+                            "")
+                        (IF PAGE
+                            (CONCATENATE 'STRING "&" (SYMBOL-NAME 'PAGE) "="
+                                         (FORMAT NIL "~a" PAGE))
+                            "")
+                        (IF NEXTPAGE
+                            (CONCATENATE 'STRING "&" (SYMBOL-NAME 'NEXTPAGE)
+                                         "=" (FORMAT NIL "~a" NEXTPAGE))
+                            "")
+                        (IF NOTFLAGGED
+                            (CONCATENATE 'STRING "&" (SYMBOL-NAME 'NOTFLAGGED)
+                                         "=" (FORMAT NIL "~a" NOTFLAGGED))
+                            "")
+                        (IF ONLYAUDITED
+                            (CONCATENATE 'STRING "&" (SYMBOL-NAME 'ONLYAUDITED)
+                                         "=" (FORMAT NIL "~a" ONLYAUDITED))
+                            ""))))))
+    (IF LAZYBONES-CLIENT.SHARED:*BODY*
+        (DEXADOR:GET LAZYBONES-CLIENT.SHARED::REQ-STRING :CONTENT
+         LAZYBONES-CLIENT.SHARED:*BODY* :COOKIE-JAR
+         LAZYBONES-CLIENT.SHARED:*COOKIES* :HEADERS
+         LAZYBONES-CLIENT.SHARED:*HEADERS*)
+        (DEXADOR:GET LAZYBONES-CLIENT.SHARED::REQ-STRING :COOKIE-JAR
+         LAZYBONES-CLIENT.SHARED:*COOKIES* :HEADERS
+         LAZYBONES-CLIENT.SHARED:*HEADERS*)))) 
+