diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-28 16:10:16 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-28 16:10:16 -0600 |
| commit | 260d0cfae03e75c298fd4b349ff496f35bd76143 (patch) | |
| tree | be9c496aaed5818bdc4cdccbeb3df7248fdba51a /build-app.lisp | |
| parent | e128fcb2a021587aa428097f867c200c1ed3c426 (diff) | |
whois command.
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))) |