honeylisp/editor/fontedit.fnl

21 lines
604 B
Fennel

(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