add scrolling

1 files changed, 7 insertions, 3 deletions

diff --git a/repgoal.hs b/repgoal.hs
index a82aaa3..bef5c88 100755
--- a/repgoal.hs
+++ b/repgoal.hs
@@ -45,6 +45,7 @@ import Brick.Main
   , continue
   , halt
   )
+import qualified Brick.Main as M
 import Brick.AttrMap
   ( attrMap
   )
@@ -114,7 +115,7 @@ showRational n = printf format $ (realToFrac :: Rational -> Float) $ n
     format = if floor (n * 10) `mod` 10 == (0 :: Integer) then "%.0f" else "%.2f"
 
 drawUI :: St -> [Widget ()]
-drawUI (St lifts) = [vCenter $ vBox [hCenter oneRepMaxTable, hCenter lastSetTable]]
+drawUI (St lifts) = [vCenter $ vBox [hCenter oneRepMaxTable, withVScrollBarHandles $ withVScrollBars OnRight $ viewport () Vertical $ hCenter lastSetTable]]
   where
     lastSetTable = renderTable $ table $ map (padLeftRight 1 . str) ["Lift", "Week", "Last Set", "Goal", "Goal+1"] : concatMap toWeekRows lifts
     oneRepMaxTable = renderTable $ table $ map (padLeftRight 1 . str) ["Lift", "Achieved Best", "Computed 1RM"] : map toRow lifts
@@ -163,6 +164,8 @@ data CustomEvent = CustomEvent
 handleEvent :: St -> BrickEvent () CustomEvent -> EventM () (Next St)
 handleEvent st e = case e of
   VtyEvent (V.EvKey V.KEsc [])         -> halt st
+  VtyEvent (V.EvKey V.KDown _)         -> M.vScrollBy (M.viewportScroll ()) 5    >> continue st
+  VtyEvent (V.EvKey V.KUp _)           -> M.vScrollBy (M.viewportScroll ()) (-5) >> continue st
   VtyEvent _                           -> continue st
   AppEvent _                           -> continue st
   _ -> continue st
@@ -179,6 +182,7 @@ theApp =
 main :: IO ()
 main = do
     let buildVty = V.mkVty V.defaultConfig
-    initialVty <- buildVty
+    vty <- buildVty
+    -- liftIO $ setMode (outputIface vty) Mouse True
     chan <- newBChan 10
-    void $ customMain initialVty buildVty (Just chan) (theApp) (St initial)
+    void $ customMain vty buildVty (Just chan) (theApp) (St initial)