 (defn disable-security [loc]
     (zip/edit loc #(update-in % [:attrs] dissoc :security-realm)))
 
+(defn add-logger-levels [loc]
+  (zip/append-child (zip/right
+                     (zip/insert-right loc
+                                       {:tag :logger
+                                        :attrs {:category "org.jboss.as.dependency.private"}}))
+                    {:tag :level :attrs {:name "ERROR"}}))
+
 (defn looking-at? [tag loc]
   (= tag (:tag (zip/node loc))))
 

  (println "DONE"))

(defn print-err [& message]
  (comment (binding [*out* *err*]
             (apply println message))))

(defn xml-zip [path]
  (zip/xml-zip (xml/parse path)))

            (cond
             (looking-at? :extensions loc) (add-extensions loc)
             (looking-at? :profile loc) (add-subsystems loc)
             (looking-at? :periodic-rotating-file-handler loc) (add-logger-levels loc)
             (looking-at? :virtual-server loc) (set-welcome-root loc)
             (looking-at? :system-properties loc) (unquote-cookie-path loc)
             (looking-at? :jms-destinations loc) (zip/remove loc)
