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

addition of XMonad.Actions.Warp.banishScreen

Browse Source 
This works on top of warpToScreen and, thus, suffers from the same issue:
focus change.
This commit is contained in:
Norbert Zeh
2008-12-12 19:26:21 +00:00
parent fe253a602c
commit 4c7ebafcfe
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
XMonad/Actions/Warp.hs
View File

@@ -16,6 +16,7 @@ module XMonad.Actions.Warp (
-- * Usage
-- $usage
banish,
banishScreen,
Corner(..),
warpToScreen,
warpToWindow
@@ -64,7 +65,20 @@ banish direction = case direction of
LowerRight -> warpToWindow 1 1
LowerLeft -> warpToWindow 0 1
UpperLeft -> warpToWindow 0 0
UpperRight -> warpToWindow 1 0
UpperRight -> warpToWindow 1 0
{- | Same as 'banish' but moves the mouse to the corner of the
currently focused screen -}
banishScreen :: Corner -> X ()
banishScreen direction = case direction of
LowerRight -> warpToCurrentScreen 1 1
LowerLeft -> warpToCurrentScreen 0 1
UpperLeft -> warpToCurrentScreen 0 0
UpperRight -> warpToCurrentScreen 1 0
where
warpToCurrentScreen h v =
do (StackSet { current = x }) <- gets windowset
warpToScreen (W.screen x) h v
fraction :: (Integral a, Integral b) => Rational -> a -> b
fraction f x = floor (f * fromIntegral x)