mirror of
https://github.com/jtdaugherty/brick.git
synced 2024-12-03 11:41:06 +03:00
78 lines
2.2 KiB
Haskell
78 lines
2.2 KiB
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
module Main where
|
|
|
|
import qualified Data.Text as T
|
|
import Lens.Micro.TH
|
|
|
|
import Graphics.Vty
|
|
import Brick
|
|
import Brick.Forms
|
|
import Brick.Focus
|
|
import Brick.Widgets.Edit
|
|
import Brick.Widgets.Border
|
|
import Brick.Widgets.Center
|
|
|
|
data Name = Edit1
|
|
| Edit2
|
|
| Password
|
|
| YesRadio
|
|
| NoRadio
|
|
| OkayCheckbox
|
|
deriving (Eq, Ord, Show)
|
|
|
|
data FormState =
|
|
FormState { _field1 :: Int
|
|
, _field2 :: Int
|
|
, _fieldPassword :: T.Text
|
|
, _radio :: Bool
|
|
, _reallyOkay :: Bool
|
|
}
|
|
deriving (Show)
|
|
|
|
makeLenses ''FormState
|
|
|
|
mkForm :: FormState -> Form FormState e Name
|
|
mkForm =
|
|
newForm [ ((hCenter $ str "Edit 1:") <=>) @@=
|
|
editShowableField field1 Edit1
|
|
, (str "Edit 2: " <+>) @@=
|
|
editShowableField field2 Edit2
|
|
, (str "Password: " <+>) @@=
|
|
editPasswordField fieldPassword Password
|
|
, (str "Okay? " <+>) @@=
|
|
radioField radio [ (True, YesRadio, "Yes")
|
|
, (False, NoRadio, "No")
|
|
]
|
|
, checkboxField reallyOkay OkayCheckbox "Really Okay"
|
|
]
|
|
|
|
theMap :: AttrMap
|
|
theMap = attrMap defAttr
|
|
[ (editAttr, white `on` black)
|
|
, (editFocusedAttr, black `on` yellow)
|
|
, (invalidFormInputAttr, white `on` red)
|
|
, (focusedRadioAttr, black `on` yellow)
|
|
, (focusedCheckboxAttr, black `on` yellow)
|
|
]
|
|
|
|
app :: App (Form FormState e Name) e Name
|
|
app =
|
|
App { appDraw = \s -> [center $ border $ hLimit 50 $ renderForm s]
|
|
, appHandleEvent = \s ev ->
|
|
case ev of
|
|
VtyEvent (EvResize {}) -> continue s
|
|
VtyEvent (EvKey KEsc []) -> halt s
|
|
VtyEvent (EvKey KEnter []) -> halt s
|
|
_ -> continue =<< handleFormEvent ev s
|
|
, appChooseCursor = focusRingCursor formFocus
|
|
, appStartEvent = return
|
|
, appAttrMap = const theMap
|
|
}
|
|
|
|
main :: IO ()
|
|
main = do
|
|
let f = mkForm $ FormState 10 20 "" False False
|
|
f' <- defaultMain app f
|
|
print $ formState f'
|