45 lines
1.4 KiB
Fennel
45 lines
1.4 KiB
Fennel
(local lume (require :lib.lume))
|
|
(local common (require :core.common))
|
|
(local style (require :core.style))
|
|
|
|
(local std-handlers love.handlers)
|
|
(local modes {:name-to-mode {}
|
|
:mode-index 1
|
|
:names []
|
|
: std-handlers})
|
|
|
|
(fn modes.cycle [self]
|
|
(set self.mode-index (+ self.mode-index 1))
|
|
(when (> self.mode-index (length self.names))
|
|
(set self.mode-index 1))
|
|
(self:switch (self:current)))
|
|
|
|
(fn modes.current [self]
|
|
(. self.name-to-mode (. self.names self.mode-index)))
|
|
|
|
(fn add-mode-cycler [handlers]
|
|
(fn mode-cycler [ev key ...]
|
|
(when (and (= ev :keyreleased) (= key :f1))
|
|
(modes:cycle))
|
|
(when (rawget handlers :any) (handlers.any ev key ...)))
|
|
(setmetatable {:any mode-cycler} {:__index handlers}))
|
|
|
|
(fn modes.switch [self mode]
|
|
(set love.handlers (add-mode-cycler (if mode.handler {:any mode.handler} std-handlers)))
|
|
(set love.update mode.update)
|
|
(set love.draw (fn []
|
|
(xpcall mode.draw (fn [msg]
|
|
(love.graphics.reset)
|
|
(love.graphics.setColor 1 0 0 1)
|
|
(love.graphics.setNewFont 14)
|
|
(love.graphics.printf (.. msg "\n" (debug.traceback))
|
|
20 20 (- (love.graphics.getWidth) 40)))))))
|
|
|
|
(fn modes.register [self name mode]
|
|
(tset self.name-to-mode name mode)
|
|
(when (not (lume.any self.names #(= $1 name)))
|
|
(table.insert self.names name))
|
|
(when (= (length self.names) 1) (self:cycle)))
|
|
|
|
modes
|