Garmelon/forest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add longer example node

Browse source
This commit is contained in:
Joscha 2020-02-09 15:50:35 +00:00
parent 49d0c8039e
commit 4706033c32
2 changed files with 42 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
client/Main.hs
View file

@ -53,10 +53,10 @@ newClientState node = ClientState
}
clientDraw :: ClientState -> [Widget ResourceName]
clientDraw cs = [joinBorders $ withBorderStyle unicode $ debug <=> tree]
clientDraw cs = [joinBorders $ withBorderStyle unicode $ tree <+> debug]
where
tree = borderWithLabel (txt "Tree") $ renderTree boxDrawingBranching (csEditor cs) (csTree cs)
debug = borderWithLabel (txt "Debug") $ hLimit 80 $ txtWrap $ T.pack $ show $ csTree cs
debug = borderWithLabel (txt "Debug") $ txtWrap $ T.pack $ show $ csTree cs
isQuitEvent :: BrickEvent a b -> Bool
isQuitEvent (VtyEvent (Vty.EvKey (Vty.KChar 'q') [])) = True