Refactor window size, update selection cursor on new screen

2023-03-25 09:27:27 +00:00
parent 20c05be23f
commit ea0c942887
57 changed files with 346 additions and 310 deletions
@@ -12,7 +12,7 @@ getAvailableListLines ldps cfig = floor ((dToBot - vgap) / itmHeight)
  where
    vgap = ldps ^. ldpVerticalGap
    itmHeight = 10 * ldps ^. ldpScale + vgap
-    dToBot = cfig ^. windowY - (ldps ^. ldpPosY + dFromScreenBot)
+    dToBot = fromIntegral (cfig ^. windowY) - (ldps ^. ldpPosY + dFromScreenBot)
    dFromScreenBot = 5 -- fromMaybe 0 $ sl ^? slSizeRestriction . ssrType . ssrFromScreenBottom

 getShownItems :: SelectionList a -> [SelectionItem a]