diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-21 15:20:22 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-21 15:20:22 -0600 |
| commit | d7b1a2774dc1b8ab3c166c8dc0332110d653ebe9 (patch) | |
| tree | 85b13478f4ff3477bd9693202268c86cf1d5288c /build-app.lisp | |
| parent | 14d7f7c425a04091e6982104f5c48d79bb528e89 (diff) | |
tweaking cli menu.
Diffstat (limited to 'build-app.lisp')
| -rw-r--r-- | build-app.lisp | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/build-app.lisp b/build-app.lisp index 6460d9e..5d4f069 100644 --- a/build-app.lisp +++ b/build-app.lisp @@ -27,8 +27,8 @@ my1337pw.") ;;; CLON SYNOPSIS DEFINITION (defsynopsis (:postfix "[TERMS ...] | N [ARGS ...]") - (group (:header "Search") - (text :contents "Usage: ol [OPTIONS] [TERMS ...]") + (group (:header "SEARCH") + (text :contents " ") (text :contents "Each term may be a command name or some tag like 'server' or 'tunnel'") (lispobj :long-name "limit" :argument-type :optional @@ -39,8 +39,8 @@ my1337pw.") (flag :long-name "not-flagged" :description "Request that no flagged oneliners are returned.")) (text :contents " ") - (group (:header "Running Oneliners") - (text :contents "Usage: ol [OPTIONS] N [ARGS ...]") + (group (:header "RUNNING ONELINERS") + (text :contents " ") (text :contents "Runs the Nth search result with possible arguments ARGS.") (flag :long-name "clip" :description "Force an attempt to copy the oneliner to the clipboard instead of running it.")) @@ -49,15 +49,15 @@ my1337pw.") (flag :long-name "help" :description "Print this help menu.") (enum :long-name "help-topic" - :enum '(:contributor :adding :invites) + :enum '(:access :wiki :invites) :argument-name "TOPIC" - :description "Print help for a topic. Topics are: adding, contributor, invites")) - (group (:header "Adding" :hidden t) + :description "Print help for a topic. Topics are: wiki, access, invites")) + (group (:header "Wiki" :hidden t) (flag :long-name "add" :description "Intaractively add a oneliner and update the wiki.") (flag :long-name "update" :description "Interactively edit a oneliner and update the wiki.")) - (group (:header "Contributor" :hidden t) + (group (:header "Access" :hidden t) (flag :long-name "login" :description "Attempt to login to your contributor account. ARGS are interpreted as USERNAME PASSWORD. Success will return ab API token, writing it automatically into your config file.") (flag :long-name "revoke" @@ -108,6 +108,9 @@ than the users." ((getopt :long-name "invite") (cli::request-invite-code)) + ((getopt :long-name "revoke") + (cli::revoke-access)) + ((getopt :long-name "add") (oneliners.cli::add-new-oneliner)) |