twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-09 00:11:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Update to my config

Browse Source
This commit is contained in:
Spencer Janssen
2009-01-16 20:45:53 +00:00
parent deacde29a0
commit b1984eef30
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
XMonad/Config/Sjanssen.hs
View File

@@ -10,9 +10,13 @@ import XMonad.Config (defaultConfig)
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
import XMonad.Hooks.DynamicLog hiding (xmobar) import XMonad.Hooks.DynamicLog hiding (xmobar)
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import XMonad.Prompt import XMonad.Prompt
import XMonad.Prompt.Shell import XMonad.Prompt.Shell
import XMonad.Layout.LayoutScreens
import XMonad.Layout.TwoPane
import qualified Data.Map as M import qualified Data.Map as M
sjanssenConfigXmobar = statusBar "xmobar" sjanssenPP strutkey sjanssenConfig sjanssenConfigXmobar = statusBar "xmobar" sjanssenPP strutkey sjanssenConfig
@@ -29,9 +33,11 @@ sjanssenConfig =
, ((modm.|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ] , ((modm.|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ]
, keys = \c -> mykeys c `M.union` keys defaultConfig c , keys = \c -> mykeys c `M.union` keys defaultConfig c
, layoutHook = modifiers layouts , layoutHook = modifiers layouts
, logHook = ewmhDesktopsLogHook
, manageHook = composeAll [className =? x --> doF (W.shift w) , manageHook = composeAll [className =? x --> doF (W.shift w)
| (x, w) <- [ ("Firefox", "web") | (x, w) <- [ ("Firefox", "web")
, ("Ktorrent", "7")]] , ("Ktorrent", "7")
, ("Amarokapp", "7")]]
<+> manageHook defaultConfig <+> manageDocks <+> manageHook defaultConfig <+> manageDocks
} }
where where
@@ -44,6 +50,8 @@ sjanssenConfig =
,((modm .|. shiftMask, xK_c ), kill1) ,((modm .|. shiftMask, xK_c ), kill1)
,((modm .|. shiftMask .|. controlMask, xK_c ), kill) ,((modm .|. shiftMask .|. controlMask, xK_c ), kill)
,((modm .|. shiftMask, xK_0 ), windows $ \w -> foldr copy w ws) ,((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" myFont = "xft:Bitstream Vera Sans Mono:pixelsize=10"