From 3ee771e5363705330534c6026d7512ac45d46357 Mon Sep 17 00:00:00 2001 From: Joscha Date: Sun, 9 Feb 2020 19:28:32 +0000 Subject: [PATCH] Resize and rearrange tree and debug boxes --- client/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/client/Main.hs b/client/Main.hs index 5c279ce..360a348 100644 --- a/client/Main.hs +++ b/client/Main.hs @@ -55,8 +55,8 @@ newClientState node = ClientState clientDraw :: ClientState -> [Widget ResourceName] clientDraw cs = [joinBorders $ withBorderStyle unicode $ tree <+> debug] where - tree = borderWithLabel (txt "Tree") $ renderTree boxDrawingBranching (csEditor cs) (csTree cs) - debug = borderWithLabel (txt "Debug") $ txtWrap $ T.pack $ show $ csTree cs + tree = borderWithLabel (txt "Tree") $ hLimit 50 $ renderTree boxDrawingBranching (csEditor cs) (csTree cs) <=> fill ' ' + debug = borderWithLabel (txt "Debug") $ txtWrap (T.pack $ show $ csTree cs) <=> fill ' ' isQuitEvent :: BrickEvent a b -> Bool isQuitEvent (VtyEvent (Vty.EvKey (Vty.KChar 'q') [])) = True