From e7c08e65c842aeedfb1fc1d60631a4a75417662f Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 17 Feb 2022 19:12:22 -0600 Subject: fiddling with option groups --- build-app.lisp | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/build-app.lisp b/build-app.lisp index 48222cd..24064e7 100644 --- a/build-app.lisp +++ b/build-app.lisp @@ -14,8 +14,19 @@ :typespec 'integer) (flag :long-name "not-flagged" :description "Request that no flagged oneliners are returned.")) + (group (:header "Admin" :hidden t) + (flag :long-name "invite" + :description "Request an invite token to send to a friend.") + (stropt :long-name "redeem" + :argument-type :optional + :default-value "" + :argument-name "TOKEN" + :description "Redeem an invite token. Enter an + interactive process of setting up a new contributor + account with the inviting server")) (group () - (flag :long-name "help" :short-name "h" + (enum :long-name "help" :short-name "h" + :enum '(:help :admin) :description "print this help menu."))) @@ -25,7 +36,7 @@ "Entry point for our standalone application." (make-context) (when (getopt :short-name "h") - (help) + (help ) (uiop:quit)) (let ((arguments (remainder))) -- cgit v1.2.3