Remove left click/hotkey item data types

src/Dodge/Item/Display.hs

@@ -48,7 +48,6 @@ itemBaseName itm = case _itType itm of
     HELD hit -> case hit ^? xNum of
         Just i -> takeWhile (/= ' ') (show hit) ++ show i
         Nothing -> show hit
-    LEFT lit -> show lit
     EQUIP eit -> showEquipItem eit
     CONSUMABLE cit -> show cit
     ATTACH ait -> showAttachItem ait itm
@@ -72,13 +71,6 @@ showEquipItem eit = case eit of
     INVISIBILITYEQUIPMENT esite -> "INVISIBILITY " ++ show esite
     _ -> show eit
 
-showAutoRechargeProgress :: LeftConsumption -> String
-showAutoRechargeProgress lc = case lc of
-    AutoRecharging{}
-        | _arLoaded lc < _arMax lc -> show (_arProgress lc) ++ "C" ++ show (_arLoaded lc)
-        | otherwise -> show (_arLoaded lc)
-    ChargeableAmmo{} -> show (_wpCharge lc)
-
 itemNumberDisplay :: Creature -> ComposedItem -> [String]
 itemNumberDisplay cr ci = case (ci ^. _2, itm ^?! itUse, itm ^. itType) of
     (_,_,EQUIP WRIST_ECG) -> [displayPulse $ cr ^?! crType . avatarPulse . pulseProgress]
@@ -87,7 +79,7 @@ itemNumberDisplay cr ci = case (ci ^. _2, itm ^?! itUse, itm ^. itType) of
     _ | hasammo -> [maybe "" shortShow 
         $ itm ^? itConsumables . magLoadStatus . iaLoaded]
     (_,UseHeld{},_) -> []
-    (_,UseHotkey{_leftConsumption=lc},_) -> [showAutoRechargeProgress lc]
+--    (_,UseHotkey{_leftConsumption=lc},_) -> [showAutoRechargeProgress lc]
     (_,UseEquip{},_) -> mempty
     (_,UseNothing,_) -> []
     (_,UseConsume {},_) -> []