diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-16 21:45:53 +0100 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-16 21:45:53 +0100 |
| commit | dbe81eab127b22ba808ac630cd27f5eccdd1d557 (patch) | |
| tree | 0eb9880a822b90939653d11c4f7f0dcd36674b60 /XMonad/Config/Sjanssen.hs | |
| parent | 3d12f167d55c816925dfdc8f24ed029310fb2376 (diff) | |
| download | XMonadContrib-dbe81eab127b22ba808ac630cd27f5eccdd1d557.tar.gz XMonadContrib-dbe81eab127b22ba808ac630cd27f5eccdd1d557.tar.xz XMonadContrib-dbe81eab127b22ba808ac630cd27f5eccdd1d557.zip | |
Update to my config
Ignore-this: 81017fa5b99855fc8ed1fe8892929f53
darcs-hash:20090116204553-25a6b-c7650dae9a86e5ee1bfd9320c233d75ee9b91d31.gz
Diffstat (limited to 'XMonad/Config/Sjanssen.hs')
| -rw-r--r-- | XMonad/Config/Sjanssen.hs | 10 |
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" |