Continue to work on targeting inventory items

src/Dodge/TestString.hs

@@ -1,6 +1,7 @@
 {-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.TestString where
 
+import Dodge.Item.Display
 import AesonHelp
 import Dodge.SmoothScroll
 import HelpNum
@@ -18,7 +19,13 @@ import Dodge.Data.Universe
 --import qualified Data.Map.Strict as M
 --import qualified IntMapHelp as IM
 testStringInit :: Universe -> [String]
-testStringInit _ = mempty
+testStringInit u = [fromMaybe "" $ do
+    cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0
+    i <- cr ^? crManipulation . manObject . inInventory . ispItem
+    fmap (show . canAttachTargetingBelow) (cr ^? crInv . ix i) 
+    ]
+
+
 --    getPrettyShort (u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crHotkeys)
 --    <> ["---"]
 --    <> getPrettyShort ( u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crInvHotkeys)