diff options
| -rw-r--r-- | MagicFocus.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/MagicFocus.hs b/MagicFocus.hs index ecc10b4..275f722 100644 --- a/MagicFocus.hs +++ b/MagicFocus.hs @@ -3,6 +3,7 @@ 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 } |