aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-28 16:10:16 -0600
committerColin Okay <okay@toyful.space>2022-02-28 16:10:16 -0600
commit260d0cfae03e75c298fd4b349ff496f35bd76143 (patch)
treebe9c496aaed5818bdc4cdccbeb3df7248fdba51a /src
parente128fcb2a021587aa428097f867c200c1ed3c426 (diff)
whois command.
Diffstat (limited to 'src')
-rw-r--r--src/lib.lisp13
1 files changed, 13 insertions, 0 deletions
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+)