 (defn deconstruct-node
   "Takes an xml node representing one of our major api elements and returns one or
   more deconstructed parts with filenames and a zip loc for the content."
-  [file-path el-loc find-name-val place-in-subdir?]
-  (let [base-path (if place-in-subdir?
-                    (str (mf/remove-extension file-path) File/separator)
-                    (str (.getParentFile (File. file-path)) File/separator))]
+  [file-path el-loc find-name-val]
+  (let [base-path (str (mf/remove-extension file-path) File/separator)]
     (loop [el-loc el-loc
            deconstruction []]
       ;; (log/info (str "tag: " (:tag (cz/node el-loc))))

   el-loc
   (fn [el-loc]
     (when-let [script-loc (cdzx/xml1-> el-loc :properties :code)]
       [(cdzx/xml1-> el-loc :name cdzx/text) script-loc]))
   false))

(defn name-script-sequence
  "Take a script loc to find and build the script name."

     (some (fn [[name script]]
             (when-let [script-loc (script el-loc)]
               [(name script-loc) script-loc]))
           channel-deconstructors))))

(comment

