Start move towards using assignable hotkeys for active equipment

2023-05-03 22:37:57 +01:00
parent 487280a475
commit aeefbd4c40
5 changed files with 18 additions and 5 deletions
@@ -27,10 +27,19 @@ data EquipPosition
    | OnSpecial
    deriving (Eq, Ord)
    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
+data Hotkey = HotkeyQ
+    | HotkeyE
+    | Hotkey1
+    | Hotkey2
+    | Hotkey3
+    | Hotkey4
+  deriving (Eq, Show, Read, Ord, Bounded, Enum) --Generic, Flat)


 deriveJSON defaultOptions ''EquipSite
 deriveJSON defaultOptions ''EquipPosition
+deriveJSON defaultOptions ''Hotkey
 instance ToJSONKey EquipPosition
-
 instance FromJSONKey EquipPosition
+instance ToJSONKey Hotkey
+instance FromJSONKey Hotkey