From d71cf093bb6c4739a0aab9f22c331b3540a2c09f Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Tue, 12 Nov 2019 02:51:37 -0500 Subject: [PATCH] Add /i switch to xcopy in jpm --- auxbin/jpm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/auxbin/jpm b/auxbin/jpm index bab51dbf..758db9b2 100755 --- a/auxbin/jpm +++ b/auxbin/jpm @@ -223,8 +223,9 @@ [src dest] (print "copying " src " to " dest "...") (if is-win - (let [end (last (peg/match path-splitter src))] - (shell "xcopy" src (string dest "\\" end) "/y" "/s" "/e")) + (let [end (last (peg/match path-splitter src)) + isdir (= (os/stat src :mode) :directory)] + (shell "xcopy" src (if isdir (string dest "\\" end) dest) "/y" "/s" "/e" "/i")) (shell "cp" "-rf" src dest))) #