aboutsummaryrefslogtreecommitdiff
path: root/build-app.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'build-app.lisp')
-rw-r--r--build-app.lisp19
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))