From 24fc1a419c2f868be3c9b134a5780bc472cdfc57 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Wed, 23 Feb 2022 15:19:54 -0600
Subject: added a few options to the cli interface

---
 build-app.lisp | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to 'build-app.lisp')

diff --git a/build-app.lisp b/build-app.lisp
index 8122b1e..32b1777 100644
--- a/build-app.lisp
+++ b/build-app.lisp
@@ -26,10 +26,9 @@ my1337pw.")
 
 ;;; CLON SYNOPSIS DEFINITION 
 
-(defsynopsis (:postfix "[TERMS ...] | N [ARGS ...]")
+(defsynopsis (:postfix "[TAGS ...] | N [ARGS ...]")
   (group (:header "SEARCH")
-         (text :contents " ")
-         (text :contents "Each term may be a command name or some tag like 'server' or 'tunnel'")
+         (text :contents "Return oneliners tagged with all of TAGS")
          (lispobj :long-name "limit" 
                   :argument-type :optional
                   :argument-name "NUMBER"
@@ -37,10 +36,14 @@ my1337pw.")
                   :description "The maximum number of results to return."
                   :typespec 'integer)
          (flag :long-name "not-flagged"
-               :description "Request that no flagged oneliners are returned."))
+               :description "Request that no flagged oneliners are returned.")
+         (stropt :long-name "brief-like"
+                 :argument-name :optional
+                 :default-value ".*"
+                 :argument-name "REGEX"
+                 :description "A regular expression that must match some portion of the oneliner's title."))
   (text :contents " ")
   (group (:header "RUNNING ONELINERS")
-         (text :contents " ")
          (text :contents "Runs the Nth search result with possible arguments ARGS.")
          (flag :long-name "clip"
                :description "Put oneliner into clipboard instead of running it."))
@@ -54,7 +57,9 @@ my1337pw.")
                :enum '(:access :wiki :invites)
                :argument-name "TOPIC"
                :description "Print help for a topic. 
-Topics:  wiki, access, invites"))
+Topics:  wiki, access, invites, advanced"))
+  (group (:header "Advanced" :hidden t)
+         (flag :long-name "alias"))
   (group (:header "Wiki" :hidden t)
          (flag :long-name "add"
                :description  "Intaractively add a oneliner and update the wiki.")
@@ -141,9 +146,11 @@ than the users."
                 (cli::edit-item hist-number))
                ((getopt :long-name "explain")
                 (cli::print-item-explanation hist-number))
+               ((getopt :long-name "alias")
+                (cli::make-alias-for-item hist-number (second arguments)))
                (t
                 (cli::run-item hist-number (rest arguments) (getopt :long-name "clip"))))
-             (uiop:quit))   
+             (uiop:quit))
            ;; otherwise search for oneliners
            (cli::search-for-oneliners arguments
                                       (getopt :long-name "limit")
-- 
cgit v1.2.3