 
 (defn upload-node
   ""
-  [base-url path xmlloc]
-  (let [id (zx/xml1-> xmlloc :id zip/down zip/node)]
+  [base-url path id-preds xmlloc]
+  (let [id (apply zx/xml1-> xmlloc id-preds)]
     (client/put (str base-url "/" path "/" id)
                 {:insecure? true
                  :body (xml/indent-str (zip/node xmlloc))

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

(defn makeitso
  "App logic"

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

            (upload base-url channel-config)
            (upload base-url codeTemplate-config)
            (upload base-url configurationMap-config)
            ))))

(defn -main
  [& args]
