mirror of
https://github.com/jtdaugherty/brick.git
synced 2024-12-02 11:05:10 +03:00
36 lines
814 B
Haskell
36 lines
814 B
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
module Main where
|
||
|
|
|
||
|
|
import Data.Default
|
||
|
|
import Graphics.Vty
|
||
|
|
|
||
|
|
import Brick.Main
|
||
|
|
import Brick.Widgets.Core
|
||
|
|
import Brick.Widgets.Border
|
||
|
|
import Brick.Widgets.Center
|
||
|
|
|
||
|
|
ui :: Widget
|
||
|
|
ui =
|
||
|
|
vBox [ hBox [ padLeft $ vCenter "Left-padded"
|
||
|
|
, vBorder
|
||
|
|
, padRight $ vCenter "Right-padded"
|
||
|
|
]
|
||
|
|
, hBorder
|
||
|
|
, hBox [ padTop $ hCenter "Top-padded"
|
||
|
|
, vBorder
|
||
|
|
, padBottom $ hCenter "Bottom-padded"
|
||
|
|
]
|
||
|
|
]
|
||
|
|
|
||
|
|
app :: App () Event
|
||
|
|
app =
|
||
|
|
App { appDraw = const [padBottom $ padRight ui]
|
||
|
|
, appHandleEvent = resizeOrQuit
|
||
|
|
, appAttrMap = const def
|
||
|
|
, appChooseCursor = neverShowCursor
|
||
|
|
, appMakeVtyEvent = id
|
||
|
|
}
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = defaultMain app ()
|