Rethink selection lists as intmaps

2023-01-15 23:17:47 +00:00
parent 17734738f6
commit 048135c370
17 changed files with 245 additions and 93 deletions
@@ -1,6 +1,7 @@
 module Dodge.Menu.Option where

 --import Dodge.ScodeToChar
+import Dodge.Default.SelectionList
 import Data.Maybe
 --import Dodge.WindowLayout

@@ -62,12 +63,10 @@ makeOptionsSelectionList ::
    PositionedMenuOption ->
    SelectionList (Universe -> Universe)
 makeOptionsSelectionList maxlines mselpos u mos pmo =
-    SelectionList
+    defaultSelectionList
        { _slItems = optionsToSelections maxlines u mos pmo
        , _slSelPos = mselpos
        , _slLength = length $ optionsToSelections maxlines u mos pmo
-        , _slRegex = ""
-        , _slRegexInput = False
        }

 optionsToSelections :: Int -> Universe -> [MenuOption] -> PositionedMenuOption -> [SelectionItem (Universe -> Universe)]