diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-23 15:19:54 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-23 15:19:54 -0600 |
| commit | 24fc1a419c2f868be3c9b134a5780bc472cdfc57 (patch) | |
| tree | 8694f0e45b7c2250704bc1e97fe48a59671d2de2 /build-app.lisp | |
| parent | 5289f41dd5d2790ae94297a9652135d856baf277 (diff) | |
added a few options to the cli interface
Diffstat (limited to 'build-app.lisp')
| -rw-r--r-- | build-app.lisp | 21 |
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") |