aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-21 15:20:22 -0600
committerColin Okay <okay@toyful.space>2022-02-21 15:20:22 -0600
commitd7b1a2774dc1b8ab3c166c8dc0332110d653ebe9 (patch)
tree85b13478f4ff3477bd9693202268c86cf1d5288c /src
parent14d7f7c425a04091e6982104f5c48d79bb528e89 (diff)
tweaking cli menu.
Diffstat (limited to 'src')
-rw-r--r--src/lib.lisp10
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)