diff options
Diffstat (limited to 'build-app.lisp')
| -rw-r--r-- | build-app.lisp | 13 |
1 files changed, 9 insertions, 4 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)) |