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

             (looking-at? :http-interface loc) (disable-security loc)
             (looking-at? :max-size-bytes loc) (zip/edit loc assoc :content ["20971520"])
             (looking-at? :address-full-policy loc) (zip/edit loc assoc :content ["PAGE"])
             :else loc)))))
  
(defn transform-config [file]

  (println "DONE"))

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

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