mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-07-31 04:01:51 -07:00
6dcf6e4ce2
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.
48 lines
1.5 KiB
Haskell
48 lines
1.5 KiB
Haskell
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonadContrib.RotSlaves
|
|
-- Copyright : (c) Hans Philipp Annen <haphi@gmx.net>, Mischa Dieterle <der_m@freenet.de>
|
|
-- License : BSD3-style (see LICENSE)
|
|
--
|
|
-- Maintainer : Hans Philipp Annen <haphi@gmx.net>
|
|
-- Stability : unstable
|
|
-- Portability : unportable
|
|
--
|
|
-- Rotate all windows except the master window
|
|
-- and keep the focus in place.
|
|
-----------------------------------------------------------------------------
|
|
module XMonadContrib.RotSlaves (
|
|
-- $usage
|
|
rotSlaves', rotSlavesUp, rotSlavesDown
|
|
) where
|
|
|
|
import StackSet
|
|
import Operations
|
|
import XMonad
|
|
|
|
-- $usage
|
|
--
|
|
-- To use this module, import it with:
|
|
--
|
|
-- > import XMonadContrib.RotSlaves
|
|
--
|
|
-- and add a keybinding:
|
|
--
|
|
-- , ((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).
|
|
--
|
|
|
|
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))
|