Editor: Fix broken transpiler save-data queries

editor/src/clj/editor/code/transpilers.clj

@@ -25,6 +25,7 @@
  [editor.fs :as fs]
  [editor.graph-util :as gu]
  [editor.resource :as resource]
+ [editor.resource-node :as resource-node]
  [editor.ui :as ui]
  [editor.workspace :as workspace]
  [internal.java :as java]
@@ -56,14 +57,14 @@
 
 (defn- make-temporary-compile-directory! [transpiler all-source-save-datas]
  (let [dir (fs/create-temp-directory! (str "tr-" (.getSimpleName (class transpiler))))]
- (run! (fn [{:keys [resource content dirty?]}]
+ (run! (fn [{:keys [resource dirty] :as save-data}]
  (let [file (io/file dir (resource/path resource))]
  (io/make-parents file)
- (if content
- (spit file content)
+ (if-some [modified-content (resource-node/save-data-content save-data)]
+ (spit file modified-content)
  (with-open [is (io/input-stream resource)]
  (io/copy is file)))
- (when-not dirty?
+ (when-not dirty
  (.setLastModified file (.lastModified (io/file resource))))))
  all-source-save-datas)
  dir))
@@ -74,8 +75,8 @@
  all-sources (conj source-code-save-datas build-file-save-data)
  workspace (resource/workspace (:resource build-file-save-data))
  proj-path->node-id (pair-map-by (comp resource/proj-path :resource) :node-id all-sources)
- use-project-dir (every? (fn [{:keys [resource dirty?]}]
- (and (not dirty?) (resource/file-resource? resource)))
+ use-project-dir (every? (fn [{:keys [resource dirty]}]
+ (and (not dirty) (resource/file-resource? resource)))
  all-sources)
  ;; We transpile to lua from the project dir only if all the source code files exist on disc. Since
  ;; some source file may come as dependencies in zip archives or modified in memory without saving