gistfile1.txt

(ns dh.immutant.logging
  (:import (java.util.logging LogManager Level)))

;; can't bring myself to bother with the XML logging config in jboss

(def logger-levels
  {"org.openid4java" :warn})

(let [lm (LogManager/getLogManager)]
  (doseq [[logger-name level] logger-levels]
    (.setLevel (.getLogger lm logger-name)
               (Level/parse (.toUpperCase (name level))))))