aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Config
diff options
context:
space:
mode:
authorDavid Roundy <droundy@darcs.net>2007-11-23 16:36:17 +0100
committerDavid Roundy <droundy@darcs.net>2007-11-23 16:36:17 +0100
commitad9b6fd1452c18a22438ba9d88128278c79250ba (patch)
treea88f4d2f30cc319cf8f004dbe716c7b9eb8fb579 /XMonad/Config
parent863aba16f560d87c6460eca0ec65abb0d02c3ca5 (diff)
downloadXMonadContrib-ad9b6fd1452c18a22438ba9d88128278c79250ba.tar.gz
XMonadContrib-ad9b6fd1452c18a22438ba9d88128278c79250ba.tar.xz
XMonadContrib-ad9b6fd1452c18a22438ba9d88128278c79250ba.zip
clean up mosaic a bit more.
darcs-hash:20071123153617-72aca-1b2d907ca57d26706485c5ca971fda2cceb7ad95.gz
Diffstat (limited to 'XMonad/Config')
-rw-r--r--XMonad/Config/Droundy.hs20
1 files changed, 17 insertions, 3 deletions
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.