From d7b1a2774dc1b8ab3c166c8dc0332110d653ebe9 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 21 Feb 2022 15:20:22 -0600
Subject: tweaking cli menu.

---
 build-app.lisp | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

(limited to 'build-app.lisp')

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))
 
-- 
cgit v1.2.3