From 260d0cfae03e75c298fd4b349ff496f35bd76143 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 28 Feb 2022 16:10:16 -0600
Subject: whois command.

---
 build-app.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'build-app.lisp')

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)))
-- 
cgit v1.2.3