Simplify menu screens (no choice of display parameters)

2025-01-07 01:03:12 +00:00
parent fe3e0b1373
commit 4a9c1cd6b3
4 changed files with 15 additions and 28 deletions
@@ -84,8 +84,5 @@ ldpVerticalSelection cfig ldp (V2 _ y)
    ylower = ceiling ((top - y) / yoff) - 1

 setSelectionListRestriction :: Configuration -> ScreenLayer -> ScreenLayer
-setSelectionListRestriction cfig screen = 
-    screen & scAvailableLines %~ const (getAvailableListLines optionListDisplayParams cfig)
--        fromMaybe screen $ do
--    ldps <- screen ^? scListDisplayParams
--    return $ screen & scAvailableLines %~ const (getAvailableListLines ldps cfig)
+setSelectionListRestriction cfig = 
+    scAvailableLines %~ const (getAvailableListLines optionListDisplayParams cfig)