babashkba make helper, to be called as `make`

make.bb

#!/usr/bin/env bb
(require '[babashka.fs :as :fs]
         '[babashka.process :refer [shell]])

(def make "/usr/bin/make")

(defn find-root
  ([]   (find-root (fs/cwd)))
  ([wd] (cond
          (fs/exists? (fs/path wd "Makefile")) {:dir wd}
          (fs/same-file? (fs/home) wd)         :not-found
          (fs/exists? (fs/path wd ".git"))     :not-found
          :else                                (recur (fs/parent wd)))))

(defn run-make [wd & args]
  (if (= :not-found wd)
    (throw (ex-info "Makefile not found" {:babashka/exit 1}))
    (-> (apply shell (assoc wd :continue true) make args)
      :exit
      System/exit)))

(when (= *file* (System/getProperty "babashka.file"))
  (apply run-make (find-root) *command-line-args*))