honeylisp/editor/fontedit.fnl

(local TileView (require :editor.tileedit))
(local tiledraw (require :editor.tiledraw))
(local tiles (require :game.tiles))
(local style (require :core.style))
(local files (require :game.files))

(local FontEditView (TileView:extend))

(fn FontEditView.tilekeys [self] [:gfx])
(fn FontEditView.draw-sidebar [self {: x : y}]
  (when self.itile
    (local char (string.char (+ self.itile 0x20 -1)))
    (renderer.draw_text style.big_font char x y style.text))
  (love.graphics.setColor 1 1 1 1))

(fn FontEditView.initial-style [self] :font)
(fn FontEditView.get_name [self] "Font Editor")

FontEditView