Commit before perhaps rethinking item structure

src/Dodge/Item/Display.hs

@@ -65,6 +65,7 @@ itemBaseName = \case
     TARGETING tt -> show tt
     BULLETMOD (BulletModPayload btt) -> show btt
     BULLETMOD (BulletModEffect btt) -> show btt
+    STICKYMOD -> "STICKYMOD" 
 
 showAttachItem :: AttachType -> String
 showAttachItem t = case t of

src/Dodge/Item/Draw/SPic.hs

@@ -40,6 +40,7 @@ itemSPic it = case it ^. itType of
     AMMOMAG amt -> ammoMagSPic it amt
     TARGETING{} -> defSPic
     BULLETMOD{} -> defSPic
+    STICKYMOD -> defSPic
 
 craftItemSPic :: CraftType -> Shape
 craftItemSPic = \case

src/Dodge/Item/Grammar.hs

@@ -17,6 +17,7 @@ import Dodge.DoubleTree
 import Dodge.Item.Orientation
 import LensHelp
 import ListHelp
+import qualified Data.Set as S
 
 tryAttachItems ::
     LabelDoubleTree ItemLink ComposedItem ->
@@ -108,7 +109,7 @@ itemToFunction itm = case itm ^. itType of
         | Just amtype <- itm ^? itConsumables . magType
           , Just _ <- itm ^? itLocation . ilEquipSite . _Just ->
             AmmoMagSF amtype
-    AMMOMAG{} -> maybe UncomposableIsolateSF AmmoMagSF $ itm ^? itConsumables . magType
+    AMMOMAG{} -> maybe NoSF AmmoMagSF $ itm ^? itConsumables . magType
     ATTACH REMOTESCREEN -> RemoteScreenSF
     ATTACH JOYSTICK -> JoystickSF
     ATTACH REMOTEDETONATOR -> RemoteDetonatorSF
@@ -124,7 +125,12 @@ itemToFunction itm = case itm ^. itType of
     EQUIP WRIST_ECG -> TriggerSF
     EQUIP{} -> EquipmentPlatformSF
     ATTACH SHELLPAYLOAD{} -> AmmoPayloadSF LauncherAmmo
-    _ -> UncomposableIsolateSF
+    _ -> NoSF
+
+structureToPotentialFunction 
+    :: LabelDoubleTree ComposedItem ItemLink 
+    -> S.Set ItemStructuralFunction
+structureToPotentialFunction _ = mempty
 
 baseCI :: Item -> ComposedItem
 baseCI itm = (itm, itemToFunction itm, itemBaseConnections itm)

src/Dodge/Item/InventoryColor.hs

@@ -21,7 +21,7 @@ itemInvColor ci = case ci ^. _2 of
     JoystickSF -> azure
     RemoteDetonatorSF -> azure
     SmokeReducerSF -> azure
-    UncomposableIsolateSF -> greyN 0.5
+    NoSF -> greyN 0.5
     AmmoModifierSF{} -> orange
     AmmoTargetingSF{} -> green
     AmmoPayloadSF{} -> violet

src/Dodge/Item/Scope.hs

@@ -1,4 +1,5 @@
 module Dodge.Item.Scope (
+    stickyMod,
     shellModule,
     zoomScope,
     targetingScope,
@@ -36,6 +37,13 @@ targetingScope tt = defaultHeldItem
 homingModule :: Item
 homingModule = makeAttach HOMINGMODULE
 
+stickyMod :: Item
+stickyMod =
+    defaultHeldItem
+        & itType .~ STICKYMOD
+        & itUse .~ UseNothing
+
+
 bulletModule :: BulletMod -> Item
 bulletModule bm =
     defaultHeldItem