gered/blarg
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

logging call tweaks

Browse source
This commit is contained in:
Gered 2014-03-28 22:09:14 -04:00
parent 23a67b0027
commit b5983eeeb4
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/blarg/handler.clj
View file

@ -4,8 +4,7 @@
[compojure.core :refer [defroutes]] [compojure.core :refer [defroutes]]
[compojure.route :as route] [compojure.route :as route]
[compojure.response :refer [render]] [compojure.response :refer [render]]
[taoensso.timbre :as timbre] [taoensso.timbre :refer [set-config! log]]
[taoensso.timbre.appenders.rotor :as rotor]
[clj-jtwig.core :as jtwig] [clj-jtwig.core :as jtwig]
[clj-jtwig.web.middleware :refer [wrap-servlet-context-path]] [clj-jtwig.web.middleware :refer [wrap-servlet-context-path]]
[blarg.config :refer [config-val]] [blarg.config :refer [config-val]]
@ -20,28 +19,28 @@
(layout/render-handler "notfound.html" :status 404)) (layout/render-handler "notfound.html" :status 404))
(defn init [] (defn init []
(timbre/set-config! [:shared-appender-config :spit-filename] "blarg.log") (set-config! [:shared-appender-config :spit-filename] "blarg.log")
(timbre/set-config! [:appenders :spit :enabled?] true) (set-config! [:appenders :spit :enabled?] true)
(timbre/set-config! [:fmt-output-fn] log-formatter) (set-config! [:fmt-output-fn] log-formatter)
(timbre/info "blarg started successfully") (log :info "blarg started successfully")
(when (= "DEV" (config-val :env)) (when (= "DEV" (config-val :env))
(timbre/info "Dev environment. Template caching disabled.") (log :info "Dev environment. Template caching disabled.")
(jtwig/toggle-compiled-template-caching! false)) (jtwig/toggle-compiled-template-caching! false))
(timbre/info "touching database...") (log :info "touching database...")
(db/touch-databases)) (db/touch-databases))
(defn destroy [] (defn destroy []
(timbre/info "blarg is shutting down...")) (log :info "blarg is shutting down..."))
(defn wrap-exceptions [handler] (defn wrap-exceptions [handler]
(fn [request] (fn [request]
(try (try
(handler request) (handler request)
(catch Throwable e (catch Throwable e
(timbre/error e) (log :error e "Unhandled exception.")
(layout/render-response (layout/render-response
request request
"error.html" "error.html"