Implement telescoping inventory selection

2023-02-10 10:57:00 +00:00
parent c354949ca9
commit a8e00ac025
10 changed files with 172 additions and 64 deletions
@@ -56,5 +56,5 @@ getIthYOffset ygap scale sm i = (scale * 10 + ygap) * (fromIntegral yint + 1)
  where
    yint = getIthPos i (sm ^. smShownItems)
    
-selectionSectionsToIntMap :: SelectionSections a -> SelectionIntMap a
-selectionSectionsToIntMap ss = undefined
+--selectionSectionsToIntMap :: SelectionSections a -> SelectionIntMap a
+--selectionSectionsToIntMap ss = undefined