aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/lib.lisp9
1 files changed, 8 insertions, 1 deletions
diff --git a/src/lib.lisp b/src/lib.lisp
index 58d071c..8dbbbc9 100644
--- a/src/lib.lisp
+++ b/src/lib.lisp
@@ -366,12 +366,19 @@ the directories that appear in the value of that variable."
contributions using The Unlicense. (see https://unlicense.org/)")
+(defun prompt-for-signature ()
+ (if (y-or-n-p "Provide a contributor signature about yoruself??")
+ (prompt "Go ahead: ")
+ ""))
+
(defun redeem-invite (token name pass)
(ensure-config )
(when (yes-or-no-p +agree-to-the-unlicense+)
(api:request-with
(:host (host)
- :body (jonathan:to-json (list :handle name :password1 pass :password2 pass))
+ :body (jonathan:to-json (list :handle name
+ :password1 pass :password2 pass
+ :signature (prompt-for-signature)))
:content-type "application/json")
(api:post--invite-redeem-code token)
(format t "Account made for ~a. You may log in now~%" name))))