Commit before messing with main inventory display

src/Dodge/Render/HUD.hs

@@ -38,7 +38,7 @@ import SDL (MouseButton (..))
 drawHUD :: Configuration -> World -> Picture
 drawHUD cfig w = case w ^. hud . hudElement of
     DisplayCarte -> drawCarte cfig w
-    DisplayInventory subinv ->
+    DisplayInventory {_diSections = sections, _subInventory = subinv} ->
         drawInGameHUD sl cfig w
             <> drawSubInventory subinv cfig w
   where
@@ -241,7 +241,7 @@ displayTerminal tid cfig w = fromMaybe mempty $ do
     toselitm (str, col) = SelectionItem [str] 1 True (length str) col 0 ()
     thesellist tm = defaultSelectionList 
         { _slItems = thelist tm
-        , _slLength = length (thelist tm)
+--        , _slLength = length (thelist tm)
         }
     thelist tm =
         map toselitm . displayTermInput tm

src/Dodge/Render/List.hs

@@ -1,5 +1,6 @@
 module Dodge.Render.List where
 
+--import Picture.Text
 import SelectionIntMap
 import qualified Data.IntMap.Strict as IM
 --import Data.Foldable
@@ -43,6 +44,7 @@ makeSelectionListPictures :: SelectionList a -> [Picture]
 makeSelectionListPictures sl = concatMap f $ getShownItems sl
   where
     f si = map (color (_siColor si) . text) $ _siPictures si
+    --f si = map (textGrad (_siColor si) (withAlpha 0 (_siColor si))) $ _siPictures si
 
 makeSelectionMapPictures :: SelectionIntMap a -> [Picture]
 makeSelectionMapPictures sl = foldMap f $ _smShownItems sl