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

Prevent unfolding of nodes without children

Browse source
This commit is contained in:
Joscha 2020-02-09 11:44:25 +00:00
parent 909d587c53
commit 573a835022
4 changed files with 20 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
client/Main.hs
View file

@ -51,7 +51,11 @@ newClientState node = ClientState
}
clientDraw :: ClientState -> [Widget ResourceName]
clientDraw cs = [renderTree boxDrawingBranching (csEditor cs) (csTree cs)]
clientDraw cs =
[ renderTree boxDrawingBranching (csEditor cs) (csTree cs) <=>
txt "--------------------------------------------------------------------------------" <=>
txtWrap (T.pack $ show $ csTree cs)
]
isQuitEvent :: BrickEvent a b -> Bool
isQuitEvent (VtyEvent (Vty.EvKey (Vty.KChar 'q') [])) = True