diff options
author | David Roundy <droundy@darcs.net> | 2007-11-23 16:36:17 +0100 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-11-23 16:36:17 +0100 |
commit | ad9b6fd1452c18a22438ba9d88128278c79250ba (patch) | |
tree | a88f4d2f30cc319cf8f004dbe716c7b9eb8fb579 /XMonad/Config | |
parent | 863aba16f560d87c6460eca0ec65abb0d02c3ca5 (diff) | |
download | XMonadContrib-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.hs | 20 |
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. |