Correctly display held root item

2024-11-26 17:05:13 +00:00
parent 7d0f44a041
commit e1f5049e0f
9 changed files with 16 additions and 67 deletions
@@ -24,7 +24,14 @@ import Dodge.Data.Universe
 import qualified IntMapHelp as IM

 testStringInit :: Universe -> [String]
-testStringInit u = [show $ length <$> u ^.. uvWorld . cWorld . lWorld . lights]
+testStringInit u = [show $ u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . 
+    crManipulation . manObject . imRootSelectedItem]
+--  fromMaybe mempty $ do
+--        cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0
+--        let itms = IM.elems $ cr ^. crInv
+--        return $ map (show . (^? itLocation . ilIsSelected)) itms
+        --return . foldMap (prettyLDT (show . (^. _1 . itType))) . invLDT $ _crInv cr
+    
 --    [ show $ u ^? uvWorld . input . mouseContext . mcoSelEnd
 --    , show $ u ^? uvWorld . hud . hudElement . diSelection
 --    , show $ u ^? uvWorld . input . mouseContext