Scroll so focused element is always visible

client/Main.hs

@@ -134,9 +134,10 @@ onKeyWithEditor ed cs ev = updateEditor ed cs ev
 {- And the rest of the Brick application -}
 
 clientDraw :: ClientState -> [Widget ResourceName]
-clientDraw cs = [padTop (Pad 1) $ padLeft (Pad 2) tree]
+clientDraw cs = [padTop (Pad 1) $ padLeft (Pad 2) vp]
   where
     tree = renderTree boxDrawingBranching (csEditor cs) (csTree cs)
+    vp = viewport RnViewport Vertical tree
 
 clientHandleEvent
   :: ClientState

src/Forest/Client/Node.hs

@@ -30,7 +30,7 @@ decorateExpand True widget  = withDefAttr "expand" widget
 decorateExpand False widget = withDefAttr "noexpand" widget
 
 decorateFocus :: Bool -> Widget n -> Widget n
-decorateFocus True widget  = withDefAttr "focus" widget
+decorateFocus True widget  = visible $ withDefAttr "focus" widget
 decorateFocus False widget = withDefAttr "nofocus" widget
 
 decorateFlags :: Node -> Widget n -> Widget n

src/Forest/Client/ResourceName.hs

@@ -2,5 +2,5 @@ module Forest.Client.ResourceName
   ( ResourceName(..)
   ) where
 
-data ResourceName = RnEditor
+data ResourceName = RnViewport | RnEditor
   deriving (Show, Eq, Ord)