aboutsummaryrefslogtreecommitdiff
path: root/src/lib.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib.lisp')
-rw-r--r--src/lib.lisp20
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