aboutsummaryrefslogtreecommitdiff
path: root/lib/client.lisp
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-03-12 19:07:19 -0600
committerColin Okay <okay@toyful.space>2022-03-12 19:07:19 -0600
commit50df94fd2a0fce7a2499a8ceafd6034adc69779e (patch)
treebf9a19a2edf9f2eecf33b9177f99b8e20e73e880 /lib/client.lisp
parentb053af5357bdbcc556e0a54723feceed5091f535 (diff)
bugfix: s/defstruct/defplist. made defplist
Diffstat (limited to 'lib/client.lisp')
-rw-r--r--lib/client.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/client.lisp b/lib/client.lisp
index 7ee9ebc..fe29932 100644
--- a/lib/client.lisp
+++ b/lib/client.lisp
@@ -84,8 +84,8 @@ running the body. If such a oneliner can be found."
(defun bind-vars-and-run-oneliner (ol args &optional force-clip)
(let* ((oneliner (oneliner-oneliner ol))
(runstyle (oneliner-runstyle ol))
- (pos-args (get-positional-arguments oneliner))
- (named-args (get-named-arguments oneliner)))
+ (pos-args (get-positional-arguments ol))
+ (named-args (get-named-arguments ol)))
(when (or (not (oneliner-isflagged ol))
(y-or-n-p "This oneliner is flagged. Are you sure you want to run it?"))
;; substitute positional args
@@ -113,7 +113,7 @@ running the body. If such a oneliner can be found."
(princ ol)
(princ #\newline)
(princ #\newline)
- (run-with-shell ol :shell-name (or (shell) "bash")))))
+ (run-with-shell ol :shell-name (or (shell) "bash") :await-output-p *ol-output-timeout*))))
;;; ADDING ONELINERS