From d7b1a2774dc1b8ab3c166c8dc0332110d653ebe9 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 21 Feb 2022 15:20:22 -0600
Subject: tweaking cli menu.

---
 src/lib.lisp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src/lib.lisp')

diff --git a/src/lib.lisp b/src/lib.lisp
index 332dd07..3dd6e7d 100644
--- a/src/lib.lisp
+++ b/src/lib.lisp
@@ -140,7 +140,7 @@ the directories that appear in the value of that variable."
   (ensure-config)
   (api:request-with
       (:host (host))
-    (let ((invite (api:post--invite :token (api-token))))
+    (let ((invite (jonathan:parse (api:post--invite :token (api-token)))))
       (format t "Invite Code: ~a~%Expires: ~a~%"
               (getf invite :code)
               (getf invite :expires)))))
@@ -166,6 +166,13 @@ the directories that appear in the value of that variable."
     (api:post--invite-redeem-code token)
     (format t "Account made for ~a. You may log in now~%" name)))
 
+(defun revoke-access ()
+  (ensure-config)
+  (api:request-with
+      (:host (host))
+    (api:delete--access-access  (api-token) :token (api-token))))
+
+
 (defun cache-search-results-to-last-search-file (results)
   (with-open-file (output (last-search-file) :direction :output :if-exists :supersede)
     (print results output)))
@@ -180,6 +187,7 @@ the directories that appear in the value of that variable."
           (getf oneliner :brief))
   (format t "~%       ~a~%~%" (getf oneliner :oneliner)))
 
+
 (defun search-for-oneliners (terms limit not-flagged-p)
   (assert (loop for term in terms never (find #\, term) ))
   (ensure-config)
-- 
cgit v1.2.3