Shutdown hook

[borkdude]

Add option :shutdown-hook which defaults to (fn [proc] (.destroy (:proc proc))) and can be overridden with any arity-1 function.

[borkdude]

Also see #19.

[borkdude]

At work I have a script which didn't kill all subprocesses. I needed to do this:

(ns dev
  (:require [babashka.process :refer [process]]))

(defn child-process-handles [^java.lang.ProcessHandle x]
  (distinct
   (cons x
         (mapcat child-process-handles
                 (iterator-seq (.iterator (.descendants x)))))))

(defn kill [proc]
  (run! (fn [^java.lang.ProcessHandle handle]
          (prn (.pid handle))
          (.destroy handle))
        (child-process-handles (.toHandle (:proc proc)))))

(defn cljs []
  (let [p (process ["./clojure" "-A:frontend:cljs/dev"] {:out :inherit
                                                         :err :inherit})]
    (-> (Runtime/getRuntime)
        (.addShutdownHook (Thread. #(kill p))))))