aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-17 19:12:22 -0600
committerColin Okay <okay@toyful.space>2022-02-17 19:12:22 -0600
commite7c08e65c842aeedfb1fc1d60631a4a75417662f (patch)
treec88589b1e67dcebc434da899b22c71431df33f7a
parente609343a4694b0f88de730e0a31fe1fcc262f372 (diff)
fiddling with option groups
-rw-r--r--build-app.lisp15
1 files 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)))