 
 (defn- include-partials*
   [partials]
-  (prn :partials partials)
   (apply str (map include-file* partials)))
 
 (defn- inject-scene-partial

  (when partial
    (if include? (include-file* path) partial)))

;; TODO rename into export-scene & split out serialize part
(defn- serialize-lxs
  [scene base-path separate-files?]
  (let [base-name (path-filename base-path)

             (inject-scene-partial (:geometry scene) (str base-name ".lxo") separate-files?)
             (:lights scene)
             "\nWorldEnd\n")]
    {:path lxs-path :body lxs}))

(defn- serialize-scene-component
  [group path]
  (when group
    {:path path :body (str (lx-header path) group)}))

(defn serialize-scene
  ([scene base-path]
