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

Use spawnOn in my config

Browse Source
This commit is contained in:
Spencer Janssen 2009-01-17 04:10:26 +00:00
parent c51f64476a
commit da2a08ec7e
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
XMonad/Config/Sjanssen.hs
View File

@ -12,41 +12,42 @@ import XMonad.Hooks.DynamicLog hiding (xmobar)
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Prompt import XMonad.Prompt
import XMonad.Prompt.Shell import XMonad.Actions.SpawnOn
import XMonad.Layout.LayoutScreens import XMonad.Layout.LayoutScreens
import XMonad.Layout.TwoPane 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
where where
strutkey (XConfig {modMask = modm}) = (modm, xK_b) strutkey (XConfig {modMask = modm}) = (modm, xK_b)
sjanssenConfig = sjanssenConfig = do
defaultConfig sp <- mkSpawner
return $ defaultConfig
{ terminal = "urxvtc" { terminal = "urxvtc"
, workspaces = ["irc", "web"] ++ map show [3 .. 9 :: Int] , workspaces = ["irc", "web"] ++ map show [3 .. 9 :: Int]
, mouseBindings = \(XConfig {modMask = modm}) -> M.fromList $ , mouseBindings = \(XConfig {modMask = modm}) -> M.fromList $
[ ((modm, button1), (\w -> focus w >> mouseMoveWindow w)) [ ((modm, button1), (\w -> focus w >> mouseMoveWindow w))
, ((modm, button2), (\w -> focus w >> windows W.swapMaster)) , ((modm, button2), (\w -> focus w >> windows W.swapMaster))
, ((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 sp c `M.union` keys defaultConfig c
, layoutHook = modifiers layouts , layoutHook = modifiers layouts
, logHook = ewmhDesktopsLogHook , 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")]] , ("Amarokapp", "7")]]
<+> manageHook defaultConfig <+> manageDocks <+> manageHook defaultConfig <+> manageDocks <+> manageSpawn sp
} }
where where
tiled = HintedTile 1 0.03 0.5 TopLeft tiled = HintedTile 1 0.03 0.5 TopLeft
layouts = (tiled Tall ||| (tiled Wide ||| Full)) ||| tabbed shrinkText myTheme layouts = (tiled Tall ||| (tiled Wide ||| Full)) ||| tabbed shrinkText myTheme
modifiers = smartBorders modifiers = smartBorders
mykeys (XConfig {modMask = modm, workspaces = ws}) = M.fromList $ mykeys sp (XConfig {modMask = modm, workspaces = ws}) = M.fromList $
[((modm, xK_p ), shellPrompt myPromptConfig) [((modm, xK_p ), shellPromptHere sp myPromptConfig)
,((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)