diff options
| -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) |