Setting log level example

logger.clj

(ns lcmap-data-clj.logger
  (:require [clojure.logging.impl :as log-impl])
  (:import [ch.qos.logback.classic Level]))


(comment "Usage example"
  (set-level! 'lcmap-data-clj :debug)
  (set-level! '[org.apache org.gdal] :info)
  (set-level! '[com.datastax.driver co.paralleluniverse] :error))


(defn to-level [level]
  (Level/toLevel (name level)))

(defn get-factory []
  (log-impl/find-factory))

(defn get-logger [namespace]
  (log-impl/get-logger (get-factory) namespace))


(defmulti set-level! (fn [scope level]
                       (mapv class [scope level])))
  
(defmethod set-level! [clojure.lang.Symbol clojure.lang.Keyword]
                      [ns level]
  (.setLevel (get-logger ns) (to-level level)))
  
(defmethod set-level! [clojure.lang.PersistentVector clojure.lang.Keyword]
                      [ns-list level]
  (doseq [ns ns-list]
    (set-level! ns level)))

I might rename to-level to some variation on level->keyword ...

I like your conversion of (dorun (map #(set-level! % level) namesps)) to (doseq ...)

Woops, other way around: keyword->level.

I'm going to use this, but with multimethods ... so it will be a little different.

That change has been pushed to Twig now -- note, however, that I didn't make the (deseq ...) change -- awaiting your PR/commit for that :-)

As @yurrriq pointed out the other day, name actually handles all the cases I care about. (I had some bad code or data in the REPL session where I was testing and got misleading errors).

As such, I've removed the ->level multimethod implementation in twig and it now uses the same approach as defined by you here, simply calling (name ...).