diff options
| -rw-r--r-- | MagicFocus.hs | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/MagicFocus.hs b/MagicFocus.hs index 275f722..32f1b75 100644 --- a/MagicFocus.hs +++ b/MagicFocus.hs @@ -1,8 +1,28 @@ -module XMonadContrib.MagicFocus (magicFocus) where +----------------------------------------------------------------------------- +-- | +-- Module : XMonadContrib.MagicFocus +-- Copyright : (c) Peter De Wachter <pdewacht@gmail.com> +-- License : BSD +-- +-- Maintainer : Peter De Wachter <pdewacht@gmail.com> +-- Stability : unstable +-- Portability : unportable +-- +-- Automagically put the focused window in the master area. +----------------------------------------------------------------------------- + +module XMonadContrib.MagicFocus ( + -- * Usage + -- $ usage + magicFocus) where import XMonad import StackSet +-- $ usage +-- > import XMonadContrib.MagicFocus +-- > defaultLayouts = [ magicFocus tiled , magicFocus $ mirror tiled ] + magicFocus :: Layout -> Layout magicFocus l = l { doLayout = \s -> (doLayout l) s . swap , modifyLayout = \x -> fmap magicFocus `fmap` modifyLayout l x } |