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