diff options
Diffstat (limited to 'build-app.lisp')
| -rw-r--r-- | build-app.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/build-app.lisp b/build-app.lisp index 0899c33..72e5f5b 100644 --- a/build-app.lisp +++ b/build-app.lisp @@ -61,6 +61,8 @@ my1337pw.") (group (:header "HELP OPTIONS") (flag :long-name "explain" :description "View oneliner explaination text.") + (flag :long-name "whois" + :description "View information about a contributor. ARGS is just a contributor handle.") (enum :long-name "help" :enum '(:account :wiki :invites) :argument-name "TOPIC" @@ -122,6 +124,10 @@ than the users." (handler-case (let ((arguments (remainder))) (cond + ((getopt :long-name "whois") + (assert (first arguments)) + (cli::show-contributor (first arguments))) + ((getopt :long-name "redeem") (destructuring-bind (token name pass) arguments (cli::redeem-invite token name pass))) |