outline tile that will be changed when editing, fix tile list

editor/mapedit.fnl

@@ -158,12 +158,17 @@
       {:x mx :y my} (renderer.draw_text style.font player x y style.text)))
   (love.graphics.setColor 1 1 1))
 
-(fn MapEditView.draw-object-box [self iobject x y w h]
-  (when (not= iobject nil)
-    (love.graphics.setColor 1 0 (if (and (= self.itile nil) (= iobject self.iobject)) 1 0))
-    (love.graphics.setLineWidth 3)
+(fn MapEditView.draw-box [self x y w h color thickness]
+  (love.graphics.setColor (table.unpack color))
+  (love.graphics.setLineWidth thickness)
   (love.graphics.rectangle :line x y w h)
-    (love.graphics.setColor 1 1 1)))
+  (love.graphics.setColor 1 1 1))
+
+
+(fn MapEditView.draw-object-box [self x y w h iobject]
+  (when iobject
+    (let [color [1 0 (if (and (= self.itile nil) (= iobject self.iobject)) 1 0) 1]]
+      (self:draw-object-box x y w h color 3))))
 
 (fn MapEditView.handle-mouseedits-object [self mx my x y w h ilayer]
   (when (and (active? self [:map ilayer]) (mouse-inside x y w h))
@@ -196,7 +201,7 @@
   (renderer.draw_text style.font (string.format "%x" (encode-yx {:x mx :y my})) (+ x 20) labely style.text)
   (love.graphics.setColor 1 1 1))
 
-(fn MapEditView.draw-map-layer [self {: x : y &as form} ilayer live]
+(fn MapEditView.draw-map-layer [self {: x : y &as form} live ilayer]
   (love.graphics.setColor 1 1 1 1)
   (local {: mapw : maph : tilew : tileh : xstagger : ystagger} (self:scaled-dimensions ilayer))
   (local [xoffset-layer yoffset-layer] (self:layer-offset ilayer))
@@ -215,23 +220,27 @@
         (local iobject (self:iobject-from-xy mx my))
         (when (= self.itile nil)
           (self:draw-player mx my tilex intiley)
-          (self:draw-object-box iobject tilex intiley tilew intileh))
+          (self:draw-object-box tilex intiley tilew intileh iobject))
         (if self.itile
           (self:handle-mouseedits-tile mx my tilex intiley tilew intileh ilayer)
           (self:handle-mouseedits-object mx my tilex intiley tilew intileh ilayer))
         (when (mouse-inside tilex intiley tilew intileh)
           (when (not= iobject nil) (set iobject-over iobject))
-          (self:draw-tile-xy-label mx my tilex intiley tileh ystagger)))))
+          (self:draw-tile-xy-label mx my tilex intiley tileh ystagger)
+          (self:draw-box tilex intiley tilew intileh [1 1 1 0.5] 1)))))
   (when (and live (= self.itile nil))
     (self:draw-link-lines form iobject-over)))
 
 (fn MapEditView.draw-map-editor [self form]
-  (let [g (group-wrapper form)]
-    (each [ilayer (ipairs (platform :layers))]
-      (self:draw-map-layer (g) ilayer (= ilayer self.ilayer)))
+  (let [g (group-wrapper form)
+        layers (platform :layers)]
+    (if layers
+        (do (each [ilayer (ipairs (platform :layers))]
+              (self:draw-map-layer (g) (= ilayer self.ilayer) ilayer))
             (let [{: x : y : w : h} (g)]
               (when (mouse-inside x y w h)
-        (self:draw-map-layer form self.ilayer true)))
+                (self:draw-map-layer form true self.ilayer))))
+        (self:draw-map-layer form true))
     (g)))
 
 (fn condition-label [flag]

game/tiles.fnl

@@ -21,7 +21,7 @@
 (fn tile-styles [include-details]
   (let [dim (dimensions)
         styles {:tiles dim}]
-    (each [_ layer (ipairs (or dim.layers []))]
+    (each [_ {:style layer} (ipairs (or dim.layers []))]
       (when (not= layer :tiles) (tset styles layer (. dim layer))))
     (if include-details styles (lume.keys styles))))