ad1fcf9192
Cleaning up the Tetris module, mainly to favor a MonadState style over explicit `Game -> Game` functions, which were a little awkward. This also led naturally to explicitly isolating `IO`, by having pure state modifiers with types like `Tetris a ~ forall m. StateT Game m a` being executed with `m ~ Identity`, and those few modifiers that need IO specified by `TetrisT a ~ StateT Game IO a`.
47 lines
1.3 KiB
Haskell
47 lines
1.3 KiB
Haskell
module UI.PickLevel
|
|
( pickLevel
|
|
) where
|
|
|
|
import System.Exit (exitSuccess)
|
|
|
|
import Brick
|
|
import qualified Brick.Widgets.Border as B
|
|
import qualified Brick.Widgets.Border.Style as BS
|
|
import qualified Brick.Widgets.Center as C
|
|
import qualified Graphics.Vty as V
|
|
|
|
app :: App (Maybe Int) e ()
|
|
app = App { appDraw = const [ui]
|
|
, appHandleEvent = handleEvent
|
|
, appStartEvent = return
|
|
, appAttrMap = const theMap
|
|
, appChooseCursor = neverShowCursor
|
|
}
|
|
|
|
ui :: Widget ()
|
|
ui = padLeft (Pad 19) $ padRight (Pad 21)
|
|
$ C.center
|
|
$ vLimit 22
|
|
$ hLimit 22
|
|
$ withBorderStyle BS.unicodeBold
|
|
$ B.borderWithLabel (str "Tetris")
|
|
$ C.center
|
|
$ str " Choose Level (0-9)"
|
|
|
|
theMap :: AttrMap
|
|
theMap = attrMap V.defAttr []
|
|
|
|
handleEvent :: Maybe Int -> BrickEvent () e -> EventM () (Next (Maybe Int))
|
|
handleEvent n (VtyEvent (V.EvKey V.KEsc _)) = halt n
|
|
handleEvent n (VtyEvent (V.EvKey (V.KChar 'q') _)) = halt n
|
|
handleEvent n (VtyEvent (V.EvKey (V.KChar 'Q') _)) = halt n
|
|
handleEvent n (VtyEvent (V.EvKey (V.KChar d) [])) =
|
|
if d `elem` ['0'..'9']
|
|
then halt $ Just (read [d])
|
|
else continue n
|
|
handleEvent n _ = continue n
|
|
|
|
pickLevel :: IO Int
|
|
pickLevel =
|
|
defaultMain app Nothing
|
|
>>= maybe exitSuccess return
|