run.clj

(defmacro with-err-str
  [& body]
  `(let [s# (new java.io.StringWriter)]
     (binding [*err* s#]
       ~@body
       (str s#))))

(defn get-stack-trace-str
  [e]
  (with-err-str (clojure.repl/pst e)))

(require '[clojure.java.shell :refer [sh]])

(defn notify [title msg]
  (sh "terminal-notifier" "-title" title "-message" msg "-sound" "default"))

(defmacro do-with-notif
  "Eval body and call terminal-notifier with the result or exception"
  [body]
  `(time (try (let [res# ~body]
                (notify "Success" (str res#))
                res#)
              (catch Exception e#
                (let [err-str# (get-stack-trace-str e#)]
                  (notify "Failure" err-str#)
                  (throw e#))))))