mirror of
https://github.com/jtdaugherty/brick.git
synced 2024-11-22 14:10:03 +03:00
dee90efa8c
This change makes it possible to use the "zoom" function from microlens-mtl to zoom in on a state field in EventM. This change adds a re-export of "zoom" to Brick.Types for convenience.
96 lines
2.7 KiB
Haskell
96 lines
2.7 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE RankNTypes #-}
|
|
module Main where
|
|
|
|
import Lens.Micro
|
|
import Lens.Micro.TH
|
|
import Lens.Micro.Mtl
|
|
import qualified Graphics.Vty as V
|
|
|
|
import qualified Brick.Main as M
|
|
import qualified Brick.Types as T
|
|
import Brick.Widgets.Core
|
|
( (<+>)
|
|
, (<=>)
|
|
, hLimit
|
|
, vLimit
|
|
, str
|
|
)
|
|
import qualified Brick.Widgets.Center as C
|
|
import qualified Brick.Widgets.Edit as E
|
|
import qualified Brick.AttrMap as A
|
|
import qualified Brick.Focus as F
|
|
import Brick.Util (on)
|
|
|
|
data Name = Edit1
|
|
| Edit2
|
|
deriving (Ord, Show, Eq)
|
|
|
|
data St =
|
|
St { _focusRing :: F.FocusRing Name
|
|
, _edit1 :: E.Editor String Name
|
|
, _edit2 :: E.Editor String Name
|
|
}
|
|
|
|
makeLenses ''St
|
|
|
|
drawUI :: St -> [T.Widget Name]
|
|
drawUI st = [ui]
|
|
where
|
|
e1 = F.withFocusRing (st^.focusRing) (E.renderEditor (str . unlines)) (st^.edit1)
|
|
e2 = F.withFocusRing (st^.focusRing) (E.renderEditor (str . unlines)) (st^.edit2)
|
|
|
|
ui = C.center $
|
|
(str "Input 1 (unlimited): " <+> (hLimit 30 $ vLimit 5 e1)) <=>
|
|
str " " <=>
|
|
(str "Input 2 (limited to 2 lines): " <+> (hLimit 30 e2)) <=>
|
|
str " " <=>
|
|
str "Press Tab to switch between editors, Esc to quit."
|
|
|
|
appEvent :: T.BrickEvent Name e -> T.EventM Name St ()
|
|
appEvent (T.VtyEvent (V.EvKey V.KEsc [])) =
|
|
M.halt
|
|
appEvent (T.VtyEvent (V.EvKey (V.KChar '\t') [])) =
|
|
focusRing %= F.focusNext
|
|
appEvent (T.VtyEvent (V.EvKey V.KBackTab [])) =
|
|
focusRing %= F.focusPrev
|
|
appEvent ev = do
|
|
r <- use focusRing
|
|
case F.focusGetCurrent r of
|
|
Just Edit1 -> zoom edit1 $ E.handleEditorEvent ev
|
|
Just Edit2 -> zoom edit2 $ E.handleEditorEvent ev
|
|
Nothing -> return ()
|
|
|
|
initialState :: St
|
|
initialState =
|
|
St (F.focusRing [Edit1, Edit2])
|
|
(E.editor Edit1 Nothing "")
|
|
(E.editor Edit2 (Just 2) "")
|
|
|
|
theMap :: A.AttrMap
|
|
theMap = A.attrMap V.defAttr
|
|
[ (E.editAttr, V.white `on` V.blue)
|
|
, (E.editFocusedAttr, V.black `on` V.yellow)
|
|
]
|
|
|
|
appCursor :: St -> [T.CursorLocation Name] -> Maybe (T.CursorLocation Name)
|
|
appCursor = F.focusRingCursor (^.focusRing)
|
|
|
|
theApp :: M.App St e Name
|
|
theApp =
|
|
M.App { M.appDraw = drawUI
|
|
, M.appChooseCursor = appCursor
|
|
, M.appHandleEvent = appEvent
|
|
, M.appStartEvent = return ()
|
|
, M.appAttrMap = const theMap
|
|
}
|
|
|
|
main :: IO ()
|
|
main = do
|
|
st <- M.defaultMain theApp initialState
|
|
putStrLn "In input 1 you entered:\n"
|
|
putStrLn $ unlines $ E.getEditContents $ st^.edit1
|
|
putStrLn "In input 2 you entered:\n"
|
|
putStrLn $ unlines $ E.getEditContents $ st^.edit2
|