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

Make debug display look better :P

Browse source
This commit is contained in:
Joscha 2020-02-09 12:08:48 +00:00
parent 573a835022
commit 31e59616f5
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
client/Main.hs
View file

@ -3,6 +3,8 @@
module Main where
import Brick
import Brick.Widgets.Border
import Brick.Widgets.Border.Style
import Control.Concurrent.Chan
import Control.Exception
import Control.Monad
@ -51,11 +53,10 @@ newClientState node = ClientState
}
clientDraw :: ClientState -> [Widget ResourceName]
clientDraw cs =
[ renderTree boxDrawingBranching (csEditor cs) (csTree cs) <=>
txt "--------------------------------------------------------------------------------" <=>
txtWrap (T.pack $ show $ csTree cs)
]
clientDraw cs = [joinBorders $ withBorderStyle unicode $ debug <=> tree]
where
tree = borderWithLabel (txt "Tree") $ renderTree boxDrawingBranching (csEditor cs) (csTree cs)
debug = borderWithLabel (txt "Debug") $ hLimit 80 $ txtWrap $ T.pack $ show $ csTree cs
isQuitEvent :: BrickEvent a b -> Bool
isQuitEvent (VtyEvent (Vty.EvKey (Vty.KChar 'q') [])) = True
@ -71,7 +72,7 @@ isFocusUpEvent _ = False
isToggleFoldEvent :: BrickEvent a b -> Bool
isToggleFoldEvent (VtyEvent (Vty.EvKey (Vty.KChar '\t') [])) = True
isToggleFoldEvent _ = False
isToggleFoldEvent _ = False
clientHandleEvent :: ClientState -> BrickEvent ResourceName () -> EventM ResourceName (Next ClientState)
clientHandleEvent cs e