From c2475ad2a120f67a2dd373d1e720e4dac77d1d7e Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 18 Feb 2022 18:51:47 -0600 Subject: added paramater token to api client functions --- src/lib.lisp | 19 +++---------------- 1 file changed, 3 insertions(+), 16 deletions(-) (limited to 'src/lib.lisp') 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) -- cgit v1.2.3