hunner/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adding spawnOn, but why is mkSpawner not going into scope\?

Browse source
This commit is contained in:
Hunter Haugen 2010-06-17 17:52:11 -07:00
parent 31f41a7c25
commit 918f1e5696
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
.xmonad/xmonad.hs
View file

@ -17,6 +17,7 @@ import XMonad.Actions.CopyWindow
import XMonad.Actions.DynamicWorkspaces import XMonad.Actions.DynamicWorkspaces
import XMonad.Actions.GridSelect import XMonad.Actions.GridSelect
import XMonad.Actions.NoBorders import XMonad.Actions.NoBorders
import XMonad.Actions.SpawnOn
import XMonad.Actions.Warp(warpToScreen) import XMonad.Actions.Warp(warpToScreen)
import XMonad.Actions.WindowBringer import XMonad.Actions.WindowBringer
import XMonad.Prompt import XMonad.Prompt
@ -55,6 +56,7 @@ mKeys = [ ("M-S-n", sendMessage MirrorShrink ) -- Expand current window
, ("M-r" , warpToCorner ) -- Kill the rodent , ("M-r" , warpToCorner ) -- Kill the rodent
, ("M-b" , withFocused toggleBorder ) -- Toggle the border of the currently focused window , ("M-b" , withFocused toggleBorder ) -- Toggle the border of the currently focused window
, ("M-g" , warpToCentre >> promptedWs) -- Gridselect to pick windows , ("M-g" , warpToCentre >> promptedWs) -- Gridselect to pick windows
--, ("M-s" , shellPromptHere sp mXPConfig ) -- Shell prompt
, ("M-S-b", spawn "ps -U hunner|grep dzen2|awk '{print $1}'|xargs kill -USR1") -- Bring dzen to the front , ("M-S-b", spawn "ps -U hunner|grep dzen2|awk '{print $1}'|xargs kill -USR1") -- Bring dzen to the front
, ("<Scroll_lock>", spawn "xlock -mode fzort" ) -- SCReen LocK , ("<Scroll_lock>", spawn "xlock -mode fzort" ) -- SCReen LocK
@ -209,9 +211,8 @@ pickyFocusEventHook e@(CrossingEvent {ev_window = w, ev_event_type = t})
where shouldFollow = (/="Cellwriter") `fmap` className where shouldFollow = (/="Cellwriter") `fmap` className
pickyFocusEventHook _ = return $ All True pickyFocusEventHook _ = return $ All True
-- Run xmonad! -- Define my configuration
-- --
main = xmonad $ mConfig
mConfig = defaultConfig mConfig = defaultConfig
{ terminal = mTerminal { terminal = mTerminal
, focusFollowsMouse = mFocusFollowsMouse , focusFollowsMouse = mFocusFollowsMouse
@ -221,9 +222,16 @@ mConfig = defaultConfig
, normalBorderColor = mNormalBorderColor , normalBorderColor = mNormalBorderColor
, focusedBorderColor = mFocusedBorderColor , focusedBorderColor = mFocusedBorderColor
, layoutHook = mLayout , layoutHook = mLayout
--, manageHook = manageSpawn sp <+> mManageHook
, manageHook = mManageHook , manageHook = mManageHook
, handleEventHook = pickyFocusEventHook , handleEventHook = pickyFocusEventHook
, startupHook = do , startupHook = do
ewmhDesktopsStartup >> setWMName "LG3D" ewmhDesktopsStartup >> setWMName "LG3D"
return () >> checkKeymap mConfig mKeys return () >> checkKeymap mConfig mKeys
} `additionalKeysP` mKeys `additionalKeys` mKeysExt } `additionalKeysP` mKeys `additionalKeys` mKeysExt
-- Run xmonad!
--
main = do
sp <- mkSpawner
xmonad mConfig