Continue work on menu screens

2022-11-04 09:14:32 +00:00
parent c263012b61
commit 054405244f
6 changed files with 28 additions and 66 deletions
@@ -36,11 +36,8 @@ makeOptionsSelectionList mselpos u mos = SelectionList
 optionsToSelections :: Universe -> [MenuOption] -> [SelectionItem]
 optionsToSelections u ops = map colStrToSelItem colstrs
  where
-    maxOptionLength = 3 + maximum (0 : map (optionValueOffset u) visibleops)
-    colstrs = zipWith (menuOptionToString u maxOptionLength) ['A'..] visibleops
-    visibleops = filter notInvisible ops
-    notInvisible InvisibleToggle{} = False
-    notInvisible _ = True
+    maxOptionLength = 3 + maximum (0 : map (optionValueOffset u) ops)
+    colstrs = zipWith (menuOptionToString u maxOptionLength) ['A'..] ops

 colStrToSelItem :: (Color,String) -> SelectionItem
 colStrToSelItem (col,str) = SelectionItem