mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
3d65a6bf72
Essentially, whenever the tutorial actually has decent material on the
subject matter. The replacement is roughly done as follows:
- logHook → tutorial
- keybindings → tutorial, as this is thoroughly covered
- manageHook → tutorial + X.D.Extending, as the manageHook stuff the
tutorial talks about is a little bit of an afterthought.
- X.D.Extending (on its own) → tutorial + X.D.Extending
- layoutHook → tutorial + X.D.Extending, as the tutorial, while
talking about layouts, doesn't necessarily have a huge focus there.
- mouse bindings → leave this alone, as the tutorial does not at all
talk about them.
67 lines
2.5 KiB
Haskell
67 lines
2.5 KiB
Haskell
{-# LANGUAGE ViewPatterns #-}
|
|
|
|
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Actions.RotSlaves
|
|
-- Description : Rotate all windows except the master window and keep the focus in place.
|
|
-- 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 : stable
|
|
-- Portability : unportable
|
|
--
|
|
-- Rotate all windows except the master window and keep the focus in
|
|
-- place.
|
|
-----------------------------------------------------------------------------
|
|
module XMonad.Actions.RotSlaves (
|
|
-- $usage
|
|
rotSlaves', rotSlavesUp, rotSlavesDown,
|
|
rotAll', rotAllUp, rotAllDown
|
|
) where
|
|
|
|
import XMonad
|
|
import XMonad.StackSet
|
|
import XMonad.Prelude
|
|
|
|
-- $usage
|
|
--
|
|
-- To use this module, import it with:
|
|
--
|
|
-- > import XMonad.Actions.RotSlaves
|
|
--
|
|
-- and add whatever keybindings you would like, for example:
|
|
--
|
|
-- > , ((modm .|. 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 "XMonad.Layout.TwoPane").
|
|
--
|
|
-- For detailed instructions on editing your key bindings, see
|
|
-- <https://xmonad.org/TUTORIAL.html#customizing-xmonad the tutorial>.
|
|
|
|
-- | Rotate the windows in the current stack, excluding the first one
|
|
-- (master).
|
|
rotSlavesUp,rotSlavesDown :: X ()
|
|
rotSlavesUp = windows $ modify' (rotSlaves' (\l -> tail l++[head l]))
|
|
rotSlavesDown = windows $ modify' (rotSlaves' (\l -> last l : init l))
|
|
|
|
-- | The actual rotation, as a pure function on the window stack.
|
|
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 (notEmpty -> master :| ws) = integrate s
|
|
(revls', notEmpty -> t' :| rs') = splitAt (length ls) (master:f ws)
|
|
|
|
-- | Rotate all the windows in the current stack.
|
|
rotAllUp,rotAllDown :: X ()
|
|
rotAllUp = windows $ modify' (rotAll' (\l -> tail l++[head l]))
|
|
rotAllDown = windows $ modify' (rotAll' (\l -> last l : init l))
|
|
|
|
-- | The actual rotation, as a pure function on the window stack.
|
|
rotAll' :: ([a] -> [a]) -> Stack a -> Stack a
|
|
rotAll' f s = Stack r (reverse revls) rs
|
|
where (revls, notEmpty -> r :| rs) = splitAt (length (up s)) (f (integrate s))
|