aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-12-08 00:40:18 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-12-08 00:40:18 +0100
commit97202db8aa15a061baf3712dfc40caa93bd0ca3b (patch)
tree54e3734745360ee92ba4954b4492160485f6b109 /XMonad
parentfb927daed709343c2823857230ac91bb9b37fe76 (diff)
downloadXMonadContrib-97202db8aa15a061baf3712dfc40caa93bd0ca3b.tar.gz
XMonadContrib-97202db8aa15a061baf3712dfc40caa93bd0ca3b.tar.xz
XMonadContrib-97202db8aa15a061baf3712dfc40caa93bd0ca3b.zip
I use CopyWindow now
darcs-hash:20071207234018-a5988-a1e31690f1279431ec8f9b92033307a8f3a45000.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Config/Sjanssen.hs9
1 files 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 }