tweaking cli menu.

1 files changed, 9 insertions, 1 deletions

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)