diff options
| -rw-r--r-- | build-app.lisp | 13 | ||||
| -rw-r--r-- | src/lib.lisp | 15 |
2 files changed, 22 insertions, 6 deletions
diff --git a/build-app.lisp b/build-app.lisp index bfd3dd6..c60da1b 100644 --- a/build-app.lisp +++ b/build-app.lisp @@ -62,7 +62,7 @@ my1337pw.") (flag :long-name "explain" :description "View oneliner explaination text.") (enum :long-name "help" - :enum '(:access :wiki :invites) + :enum '(:contributors :wiki :invites) :argument-name "TOPIC" :description "Print help for a topic. Topics: wiki, access, invites")) @@ -80,14 +80,16 @@ Topics: wiki, access, invites")) :description "If you have admin priviliges, lock a oneliner from being edited.") (flag :long-name "unlock" :description "If you have admin priviliges, unlock a oneliner.")) - (group (:header "Access" :hidden t) - (text :contents "Options for Managing Access Tokens and Contributor Your Account") + (group (:header "Contributors" :hidden t) + (text :contents "Options for Managing Your Contributor Account") (flag :long-name "login" :description "Attempt to login to your contributor account. ARGS are interpreted as USERNAME PASSWORD.") (flag :long-name "logout" :description "Revoke your own access token.") (flag :long-name "change-password" - :description "Change your password. ARGS are interpreted as CURRENTPW NEWPW NEWPWAGAIN")) + :description "Change your password. ARGS are interpreted as CURRENTPW NEWPW NEWPWAGAIN") + (flag :long-name "change-signature" + :description "Change your contributor signature. You will be prompted.")) (group (:header "Invites" :hidden t) (text :contents "Options For Making Invite and Redeeming Tokens") (flag :long-name "invite" @@ -132,6 +134,9 @@ than the users." (destructuring-bind (current new repeated) arguments (cli::change-pw current new repeated))) + ((getopt :long-name "change-signature") + (cli:change-signature)) + ((getopt :long-name "invite") (cli::request-invite-code)) 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)) |