mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 11:30:22 -07:00
11 lines
300 B
Haskell
11 lines
300 B
Haskell
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)
|