From dbe81eab127b22ba808ac630cd27f5eccdd1d557 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Fri, 16 Jan 2009 21:45:53 +0100
Subject: Update to my config

Ignore-this: 81017fa5b99855fc8ed1fe8892929f53

darcs-hash:20090116204553-25a6b-c7650dae9a86e5ee1bfd9320c233d75ee9b91d31.gz
---
 XMonad/Config/Sjanssen.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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

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"
-- 
cgit v1.2.3