Work on mouse selection in menus

src/Dodge/Menu/Option.hs

@@ -1,6 +1,13 @@
 module Dodge.Menu.Option
     where
+import Dodge.ScodeToChar
+import Padding
+import Picture.Base
+import Color
+import Dodge.Data.CardinalPoint
+import Dodge.Data.SelectionList
 import Dodge.Data.Universe
+import qualified Data.Set as Set
 
 slTitleOptionsEff :: String -> [MenuOption] -> (Universe -> Universe) -> ScreenLayer
 slTitleOptionsEff title ops eff =
@@ -12,3 +19,54 @@ slTitleOptionsEff title ops eff =
         , _scOptionsOffset = 0
         , _scSelPos = Just 0
         }
+
+makeOptionsSelectionList :: Maybe Int -> Universe -> [MenuOption] -> SelectionList
+makeOptionsSelectionList mselpos u mos = SelectionList
+    { _slPosX = 50
+    , _slPosY = 50
+    , _slOffset = 0
+    , _slScale = 2
+    , _slVerticalGap = 30
+    , _slItems = optionsToSelections u mos
+    , _slSelPos = mselpos
+    , _slCursorType = BorderCursor (Set.fromList [North,South,West])
+    , _slWidth = FixedSelectionWidth 15
+    }
+
+optionsToSelections :: Universe -> [MenuOption] -> [SelectionItem]
+optionsToSelections u ops = map colStrToSelItem colstrs
+  where
+    maxOptionLength = 3 + maximum (0 : map (optionValueOffset u) visibleops)
+    colstrs = map (menuOptionToString u maxOptionLength) visibleops
+    visibleops = filter notInvisible ops
+    notInvisible InvisibleToggle{} = False
+    notInvisible _ = True
+
+colStrToSelItem :: (Color,String) -> SelectionItem
+colStrToSelItem (col,str) = SelectionItem
+    { _siPictures = [color col $ text str]
+    , _siHeight = 1
+    , _siIsSelectable = True
+    , _siColor = col
+    , _siOffX = 0
+    }
+
+optionValueOffset :: Universe -> MenuOption -> Int
+optionValueOffset u mo = case _moString mo u of
+    MODStringOption s _ -> length s
+    _ -> 0
+
+menuOptionToString :: Universe -> Int -> MenuOption -> (Color, String)
+menuOptionToString w padAmount mo = (thecol, theKeys ++ optionText)
+  where
+    thecol = case _moString mo w of
+        MODBlockedString{} -> greyN 0.5
+        _ -> white
+    optionText = case _moString mo w of
+        MODStringOption s t -> rightPad padAmount '.' s ++ t
+        x -> _modString x
+    theKeys = case mo of
+        Toggle{_moKey = k} -> stc k : ":"
+        Toggle2{_moKey1 = k1, _moKey2 = k2} -> stc k1 : '/' : stc k2 : ":"
+        _ -> undefined
+    stc = scodeToChar