aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-23 15:19:54 -0600
committerColin Okay <okay@toyful.space>2022-02-23 15:19:54 -0600
commit24fc1a419c2f868be3c9b134a5780bc472cdfc57 (patch)
tree8694f0e45b7c2250704bc1e97fe48a59671d2de2
parent5289f41dd5d2790ae94297a9652135d856baf277 (diff)
added a few options to the cli interface
-rw-r--r--build-app.lisp21
1 files changed, 14 insertions, 7 deletions
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")