aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/lib.lisp23
1 files changed, 17 insertions, 6 deletions
diff --git a/src/lib.lisp b/src/lib.lisp
index 4a8988a..3eefc63 100644
--- a/src/lib.lisp
+++ b/src/lib.lisp
@@ -356,14 +356,25 @@ the directories that appear in the value of that variable."
(write-config-to-disk)
(format t "Access token written to ~a~%" (config-file))))
+(defparameter +agree-to-the-unlicense+
+ "By creating this contributor account, I agree that my contributions
+ be released into the public domain, for the benefit of the public at
+ large, and to the detriment of my heirs and successors. I intend
+ this dedication to be an overt act of relinquishment in perpetuity
+ of all present and future rights to my contributions under software
+ copyright law copyright law. More specifically, I agree to release all of my
+ contributions using The Unlicense. (see https://unlicense.org/)")
+
+
(defun redeem-invite (token name pass)
(ensure-config )
- (api:request-with
- (:host (host)
- :body (jonathan:to-json (list :handle name :password1 pass :password2 pass))
- :content-type "application/json")
- (api:post--invite-redeem-code token)
- (format t "Account made for ~a. You may log in now~%" name)))
+ (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))
+ :content-type "application/json")
+ (api:post--invite-redeem-code token)
+ (format t "Account made for ~a. You may log in now~%" name))))
(defun revoke-access ()
(ensure-config)