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.

---
 src/lib.lisp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src')

diff --git a/src/lib.lisp b/src/lib.lisp
index c90a022..93a19aa 100644
--- a/src/lib.lisp
+++ b/src/lib.lisp
@@ -416,6 +416,19 @@ the directories that appear in the value of that variable."
       (api:put--contributor-who-signature (contributor-handle) :token (api-token))
       (format t "Your signature was changed.~%"))))
 
+(defun print-contributor (contributor)
+  (format t "~20a ~@[-- ~a~]~%"
+          (getf contributor :handle)
+          (getf contributor :signature)))
+
+(defun show-contributor (name)
+  (ensure-config)
+  (api:request-with
+      (:host (host))
+    (a:when-let (contributor 
+                 (api:get--contributor-who name))
+      (print-contributor (jonathan:parse  contributor)))))
+
 (defun redeem-invite (token name pass) 
   (ensure-config )
   (when (yes-or-no-p +agree-to-the-unlicense+)
-- 
cgit v1.2.3