Commit before door refactor

src/Dodge/Item/Display.hs

@@ -40,10 +40,18 @@ itemDisplay it = itemDisplayWithNumber (showConsumption (_itConsumption it)) it
 showSelectedConsumption :: Creature -> ItemConsumption -> String
 showSelectedConsumption cr ic = case ic of
     LoadableAmmo{} -> showReloadProgress cr ic
+    AutoRecharging {} -> showAutoRechargeProgress ic
     ChargeableAmmo{} -> show $ _wpCharge ic
     ItemItselfConsumable{} -> show (_icAmount ic)
     NoConsumption -> ""
 
+showAutoRechargeProgress :: ItemConsumption -> String
+showAutoRechargeProgress ic
+    | l < _arMax ic = show (_arProgress ic) ++ "C" ++ show l
+    | otherwise    = show l
+  where
+    l = _arLoaded ic
+
 showReloadProgress :: Creature -> ItemConsumption -> String
 showReloadProgress cr ic = case cr ^?! crInvSel . iselAction of
     ReloadAction i la _ -> show i ++ showLoadActionType la (_laLoaded ic)
@@ -59,6 +67,7 @@ showLoadProgress x mlas = case mlas ^? _Just . ix 0 of
 showConsumption :: ItemConsumption -> String
 showConsumption ic = case ic of
     LoadableAmmo{} -> showLoadProgress (_laLoaded ic) (_laProgress ic)
+    AutoRecharging {} -> showAutoRechargeProgress ic
     ChargeableAmmo{} -> show $ _wpCharge ic
     ItemItselfConsumable{} -> show (_icAmount ic)
     NoConsumption -> ""