Add looping sound, add sound to terminals

src/Dodge/Event/Keyboard.hs

@@ -50,15 +50,20 @@ handlePressedKeyInGame scode w = case scode of
     ScancodeM   -> Just $ toggleMap w
     ScancodeR   -> Just $ fromMaybe w $ startReloadingWeapon (you w) w
     ScancodeT   -> Just $ testEvent w
-    ScancodeX   -> Just $ w & hud . hudElement %~ toggleInv (DisplayInventory TweakInventory)
+    ScancodeX   -> Just $ w & hud . hudElement %~ toggleTweakInv
     ScancodeC   -> Just $ toggleCombineInv w
-    ScancodeI   -> Just $ w & hud . hudElement %~ toggleInv (DisplayInventory InspectInventory)
+    ScancodeI   -> Just $ w & hud . hudElement %~ toggleInspectInv
     _           -> Just w
 
-toggleInv :: HUDElement -> HUDElement -> HUDElement
-toggleInv x y 
-    | x == y = DisplayInventory NoSubInventory
-    | otherwise = x
+toggleTweakInv :: HUDElement -> HUDElement
+toggleTweakInv he = case he of
+    DisplayInventory TweakInventory -> DisplayInventory NoSubInventory
+    _ -> DisplayInventory TweakInventory
+
+toggleInspectInv :: HUDElement -> HUDElement
+toggleInspectInv he = case he of
+    DisplayInventory InspectInventory -> DisplayInventory NoSubInventory
+    _ -> DisplayInventory InspectInventory
 
 gotoTerminal :: Universe -> Universe
 gotoTerminal w = case _menuLayers w of