diff options
| author | Colin Okay <okay@toyful.space> | 2022-03-04 13:48:53 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-03-04 13:48:53 -0600 |
| commit | 76205ae5a8c1387b663317baa9cf78daeb7451aa (patch) | |
| tree | 97a87622b923a1ed7ad23c262defe61d7cbfa582 | |
| parent | 13665db59e8b0467343eba53ee56873465034ec3 (diff) | |
right. need to remember to (set-term-width) where appropriate.
| -rw-r--r-- | build-app.lisp | 10 | ||||
| -rw-r--r-- | src/lib.lisp | 1 |
2 files changed, 6 insertions, 5 deletions
diff --git a/build-app.lisp b/build-app.lisp index a3ef6fc..044ae8a 100644 --- a/build-app.lisp +++ b/build-app.lisp @@ -91,8 +91,8 @@ you run the oneliner, all positional variables appear first. :description "Like --run, but puts the oneliner into the clipboard.")) (text :contents " ") (group (:header "OTHER OPTIONS") - (flag :long-name "info" - :description "View all info the oneliner given by NAME or ID") + (flag :long-name "view" + :description "View all information for the oneliner given by NAME or ID") (lispobj :long-name "timeout" :argument-type :optional :argument-name "SECONDS" @@ -230,14 +230,14 @@ than the users." (cli::unlock-item id-or-name )) ((getopt :long-name "edit") (cli::edit-item id-or-name )) - ((getopt :long-name "info") + ((getopt :long-name "view") (cli::print-item-explanation id-or-name)) ((getopt :long-name "clip") - (cli::run-item id-or-name (rest arguments) + (cli::run-item id-or-name args :force-clip t :timeout (getopt :long-name "timeout"))) ((getopt :long-name "run") - (cli::run-item id-or-name (rest arguments) + (cli::run-item id-or-name args :timeout (getopt :long-name "timeout"))) (t (cli::search-for-oneliners arguments diff --git a/src/lib.lisp b/src/lib.lisp index 2ade79b..b3741cd 100644 --- a/src/lib.lisp +++ b/src/lib.lisp @@ -175,6 +175,7 @@ and, failing that, try to fetch from configured server." (defun print-item-explanation (name-or-number) (with-oneliner (ol name-or-number) + (set-term-width) (print-oneliner-result-for-user ol) (when (getf ol :explanation) (princ #\newline) |