(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*))))