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

RotSlaves rework

Browse Source 
Rework the logic of RotSlaves and rename it RotSlavesDown, add RotSlavesUp. These rotate
the slaves in different directions.
Also changed the usage, eliminating the need for "windows" in the keybinding.
This commit is contained in:
Karsten Schoelzel
2007-08-03 18:53:37 +00:00
parent 4c69e6a515
commit 6dcf6e4ce2
1 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
RotSlaves.hs
View File

@@ -13,10 +13,12 @@
-----------------------------------------------------------------------------
module XMonadContrib.RotSlaves (
-- $usage
rotSlaves', rotSlaves
rotSlaves', rotSlavesUp, rotSlavesDown
) where
import qualified StackSet as SS
import StackSet
import Operations
import XMonad
-- $usage
--
@@ -26,22 +28,20 @@ import qualified StackSet as SS
--
-- and add a keybinding:
--
-- , ((modMask .|. shiftMask, xK_Tab ), windows rotSlaves)
-- , ((modMask .|. shiftMask, xK_Tab ), rotSlavesUp)
--
--
-- This operation will rotate all windows except the master window, while the focus
-- stays where it is. It is usefull together with the TwoPane-Layout (see XMonadContrib.TwoPane).
--
rotSlaves :: SS.StackSet i a s sd -> SS.StackSet i a s sd
rotSlaves = SS.modify' rotSlaves'
rotSlaves' :: SS.Stack a -> SS.Stack a
rotSlaves' (SS.Stack t ls rs) | (null ls) = SS.Stack t [] ((rearRs)++(frontRs)) --Master has focus
| otherwise = SS.Stack t' (reverse ((master)++revls')) rs' --otherwise
where (frontRs, rearRs) = splitAt (max 0 ((length rs) - 1)) rs
(ils, master) = splitAt (max 0 ((length ls) - 1)) ls
toBeRotated = (reverse ils)++(t:rs)
(revls',t':rs') = splitAt (length ils) ((last toBeRotated):(init toBeRotated))
rotSlavesUp,rotSlavesDown :: X ()
rotSlavesUp = windows $ modify' (rotSlaves' (\l -> (tail l)++[head l]))
rotSlavesDown = windows $ modify' (rotSlaves' (\l -> [last l]++(init l)))
rotSlaves' :: ([a] -> [a]) -> Stack a -> Stack a
rotSlaves' _ s@(Stack _ [] []) = s
rotSlaves' f (Stack t [] rs) = Stack t [] (f rs) -- Master has focus
rotSlaves' f s@(Stack _ ls _ ) = Stack t' (reverse revls') rs' -- otherwise
where (master:ws) = integrate s
(revls',t':rs') = splitAt (length ls) (master:(f ws))