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)))

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 ...).