Cleanup

2022-12-26 23:14:30 +00:00
parent 1bafb427df
commit eecc38d68f
4 changed files with 142 additions and 145 deletions
@@ -7,9 +7,8 @@ import LensHelp
 --import Data.Maybe

 getAvailableListLines :: ListDisplayParams -> Configuration -> Int
-getAvailableListLines ldps cfig = nlines
+getAvailableListLines ldps cfig = floor ((dToBot - vgap) / itmHeight)
  where
-    nlines = floor ((dToBot - vgap) / itmHeight)
    vgap = ldps ^. ldpVerticalGap
    itmHeight = 10 * ldps ^. ldpScale + vgap
    dToBot = cfig ^. windowY - (ldps ^. ldpPosY + dFromScreenBot)