From 365e1400645e970fe1d4d07401235a9bf044dbb9 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Fri, 21 Sep 2007 23:21:59 +0200
Subject: add layout selection back into core xmonad using LayoutSelection.

This is just a reimplementation of LayoutChoice.

darcs-hash:20070921212159-72aca-870bb8d3e596fcb9edc48f51bec538054b4165e6.gz
---
 Config.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index d603889..642a219 100644
--- a/Config.hs
+++ b/Config.hs
@@ -92,10 +92,10 @@ borderWidth = 1
 -- |
 -- The default set of tiling algorithms
 --
-defaultLayouts :: [SomeLayout Window]
-defaultLayouts = [ SomeLayout tiled
-                 , SomeLayout $ Mirror tiled
-                 , SomeLayout Full
+defaultLayouts :: [(String, SomeLayout Window)]
+defaultLayouts = [("tall", SomeLayout tiled)
+                 ,("wide", SomeLayout $ Mirror tiled)
+                 ,("full", SomeLayout Full)
 
                  -- Extension-provided layouts
                  ]
@@ -135,7 +135,7 @@ keys = M.fromList $
     , ((modMask .|. shiftMask, xK_p     ), spawn "gmrun") -- %! Launch gmrun
     , ((modMask .|. shiftMask, xK_c     ), kill) -- %! Close the focused window
 
-    , ((modMask,               xK_space ), switchLayout) -- %! Rotate through the available layout algorithms
+    , ((modMask,               xK_space ), sendMessage NextLayout) -- %! Rotate through the available layout algorithms
 
     , ((modMask,               xK_n     ), refresh) -- %! Resize viewed windows to the correct size
 
-- 
cgit v1.2.3