aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <spencerjanssen@gmail.com>2009-01-16 21:45:53 +0100
committerSpencer Janssen <spencerjanssen@gmail.com>2009-01-16 21:45:53 +0100
commitdbe81eab127b22ba808ac630cd27f5eccdd1d557 (patch)
tree0eb9880a822b90939653d11c4f7f0dcd36674b60
parent3d12f167d55c816925dfdc8f24ed029310fb2376 (diff)
downloadXMonadContrib-dbe81eab127b22ba808ac630cd27f5eccdd1d557.tar.gz
XMonadContrib-dbe81eab127b22ba808ac630cd27f5eccdd1d557.tar.xz
XMonadContrib-dbe81eab127b22ba808ac630cd27f5eccdd1d557.zip
Update to my config
Ignore-this: 81017fa5b99855fc8ed1fe8892929f53 darcs-hash:20090116204553-25a6b-c7650dae9a86e5ee1bfd9320c233d75ee9b91d31.gz
-rw-r--r--XMonad/Config/Sjanssen.hs10
1 files changed, 9 insertions, 1 deletions
diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs
index d1acf43..4977e7a 100644
--- a/XMonad/Config/Sjanssen.hs
+++ b/XMonad/Config/Sjanssen.hs
@@ -10,9 +10,13 @@ import XMonad.Config (defaultConfig)
import XMonad.Layout.NoBorders
import XMonad.Hooks.DynamicLog hiding (xmobar)
import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.EwmhDesktops
import XMonad.Prompt
import XMonad.Prompt.Shell
+import XMonad.Layout.LayoutScreens
+import XMonad.Layout.TwoPane
+
import qualified Data.Map as M
sjanssenConfigXmobar = statusBar "xmobar" sjanssenPP strutkey sjanssenConfig
@@ -29,9 +33,11 @@ sjanssenConfig =
, ((modm.|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ]
, keys = \c -> mykeys c `M.union` keys defaultConfig c
, layoutHook = modifiers layouts
+ , logHook = ewmhDesktopsLogHook
, manageHook = composeAll [className =? x --> doF (W.shift w)
| (x, w) <- [ ("Firefox", "web")
- , ("Ktorrent", "7")]]
+ , ("Ktorrent", "7")
+ , ("Amarokapp", "7")]]
<+> manageHook defaultConfig <+> manageDocks
}
where
@@ -44,6 +50,8 @@ sjanssenConfig =
,((modm .|. shiftMask, xK_c ), kill1)
,((modm .|. shiftMask .|. controlMask, xK_c ), kill)
,((modm .|. shiftMask, xK_0 ), windows $ \w -> foldr copy w ws)
+ ,((modm, xK_z ), layoutScreens 2 $ TwoPane 0.5 0.5)
+ ,((modm .|. shiftMask, xK_z ), rescreen)
]
myFont = "xft:Bitstream Vera Sans Mono:pixelsize=10"