diff options
Diffstat (limited to '')
| -rw-r--r-- | MagicFocus.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/MagicFocus.hs b/MagicFocus.hs index 2376cdd..7bce455 100644 --- a/MagicFocus.hs +++ b/MagicFocus.hs @@ -24,6 +24,10 @@ import StackSet -- > import XMonadContrib.MagicFocus -- > defaultLayouts = [ magicFocus tiled , magicFocus $ mirror tiled ] +-- %import XMonadContrib.MagicFocus +-- %layout , magicFocus tiled +-- %layout , magicFocus $ mirror tiled + magicFocus :: Layout Window -> Layout Window magicFocus l = l { doLayout = \r s -> withWindowSet (return . peek) >>= (doLayout l) r . swap s , modifyLayout = \x -> fmap magicFocus `fmap` modifyLayout l x } |