Start to unify selection lists

src/Dodge/Data/SelectionList.hs

@@ -0,0 +1,26 @@
+{-# LANGUAGE TemplateHaskell #-}
+module Dodge.Data.SelectionList where
+import Picture.Data
+import Control.Lens
+
+data SelectionList = SelectionList
+    { _slPosX :: Float
+    , _slPosY :: Float
+    , _slOffset :: Int
+    , _slScale :: Float
+    , _slVerticalGap :: Float
+    , _slItems :: [SelectionItem]
+    , _slSelPos :: Maybe Int
+    , _slCursorType :: CursorType
+    }
+
+data CursorType = NoCursor
+
+data SelectionItem = SelectionItem
+    { _siPictures :: [Picture]
+    , _siHeight :: Int
+    , _siIsSelectable :: Bool
+    }
+    
+makeLenses ''SelectionList
+makeLenses ''SelectionItem

src/Dodge/Data/Universe.hs

@@ -53,6 +53,7 @@ data ScreenLayer
         , _scDefaultEff :: Universe -> Universe
         , _scOptionFlag :: OptionScreenFlag
         , _scOptionsOffset :: Int
+        , _scSelPos :: Maybe Int
         }
     | ColumnsScreen
         { _scTitle :: Universe -> String