diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-28 14:54:59 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-28 14:54:59 -0600 |
| commit | fc55695743a15e8e3945b2e5718763378a5ae362 (patch) | |
| tree | 2a05a7f34cc94a5de58de11c019da9d5a1135c56 /build-app.lisp | |
| parent | 65bf3a5a5f00b40d3f219a469cea1eaa86e1aa95 (diff) | |
added --timeout
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 |