Continue work on menu screens

src/Dodge/Render/MenuScreen.hs

@@ -89,14 +89,11 @@ drawOptions u title ops off mselpos footer =
 
     maxOptionLength = 3 + maximum (0 : map (optionValueOffset u) ops')
     ops' = case availableMenuLines cfig of
-        x | x < length ops -> take (availableMenuLines cfig) (drop off visibleops)
-        _ -> visibleops
+        x | x < length ops -> take (availableMenuLines cfig) (drop off ops)
+        _ -> ops
     ops'' = case availableMenuLines cfig of
         x | x < length ops -> zipWith (menuOptionToString u maxOptionLength) ['A'..] ops' ++ [(white, "SPACE: MORE OPTIONS")]
         _ -> zipWith (menuOptionToString u maxOptionLength) ['A'..] ops'
-    visibleops = filter notInvisible ops
-    notInvisible InvisibleToggle{} = False
-    notInvisible _ = True
     hh = halfHeight cfig
     hw = halfWidth cfig
     cfig = _uvConfig u