twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-06 06:51:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

Factor out redundancy in L.MouseResizableTile.handleResize

Browse Source
This commit is contained in:
Adam Vogt
2009-09-30 20:41:51 +00:00
parent 41b58ed499
commit cce2c7c839
1 changed files with 9 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
XMonad/Layout/MouseResizableTile.hs
View File

@@ -237,26 +237,17 @@ deleteDragger (draggerWin, _) = deleteWindow draggerWin
handleResize :: [DraggerWithWin] -> Bool -> Event -> X () handleResize :: [DraggerWithWin] -> Bool -> Event -> X ()
handleResize draggers' isM ButtonEvent { ev_window = ew, ev_event_type = et } handleResize draggers' isM ButtonEvent { ev_window = ew, ev_event_type = et }
| et == buttonPress = do | et == buttonPress, Just x <- lookup ew draggers' = case x of
case (lookup ew draggers') of MasterDragger lb r -> mouseDrag' id lb r SetMasterFraction
Just (MasterDragger lowerBound range) -> do LeftSlaveDragger lb r num -> mouseDrag' flip lb r (SetLeftSlaveFraction num)
mouseDrag (\x y -> do RightSlaveDragger lb r num -> mouseDrag' flip lb r (SetRightSlaveFraction num)
let axis = chooseAxis isM x y
fraction = fromIntegral (axis - lowerBound) / range
sendMessage (SetMasterFraction fraction)) (return ())
Just (LeftSlaveDragger lowerBound range num) -> do
mouseDrag (\x y -> do
let axis = chooseAxis isM y x
fraction = fromIntegral (axis - lowerBound) / range
sendMessage (SetLeftSlaveFraction num fraction)) (return ())
Just (RightSlaveDragger lowerBound range num) -> do
mouseDrag (\x y -> do
let axis = chooseAxis isM y x
fraction = fromIntegral (axis - lowerBound) / range
sendMessage (SetRightSlaveFraction num fraction)) (return ())
Nothing -> return ()
where where
chooseAxis isM' axis1 axis2 = if isM' then axis2 else axis1 chooseAxis isM' axis1 axis2 = if isM' then axis2 else axis1
mouseDrag' flp lowerBound range msg = flip mouseDrag (return ()) $ \x y -> do
let axis = flp (chooseAxis isM) x y
fraction = fromIntegral (axis - lowerBound) / range
sendMessage (msg fraction)
handleResize _ _ _ = return () handleResize _ _ _ = return ()
createInputWindow :: Glyph -> Rectangle -> X Window createInputWindow :: Glyph -> Rectangle -> X Window