fiddling with option groups

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)))