mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 11:30:22 -07:00
50 lines
1.6 KiB
Haskell
50 lines
1.6 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 useful together with the TwoPane-Layout (see XMonadContrib.TwoPane).
|
|
|
|
-- %import XMonadContrib.RotSlaves
|
|
-- %keybind , ((modMask .|. shiftMask, xK_Tab ), rotSlavesUp)
|
|
|
|
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))
|