diff options
Diffstat (limited to 'build-app.lisp')
| -rw-r--r-- | build-app.lisp | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/build-app.lisp b/build-app.lisp index f387116..7da683b 100644 --- a/build-app.lisp +++ b/build-app.lisp @@ -50,7 +50,13 @@ my1337pw.") (group (:header "RUNNING ONELINERS") (text :contents "Runs the Nth search result with possible arguments ARGS.") (flag :long-name "clip" - :description "Put oneliner into clipboard instead of running it.")) + :description "Put oneliner into clipboard instead of running it.") + (lispobj :long-name "timeout" + :argument-type :optional + :argument-name "SECONDS" + :default-value 1.0 + :typespec 'float + :description "How long to wait for output before giving up.")) (text :contents " ") (group (:header "Help") (flag :long-name "explain" @@ -158,7 +164,9 @@ than the users." ;; (cli::make-alias-for-item hist-number (second arguments))) (t - (cli::run-item hist-number (rest arguments) (getopt :long-name "clip")))) + (cli::run-item hist-number (rest arguments) + :force-clip (getopt :long-name "clip") + :timeout (getopt :long-name "timeout")))) (uiop:quit)) ;; otherwise search for oneliners (cli::search-for-oneliners arguments |