get loading of generated level data working

"

"

two_player_cleaning_game/assets/gen_levels.bb

@@ -40,32 +40,32 @@
                         (map #(str/split % #","))
                         (map (fn [row] (map Integer/parseInt row)))))
 
-        tiles (map-indexed
+        tiles (vec (map-indexed
-               (fn [y row]
+                    (fn [y row]
-                 (map-indexed
+                      (vec (map-indexed
-                  (fn [x tile-id] {:x (* x 25) :y (* y 25) :tile-id tile-id})
+                            (fn [x tile-id] {:x (* x 25) :y (* y 25) :tile-id tile-id})
-                  row)) tile-nums)]
+                            row))) tile-nums))]
 
     (hash-map
      :tiles tiles
-     :spawns (reduce (fn [acc tag]
+     :spawns (vec (reduce (fn [acc tag]
-                       (if (= (:tag tag) :object)
+                            (if (= (:tag tag) :object)
-                         (conj acc
+                              (conj acc
-                               (hash-map
+                                    (hash-map
-                                :name (get-in tag [:attrs :name])
+                                     :name (get-in tag [:attrs :name])
-                                :x (Math/round (Double/parseDouble (get-in tag [:attrs :x])))
+                                     :x (Math/round (Double/parseDouble (get-in tag [:attrs :x])))
-                                :y (Math/round (Double/parseDouble (get-in tag [:attrs :y])))))
+                                     :y (Math/round (Double/parseDouble (get-in tag [:attrs :y])))))
-                         acc)) '() (:content (first (filter #(= (get-in % [:attrs :name]) "spawns") tags)))))))
+                              acc)) '() (:content (first (filter #(= (get-in % [:attrs :name]) "spawns") tags))))))))
 
 (pprint/pprint {:row (first (:tiles level-001))})
 ;;                 :wall-colliders wall-colliders})
 
 ;; (fs/write-lines "level_001.lua"  (pr-str '(local name "travis")))
 ;; (pprint/pprint (pr-str level-001))
-(fs/write-lines "../level-001.fnl" ["(local level-001"
+(fs/write-lines "../levels.fnl" ["(local levels"
-                                    (pr-str level-001)
+                                 (str/replace (pr-str {:level01 level-001}) #",+" "")
-                                    ")\n\n"
+                                 ")\n\n"
-                                    "{ :level-01 level-01 }"])
+                                 "{ :levels levels }"])
 
 ;; (str "return " (pr-str {:tile (ffirst (:tiles level-001))
   ;;                                                         :wall-colliders wall-colliders

two_player_cleaning_game/main.fnl

@@ -1,4 +1,5 @@
 (local map-util (require "map-util.fnl"))
+(local levels (require "levels.fnl"))
 
 (var player-art nil) ; 25x50 pixels each player is 25x25
 (var dust-sprite nil) ; 35x35 pixels