Highlight moused-over inventory items

src/Dodge/TestString.hs

@@ -1,6 +1,7 @@
 {-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.TestString where
 
+import qualified Control.Foldl as L
 import Dodge.DoubleTree
 import Dodge.Data.DoubleTree
 import Dodge.Item.Grammar
@@ -20,7 +21,11 @@ import Dodge.Data.Universe
 import qualified IntMapHelp as IM
 
 testStringInit :: Universe -> [String]
-testStringInit _ = []
+testStringInit u = [
+    show $ u ^? uvWorld . hud . hudElement . subInventory . nsMouseOver . _Just]
+    <> map show (IM.elems (L.postscan (L.premap _siHeight L.sum)
+        $ fromMaybe mempty $ u ^? uvWorld . hud . hudElement . diSections . sssSections . ix 0 . ssItems)
+        )
 --testStringInit u = [maybe mempty show $ u ^? uvWorld . cWorld . lWorld . projectiles . ix 0 . prjUpdates . ix 3 . pjuControllerID]
 --testStringInit u = (topTestPart u
 --    <>) $ map showh $