diff options
author | Alex Tarkovsky <alextarkovsky@gmail.com> | 2007-09-05 22:01:28 +0200 |
---|---|---|
committer | Alex Tarkovsky <alextarkovsky@gmail.com> | 2007-09-05 22:01:28 +0200 |
commit | a2ceae3cf6f302de2420f072238a29c9fbe8d974 (patch) | |
tree | bdd6ec53b679432c8a88a1cb60e4bc437b86a3dd /MagicFocus.hs | |
parent | bea7c7116f233a785e4c96a1d577ca2797fe70bf (diff) | |
download | XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.tar.gz XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.tar.xz XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.zip |
Docstring parser for generating xmonad build configs with default settings for extensions
darcs-hash:20070905200128-bd4fb-ff90db3eb7ebce6ea75956f19ebc6c35d36c08d4.gz
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 } |