From 0cd6911ece1725301e06a8abf20ce2177e54747e Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 28 Feb 2022 15:45:08 -0600
Subject: signature change

---
 src/lib.lisp | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'src')

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))
-- 
cgit v1.2.3