Work on collapsing close item list

2023-02-11 09:09:23 +00:00
parent a8e00ac025
commit 10f732d489
6 changed files with 183 additions and 63 deletions
@@ -42,11 +42,18 @@ data SSRestriction = NoSSRestriction
        , _ssrOffset :: Int
        }

+data SectionCursor = SectionCursor
+    { _scurPos :: Int
+    , _scurSize :: Int
+    , _scurColor :: Color
+    }
+
 data SelectionSection a = SelectionSection
-    { _ssItems :: [SelectionItem a]
-    , _ssSelPos :: Maybe Int
-    , _ssSelSize :: Maybe Int
-    , _ssSelColor :: Maybe Color
+    { _ssItems :: IntMap (SelectionItem a)
+    , _ssCursor :: Maybe SectionCursor
+--    , _ssSelPos :: Maybe Int
+--    , _ssSelSize :: Maybe Int
+--    , _ssSelColor :: Maybe Color
    , _ssMinSize :: Int
    , _ssPriority :: Int
    , _ssOffset :: Int
@@ -97,6 +104,7 @@ makeLenses ''SelectionItem
 makeLenses ''SelectionIntMap
 makeLenses ''SelectionSection
 makeLenses ''SelectionSections
+makeLenses ''SectionCursor
 makeLenses ''SSRestriction
 --deriveJSON defaultOptions ''SelectionItem
 --deriveJSON defaultOptions ''SelectionList