From d27efb137d54b7aa14ed4295f6e7caf272fc2aec Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Fri, 28 Apr 2023 13:30:07 +0200 Subject: [PATCH] Fix #1548: shell and sh should respect babashka.process/*defaults* (#1549) --- src/babashka/impl/process.clj | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/src/babashka/impl/process.clj b/src/babashka/impl/process.clj index 33d77ea3..dc626b04 100644 --- a/src/babashka/impl/process.clj +++ b/src/babashka/impl/process.clj @@ -20,6 +20,14 @@ (binding [process/*defaults* @defaults] (apply process/pb args))) +(defn sh [& args] + (binding [process/*defaults* @defaults] + (apply process/sh args))) + +(defn shell [& args] + (binding [process/*defaults* @defaults] + (apply process/shell args))) + (def process-namespace {'parse-args (copy-var process/parse-args tns) 'process* (copy-var process/process* tns) @@ -29,11 +37,11 @@ 'start (copy-var process/start tns) 'pipeline (copy-var process/pipeline tns) '$ (copy-var process/$ tns) - 'sh (copy-var process/sh tns) + 'sh (copy-var sh tns) 'tokenize (copy-var process/tokenize tns) '*defaults* defaults 'destroy (copy-var process/destroy tns) 'destroy-tree (copy-var process/destroy-tree tns) 'exec (copy-var process/exec tns) - 'shell (copy-var process/shell tns) + 'shell (copy-var shell tns) 'alive? (copy-var process/alive? tns)})