diff options
Diffstat (limited to 'src/lib.lisp')
| -rw-r--r-- | src/lib.lisp | 10 |
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) |