diff options
Diffstat (limited to 'src/lib.lisp')
| -rw-r--r-- | src/lib.lisp | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/src/lib.lisp b/src/lib.lisp index 7df571b..713e86b 100644 --- a/src/lib.lisp +++ b/src/lib.lisp @@ -401,10 +401,20 @@ the directories that appear in the value of that variable." (defun prompt-for-signature () - (if (y-or-n-p "Provide a contributor signature about yoruself??") + (if (y-or-n-p "Provide a contributor signature about yoruself?") (prompt "Go ahead: ") "")) +(defun change-signature () + (let ((new-sig + (prompt-for-signature))) + (ensure-config) + (api:request-with + (:host (host) + :body (jonathan:to-json (list :signature new-sig))) + (api:put--contributor-who-signature (contributor-handle) :token (api-token)) + (format t "Your signature was changed.~%")))) + (defun redeem-invite (token name pass) (ensure-config ) (when (yes-or-no-p +agree-to-the-unlicense+) @@ -422,7 +432,8 @@ the directories that appear in the value of that variable." (ensure-config) (api:request-with (:host (host)) - (api:delete--access-access (api-token) :token (api-token)))) + (api:delete--access-access (api-token) :token (api-token)) + (format t "You were logged out~%"))) (defun update-history-item (n item) (when (uiop:file-exists-p (last-search-file)) |