aboutsummaryrefslogtreecommitdiff
path: root/src/lib.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib.lisp')
-rw-r--r--src/lib.lisp19
1 files changed, 3 insertions, 16 deletions
diff --git a/src/lib.lisp b/src/lib.lisp
index a54cf7f..0ae2b8b 100644
--- a/src/lib.lisp
+++ b/src/lib.lisp
@@ -63,27 +63,14 @@
(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))))
+ (:host (host))
+ (format t "Invite Code: ~a~%"
+ (getf (jonathan:parse (api:post--make-invite :token (api-token))) :code))))
(defun login (user pass)
(ensure-config)