Remove non-laser item TARGETLASER

src/Dodge/Item/Display.hs

@@ -14,7 +14,7 @@ import Padding
 
 itemDisplay :: Creature -> ComposedItem -> [String]
 itemDisplay cr ci =
-    zipWithDefaults id (leftPad 15 ' ') itemDisplayPad (basicItemDisplay itm) (itemNumberDisplay cr itm)
+    zipWithDefaults id (leftPad 15 ' ') itemDisplayPad (basicItemDisplay itm) (itemNumberDisplay cr ci)
   where
     itm = _cItem ci
 
@@ -92,20 +92,22 @@ showAutoRechargeProgress lc = case lc of
 --  where
 --    ic = (itm ^?! itUse . heldConsumption . laSource)
 
-itemNumberDisplay :: Creature -> Item -> [String]
-itemNumberDisplay cr itm = case iu of
-    UseHeld{} -> []
-    UseHotkey{} -> [showAutoRechargeProgress (_leftConsumption iu)]
-    UseEquip{} -> showEquipmentNumber cr itm
-    UseCraft -> []
-    UseConsume {} -> []
-    UseAttach {} -> []
-    UseAmmoMag {} -> [maybe "" shortShow $ itm ^? itUse . amagLoadStatus . iaLoaded]
-    UseScope OpticScope {_opticZoom = x} -> [shortShow x]
+itemNumberDisplay :: Creature -> ComposedItem -> [String]
+itemNumberDisplay cr ci = case (ci ^. cItemFunction,iu) of
 --    UseTargeting {_tgPos = mp} -> [maybe "" shortShow mp]
         -- this could be cleaner here...
-    UseBulletMod {} -> mempty
+    (WeaponTargetingSF,_) -> [maybe "" shortShow (itm ^? itTargeting . itTgPos . _Just)]
+    (_,UseHeld{}) -> []
+    (_,UseHotkey{}) -> [showAutoRechargeProgress (_leftConsumption iu)]
+    (_,UseEquip{}) -> showEquipmentNumber cr itm
+    (_,UseCraft) -> []
+    (_,UseConsume {}) -> []
+    (_,UseAttach {}) -> []
+    (_,UseAmmoMag {}) -> [maybe "" shortShow $ itm ^? itUse . amagLoadStatus . iaLoaded]
+    (_,UseScope OpticScope {_opticZoom = x}) -> [shortShow x]
+    (_,UseBulletMod {}) -> mempty
   where
+    itm = ci ^. cItem
     iu = itm ^?! itUse
 
 showEquipmentNumber :: Creature -> Item -> [String]