blob: 275f722c956e96352e8c01b30ab9c8b34ac835aa (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
module XMonadContrib.MagicFocus (magicFocus) where
import XMonad
import StackSet
magicFocus :: Layout -> Layout
magicFocus l = l { doLayout = \s -> (doLayout l) s . swap
, modifyLayout = \x -> fmap magicFocus `fmap` modifyLayout l x }
swap :: Stack a -> Stack a
swap (Stack f u d) = Stack f [] (reverse u ++ d)
|