defasync

defasync.clj

(defmacro defasync [name args & body]
  (if config/in-test?
    `(defn ~name ~args ~@body)
    (let [name-str (str name)]
      `(defn ~name ~args
         (future
           (try
             ~@body
             (catch Exception e#
               (log/error (str ~name-str
                               " error: "
                               e#
                               "\n"
                               (with-out-str
                                 (clojure.stacktrace/print-stack-trace e#)))))))))))