working on invite functions

1 files changed, 20 insertions, 0 deletions

diff --git a/src/lib.lisp b/src/lib.lisp
index 720ff85..a54cf7f 100644
--- a/src/lib.lisp
+++ b/src/lib.lisp
@@ -63,8 +63,28 @@
   (when (uiop:file-exists-p (last-search-file))
     (nth n (uiop:read-file-form (last-search-file)))))
 
+(defun make-cookie-from-api-token ()
+  (a:when-let (token (api-token)) 
+    (let ((cookies (cl-cookie:make-cookie-jar)))
+      (cl-cookie:merge-cookies
+       cookies
+       (list 
+        (cl-cookie:make-cookie
+         :name "olauthtoken"
+         :value token
+         :path "/"
+         :domain "localhost")))
+      cookies)))
+
 ;;; API REQUEST FUNCTIONS
 
+(defun request-invite-code ()
+  (ensure-config)
+  (api:request-with
+      (:host (host)
+       :cookies (make-cookie-from-api-token))
+    (format t "Invite Code: ~a~%" (getf  (jonathan:parse (api:post--make-invite)) :code))))
+
 (defun login (user pass)
   (ensure-config)
   (a:when-let (response (jonathan:parse