 
 (def channel-config
   {:element-preds [:list :channel]
+   :id-preds [:id zip/down zip/node]
    :name-preds [:name zip/down zip/node]
    :path "channels"})
 
 (def codeTemplate-config
   {:element-preds [:list :codeTemplate]
+   :id-preds [:id zip/down zip/node]
    :name-preds [:name zip/down zip/node]
    :path "codeTemplates"})
+
+(def configurationMap-config
+  {:element-preds [:map]
+   :id-preds [(fn [_] "")]
+   :name-preds [(fn [_] "configurationMap")]
+   :path "server/configurationMap"})
 
 (defn download
   "Serializes all xml found at the api path using the supplied config"

    (fn [] (do
            (download base-url channel-config)
            (download base-url codeTemplate-config)
            (upload base-url channel-config)
            (upload base-url codeTemplate-config)))))

(defn -main
  [& args]

  ""
  [base-url {:keys [id-preds path]}]
  (doseq [f (.listFiles (io/file (str "blarfnarg/" path "/")))]
    (upload-node base-url path id-preds (to-zip (slurp f)))))

(defn makeitso
  "App logic"
