From 770dce28402e89ee57a1ba0f292dfdb79da545e0 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 25 Feb 2022 09:25:08 -0600 Subject: added unlicense agreement --- src/lib.lisp | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) (limited to 'src') 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) -- cgit v1.2.3