Nested defs

nested-defs

(ns meow.alerts
  (:require [clojure.stacktrace :refer [print-stack-trace]]))

(defmacro safely [body]
  `(try ~body
        (catch java.lang.Throwable e#
          (println "Caught exception while trying to report a problem:" (.getMessage e#))
          (print-stack-trace e#))))

(defn init! [sms-send server]
  (defn fatal
    "I'm crashing to a fiery death, email and text everyone, dump the logs and head for the hills."
    ([message]
       (safely (sms-send message))
       (safely ((:fatal server) message)))
    ([]
       (fatal "She's gonnae blow cap'n")))

  (defn warn
    [message]
    (safely ((:warn server) message) ))

  (defn info [message]
    (safely ((:info server) message))))