From 97202db8aa15a061baf3712dfc40caa93bd0ca3b Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 8 Dec 2007 00:40:18 +0100 Subject: I use CopyWindow now darcs-hash:20071207234018-a5988-a1e31690f1279431ec8f9b92033307a8f3a45000.gz --- XMonad/Config/Sjanssen.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'XMonad/Config/Sjanssen.hs') diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs index 4b1941c..99ef090 100644 --- a/XMonad/Config/Sjanssen.hs +++ b/XMonad/Config/Sjanssen.hs @@ -3,6 +3,7 @@ module XMonad.Config.Sjanssen (sjanssenConfig) where import XMonad import qualified XMonad.StackSet as W +import XMonad.Actions.CopyWindow import XMonad.Layouts hiding (Tall) import XMonad.Layout.Tabbed import XMonad.Layout.HintedTile @@ -37,8 +38,12 @@ sjanssenConfig = do where tiled = HintedTile 1 0.03 0.5 - mykeys (XConfig {modMask = modm}) = M.fromList $ - [((modm, xK_p ), shellPrompt myPromptConfig)] + mykeys (XConfig {modMask = modm, workspaces = ws}) = M.fromList $ + [((modm, xK_p ), shellPrompt myPromptConfig) + ,((modm .|. shiftMask, xK_c ), kill1) + ,((modm .|. shiftMask .|. controlMask, xK_c ), kill) + ,((modm .|. shiftMask, xK_0 ), windows $ \w -> foldr copy w ws) + ] myFont = "xft:Bitstream Vera Sans Mono:pixelsize=10" myTConf = defaultTConf { fontName = myFont } -- cgit v1.2.3