ring-bugsnag

ring-bugsnag.clj

(ns your-app.ring-bugsnag
  (:import
    [com.bugsnag Client MetaData]))

(def client
  (doto (Client. "your api key goes here")
      (.setReleaseStage "development")
      (.setNotifyReleaseStages (into-array String ["staging" "production"]))))

(defn notify
  ([error metadata]
   (.notify client error metadata)))

(defn metadata
  [req]
  (let [metadata (MetaData.)]
    (doseq [[k v] req]
      (.addToTab metadata "Request" (str k) (str v)))
    metadata))

(defn wrap-bugsnag
  [handler]
  (fn [req]
    (try
      (handler req)
      (catch Throwable t
        (notify t (metadata req))
        (throw t)))))