From ad9b6fd1452c18a22438ba9d88128278c79250ba Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Fri, 23 Nov 2007 16:36:17 +0100
Subject: clean up mosaic a bit more.

darcs-hash:20071123153617-72aca-1b2d907ca57d26706485c5ca971fda2cceb7ad95.gz
---
 XMonad/Config/Droundy.hs | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

(limited to 'XMonad/Config/Droundy.hs')

diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs
index 43aad85..7aed984 100644
--- a/XMonad/Config/Droundy.hs
+++ b/XMonad/Config/Droundy.hs
@@ -27,6 +27,7 @@ import Graphics.X11.Xlib
 
 import XMonad.Layout.Tabbed
 import XMonad.Layout.Combo
+import XMonad.Layout.Mosaic
 import XMonad.Layout.Named
 import XMonad.Layout.LayoutCombinators
 import XMonad.Layout.Square
@@ -109,6 +110,16 @@ keys x = M.fromList $
     , ((modMask x .|. shiftMask, xK_r), renameWorkspace myXPConfig)
     , ((modMask x, xK_l ), layoutPrompt myXPConfig)
     , ((modMask x .|. controlMask, xK_space), sendMessage ToggleLayout)
+
+-- keybindings for Mosaic:
+    , ((controlMask .|. modMask x .|. shiftMask, xK_h), withFocused (sendMessage . tallWindow))
+    , ((controlMask .|. modMask x .|. shiftMask, xK_l), withFocused (sendMessage . wideWindow))
+    , ((modMask x .|. shiftMask, xK_h     ), withFocused (sendMessage . shrinkWindow))
+    , ((modMask x .|. shiftMask, xK_l     ), withFocused (sendMessage . expandWindow))
+    , ((modMask x .|. shiftMask, xK_s     ), withFocused (sendMessage . squareWindow))
+    , ((modMask x .|. shiftMask, xK_o     ), withFocused (sendMessage . myclearWindow))
+    , ((controlMask .|. modMask x .|. shiftMask, xK_o     ), withFocused (sendMessage . flexibleWindow))
+
     ]
  
     ++
@@ -119,10 +130,13 @@ keys x = M.fromList $
 config = defaultConfig
          { borderWidth = 1 -- Width of the window border in pixels.
          , XMonad.workspaces = ["1:mutt","2:iceweasel"]
-         , layoutHook = workspaceDir "~" $ windowNavigation $ toggleLayouts (noBorders Full) $
+         , layoutHook = workspaceDir "~" $ windowNavigation $
+                        toggleLayouts (noBorders Full) $ -- avoidStruts $
                         Named "tabbed" (noBorders mytab) |||
-                        Named "xclock" (mytab <-/> combineTwo Square mytab mytab) |||
-                        mytab <//> mytab
+                        Named "xclock" (mytab <-//> combineTwo Square mytab mytab) |||
+                        Named "widescreen" ((mytab <||> mytab)
+                                                <-//> combineTwo Square mytab mytab) |||
+                        mosaic 0.25 0.5
          , terminal = "xterm" -- The preferred terminal program.
          , normalBorderColor = "#dddddd" -- Border color for unfocused windows.
          , focusedBorderColor = "#00ff00" -- Border color for focused windows.
-- 
cgit v1.2.3