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

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

