set_log_level.clj

(defn set-log-level!
  ([level]
     (set-log-level! [(org.apache.log4j.Logger/getRootLogger)] level))
  ([loggers level]
     (let [loggers (map (fn [l] (if (string? l)
                                  (org.apache.log4j.Logger/getLogger l)
                                  l))
                        loggers)]
       (doseq [l loggers]
         (.setLevel l (case level
                            :all org.apache.log4j.Level/ALL
                            :debug org.apache.log4j.Level/DEBUG
                            :error org.apache.log4j.Level/ERROR
                            :fatal org.apache.log4j.Level/FATAL
                            :info org.apache.log4j.Level/INFO
                            :off org.apache.log4j.Level/OFF
                            :trace org.apache.log4j.Level/TRACE
                            :trace-int org.apache.log4j.Level/TRACE_INT
                            :warn org.apache.log4j.Level/WARN))))))

#_(set-log-level! ["org.apache.http.client.or.something.like.that"
                   "some.other.namespace"]
                  :off)