From 13d628d008584dff9465a9fb48e4e57e74bf7643 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Fri, 18 Feb 2022 17:00:55 -0600
Subject: working on invite functions

---
 src/lib.lisp | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'src')

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
-- 
cgit v1.2.3