diff options
Diffstat (limited to 'src/lib.lisp')
| -rw-r--r-- | src/lib.lisp | 13 |
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+) |