aboutsummaryrefslogblamecommitdiffstats
path: root/MagicFocus.hs
blob: ecc10b406feca69a652761d31b48989f65b2791e (plain) (tree)
1
2
3
4
5
6
7
8
9








                                                                                 
                                                
module XMonadContrib.MagicFocus (magicFocus) where

import XMonad
import StackSet

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)