added unlicense agreement

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)