fix font / portrait editors, neut tileset serialization

editor/fontedit.fnl

@@ -7,6 +7,7 @@
 
 (fn FontEditView.spritegen [self] tiledraw.char-to-sprite)
 (fn FontEditView.tilesize [self] (values 8 8))
+(fn FontEditView.tilekeys [self] [:gfx])
 (fn FontEditView.map-bitxy [self x y] (values y x))
 (fn FontEditView.draw-tile-flags [self x y]
   (when self.itile

editor/portraitedit.fnl

@@ -8,6 +8,7 @@
 
 (fn PortraitView.spritegen [self] tiledraw.portrait-to-sprite)
 (fn PortraitView.tilesize [self] (values 32 32))
+(fn PortraitView.tilekeys [self] [:gfx])
 (fn PortraitView.filename [self] tiles.fn-portraits)
 (fn PortraitView.map-bitxy [self x y]
   (local quadrant (+ (if (>= x 16) 2 0) (if (>= y 16) 1 0)))

editor/tileedit.fnl

@@ -20,6 +20,7 @@
     (values ibyte ibit)))
 
 (fn TileView.tilesize [self] (values 16 16))
+(fn TileView.tilekeys [self] [:gfx :neut])
 
 (fn get-byte [tile ibyte]
   (: (tile:sub (+ ibyte 1) (+ ibyte 1)) :byte))
@@ -89,13 +90,18 @@
 
 (fn TileView.save [self] (tiles.savegfx (self:filename) self.tilecache.tiles))
 
+(fn TileView.draw-neut-tile-selector [self x y]
+  (self:draw-tile-selector x (- self.size.x 20) :neut))
+
 (fn TileView.draw [self]
   (self:draw_background style.background)
   (local (x y) (values (+ self.position.x 10) (+ self.position.y 10)))
   (local (editor-w editor-h) (self:draw-tile-editor (self:tile) x y))
   (self:draw-tile-flags (+ x editor-w pixel-size) y)
-  (local top-selector-h (self:draw-tile-selector x (+ y editor-h pixel-size) (- self.size.x 20)))
+  (var selector-y (+ y editor-h pixel-size))
-  (self:draw-tile-selector x (+ y editor-h pixel-size top-selector-h pixel-size) (- self.size.x 20) :neut))
+  (each [_ key (ipairs (self:tilekeys))]
+    (local selector-h (self:draw-tile-selector x selector-y (- self.size.x 20) key))
+    (set selector-y (+ selector-y selector-h pixel-size))))
 
 (fn TileView.get_name [self] "Tile Editor")
 

game/tiles.fnl

@@ -6,12 +6,23 @@
 (each [iflag flag (ipairs flags)]
   (tset flag-to-bit flag (bit.lshift 1 (- iflag 1))))
 
+(local encoded-tile-fields [:gfx :neut])
+(fn convert [tile field method]
+  (local oldval (. tile field))
+  (when oldval
+    (tset tile field (: oldval method)))
+  tile)
+(fn convert-all [tile method]
+  (each [_ field (ipairs encoded-tile-fields)]
+    (convert tile field method))
+  tile)
+
 (fn deserialize [tile]
   (match (type tile)
     :string {:gfx (tile:fromhex) :flags {}}
-    :table  (doto tile (tset :gfx (tile.gfx:fromhex)))))
+    :table  (convert-all tile :fromhex)))
 
-(fn serialize [tile] (doto (lume.clone tile) (tset :gfx (tile.gfx:tohex))))
+(fn serialize [tile] (convert-all (lume.clone tile) :tohex))
 
 (local fn-tiles "game/tiles.json")
 (local fn-portraits "game/portraits.json")