diff options
author | Colin Okay <okay@toyful.space> | 2022-02-28 15:45:08 -0600 |
---|---|---|
committer | Colin Okay <okay@toyful.space> | 2022-02-28 15:45:08 -0600 |
commit | 0cd6911ece1725301e06a8abf20ce2177e54747e (patch) | |
tree | 8be15d2b808a9849114e83a61f399fdca717bff7 /src/lib.lisp | |
parent | 0bfa60756ab88c2c1b944e13dc703b16c9aa2ea5 (diff) |
signature change
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)) |