diff options
author | David Roundy <droundy@darcs.net> | 2007-09-28 04:02:08 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-09-28 04:02:08 +0200 |
commit | 36b6cc3ace7c6b669db0133972452f47962bf9dd (patch) | |
tree | b6b3b52528a57ec68cda657259c0722398853878 /Config.hs | |
parent | b81babddcd9820314dcf3de0df10dcba53fc70ad (diff) | |
download | xmonad-36b6cc3ace7c6b669db0133972452f47962bf9dd.tar.gz xmonad-36b6cc3ace7c6b669db0133972452f47962bf9dd.tar.xz xmonad-36b6cc3ace7c6b669db0133972452f47962bf9dd.zip |
define defaultLayout in Config.hs.
darcs-hash:20070928020208-72aca-ba2fa62ecf40abd9137c9632c7ee27525a62f48e.gz
Diffstat (limited to 'Config.hs')
-rw-r--r-- | Config.hs | 15 |
1 files changed, 13 insertions, 2 deletions
@@ -90,8 +90,19 @@ borderWidth :: Dimension borderWidth = 1 -- | --- The default set of tiling algorithms +-- A list of layouts which, in addition to the defaultLayouts, xmonad can +-- deserialize. +possibleLayouts :: [SomeLayout Window] +possibleLayouts = [defaultLayout + -- Extension-provided layouts + ] ++ defaultLayouts + +-- | +-- The default tiling algorithm -- +defaultLayout :: SomeLayout Window +defaultLayout = SomeLayout $ LayoutSelection defaultLayouts + defaultLayouts :: [SomeLayout Window] defaultLayouts = [ SomeLayout tiled , SomeLayout $ Mirror tiled @@ -142,7 +153,7 @@ keys = M.fromList $ , ((modMask .|. shiftMask, xK_c ), kill) -- %! Close the focused window , ((modMask, xK_space ), sendMessage NextLayout) -- %! Rotate through the available layout algorithms - , ((modMask .|. shiftMask, xK_space ), setLayout $ SomeLayout $ LayoutSelection defaultLayouts) -- %! Reset the layouts on the current workspace to default + , ((modMask .|. shiftMask, xK_space ), setLayout defaultLayout) -- %! Reset the layouts on the current workspace to default , ((modMask, xK_n ), refresh) -- %! Resize viewed windows to the correct size |