diff options
| -rw-r--r-- | build-app.lisp | 15 |
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))) |