aboutsummaryrefslogtreecommitdiff
path: root/src/lib.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib.lisp')
-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)