Fix equipment equipping/moving with right click

src/Dodge/Item/Grammar.hs

@@ -89,6 +89,8 @@ itemToFunction itm = case itm ^. itType of
     BULLETMOD BulletModPayload{} -> AmmoPayloadSF BulletAmmo
     BULLETMOD BulletModEffect{} -> AmmoEffectSF BulletAmmo
     TARGETING{} -> WeaponTargetingSF
+    LEFT {} -> EquipmentPlatformSF
+    EQUIP {} -> EquipmentPlatformSF
     _ -> UncomposableIsolateSF
 
 pciToCI :: PartiallyComposedItem -> ComposedItem

src/Dodge/Item/InventoryColor.hs

@@ -11,6 +11,7 @@ import Dodge.Data.ComposedItem
 itemInvColor :: ComposedItem -> Color
 itemInvColor ci = case ci ^. cItemFunction of
     WeaponPlatformSF -> white
+    EquipmentPlatformSF -> yellow
     WeaponScopeSF -> chartreuse
     WeaponTargetingSF -> green
     AugmentedHUDSF -> rose