From 97202db8aa15a061baf3712dfc40caa93bd0ca3b Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
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(-)
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