diff options
Diffstat (limited to '')
| -rw-r--r-- | MagicFocus.hs | 6 | ||||
| -rw-r--r-- | MosaicAlt.hs | 4 | ||||
| -rw-r--r-- | Tabbed.hs | 8 | ||||
| -rw-r--r-- | WindowNavigation.hs | 4 |
4 files changed, 11 insertions, 11 deletions
diff --git a/MagicFocus.hs b/MagicFocus.hs index 4154049..1fa5647 100644 --- a/MagicFocus.hs +++ b/MagicFocus.hs @@ -25,11 +25,11 @@ import StackSet -- $usage -- > import XMonadContrib.MagicFocus --- > defaultLayouts = [ SomeLayout $ MagicFocus tiled , SomeLayout $ MagicFocus $ Mirror tiled ] +-- > defaultLayouts = [ Layout $ MagicFocus tiled , Layout $ MagicFocus $ Mirror tiled ] -- %import XMonadContrib.MagicFocus --- %layout , SomeLayout $ MagicFocus tiled --- %layout , SomeLayout $ MagicFocus $ Mirror tiled +-- %layout , Layout $ MagicFocus tiled +-- %layout , Layout $ MagicFocus $ Mirror tiled data MagicFocus l a = MagicFocus (l a) deriving ( Show , Read ) diff --git a/MosaicAlt.hs b/MosaicAlt.hs index 73e4f46..322c9e8 100644 --- a/MosaicAlt.hs +++ b/MosaicAlt.hs @@ -43,7 +43,7 @@ import Graphics.X11.Types ( Window ) -- > import XMonadContrib.MosaicAlt -- -- > defaultLayouts = ... --- > , SomeLayout $ MosaicAlt M.empty +-- > , Layout $ MosaicAlt M.empty -- > ... -- -- > keys = ... @@ -55,7 +55,7 @@ import Graphics.X11.Types ( Window ) -- > ... -- %import XMonadContrib.MosaicAlt --- %layout , SomeLayout $ MosaicAlt M.empty +-- %layout , Layout $ MosaicAlt M.empty data HandleWindowAlt = ShrinkWindowAlt Window @@ -44,11 +44,11 @@ import XMonadContrib.XUtils -- -- > import XMonadContrib.Tabbed -- --- > defaultLayouts :: [(String, SomeLayout Window)] --- > defaultLayouts = [SomeLayout tiled --- > ,SomeLayout $ Mirror tiled +-- > defaultLayouts :: [(String, Layout Window)] +-- > defaultLayouts = [Layout tiled +-- > ,Layout $ Mirror tiled -- > -- Extension-provided layouts --- > ,SomeLayout $ tabbed shrinkText defaultTConf) +-- > ,Layout $ tabbed shrinkText defaultTConf) -- > , ... ] -- -- You can also edit the default configuration options. diff --git a/WindowNavigation.hs b/WindowNavigation.hs index f6eaec8..52e8456 100644 --- a/WindowNavigation.hs +++ b/WindowNavigation.hs @@ -39,7 +39,7 @@ import XMonadContrib.XUtils -- -- > import XMonadContrib.WindowNavigation -- > --- > defaultLayout = SomeLayout $ windowNavigation defaultWNConfig $ LayoutSelection ... +-- > defaultLayout = Layout $ windowNavigation defaultWNConfig $ LayoutSelection ... -- -- In keybindings: -- @@ -59,7 +59,7 @@ import XMonadContrib.XUtils -- %keybind , ((modMask .|. controlMask, xK_Down), sendMessage $ Swap D) -- %layout -- include 'windowNavigation' in defaultLayout definition above. -- %layout -- just before the list, like the following (don't uncomment next line): --- %layout -- defaultLayout = SomeLayout $ windowNavigation defaultWNConfig $ ... +-- %layout -- defaultLayout = Layout $ windowNavigation defaultWNConfig $ ... data Navigate = Go Direction | Swap Direction deriving ( Read, Show, Typeable ) |