diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-08 00:40:18 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-08 00:40:18 +0100 |
| commit | 97202db8aa15a061baf3712dfc40caa93bd0ca3b (patch) | |
| tree | 54e3734745360ee92ba4954b4492160485f6b109 /XMonad/Config/Sjanssen.hs | |
| parent | fb927daed709343c2823857230ac91bb9b37fe76 (diff) | |
| download | XMonadContrib-97202db8aa15a061baf3712dfc40caa93bd0ca3b.tar.gz XMonadContrib-97202db8aa15a061baf3712dfc40caa93bd0ca3b.tar.xz XMonadContrib-97202db8aa15a061baf3712dfc40caa93bd0ca3b.zip | |
I use CopyWindow now
darcs-hash:20071207234018-a5988-a1e31690f1279431ec8f9b92033307a8f3a45000.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Config/Sjanssen.hs | 9 |
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 } |