Move mouse button imputs to your input

src/Dodge/Event.hs

@@ -68,7 +68,7 @@ handleMouseMotionEvent mmev u = Just $ u & uvWorld . mousePos .~ V2
 handleMouseButtonEvent :: MouseButtonEventData -> World -> World
 handleMouseButtonEvent mbev = case mouseButtonEventMotion mbev of
     Released -> mouseButtons . at thebutton .~ Nothing
-    Pressed  -> handlePressedMouseButton thebutton . (mouseButtons . at thebutton ?~ False)
+    Pressed  -> mouseButtons . at thebutton ?~ False
   where
     thebutton = mouseButtonEventButton mbev
 
@@ -94,36 +94,6 @@ handleResizeEvent sev u = return . Just $ u
     V2 x' y' = windowSizeChangedEventSize sev
     divRes = resFactorNum $ u ^. config . graphics_resolution_factor
 
-handlePressedMouseButton :: MouseButton -> World -> World
-handlePressedMouseButton but w = case (_hudElement (_hud w), but) of
-    (DisplayCarte,_) -> w & clickMousePos .~ _mousePos w
-    (_,ButtonMiddle) -> w & clickMousePos .~ _mousePos w
-    ( DisplayInventory (DisplayTerminal tmid) , ButtonLeft)
-        | inTermFocus w -> doTerminalEffectLB (w ^?! terminals . ix tmid) w
-        | otherwise -> w & terminals . ix tmid . tmInput . tiFocus %~ const True
-    ( DisplayInventory (CombineInventory mi) , ButtonLeft)
-                -> maybeexitcombine $ maybe id doCombine mi w
-    _ -> w
-  where
-    maybeexitcombine
-        | ButtonRight `M.member` _mouseButtons w = id
-        | otherwise = hud . hudElement .~ DisplayInventory NoSubInventory
-
--- note "sort" on the inventory indices; otherwise
--- lower items may be shifted up and items below these removed instead
-doCombine :: Int -> World -> World
-doCombine i w = case combineItemListYou w !? i of
-    Nothing -> w
-    Just (is,it) -> -- set (hud . hudElement) (DisplayInventory NoSubInventory)
-        selectinv --enterCombineInv
-        . createPutItem it
-        $ foldr (rmInvItem yid) w (sort is)
-  where
-    yid = _yourID w
-    selectinv (Just i', w') = w' & creatures . ix yid . crInvSel .~ InvSel i' NoInvSelAction
-    selectinv (Nothing, w') = w'
-
-
 handleMouseWheelEvent :: MouseWheelEventData -> Universe -> Maybe Universe
 handleMouseWheelEvent mwev w = case _menuLayers w of
     [] -> case mouseWheelEventPos mwev of