there is only xterm

This commit is contained in:
David Alexander Majnemer 2010-09-03 19:31:32 -05:00
parent a45e3e56e4
commit d5bb612daa

View file

@ -41,15 +41,16 @@ myLayoutHook = tiled ||| Mirror tiled ||| Grid ||| simpleTabbed
delta = 3/100 delta = 3/100
main = do main = do
xmproc <- spawnPipe "xmobar" xmproc <- spawnPipe "~/bin/xmobar"
xmonad $ defaultConfig xmonad $ defaultConfig
{ manageHook = manageDocks <+> myFloatHook <+> manageHook defaultConfig <+> scratchpadManageHook (W.RationalRect 0.25 0.25 0.5 0.5) { manageHook = manageDocks <+> myFloatHook <+> manageHook defaultConfig <+> scratchpadManageHook (W.RationalRect 0.25 0.25 0.5 0.5)
, layoutHook = avoidStruts $ smartBorders $ myLayoutHook , layoutHook = avoidStruts $ smartBorders $ myLayoutHook
, logHook = dynamicLogWithPP $ xmobarPP , logHook = dynamicLogWithPP $ xmobarPP
{ ppOutput = hPutStrLn xmproc { ppOutput = hPutStrLn xmproc
, ppUrgent = xmobarColor "#cc0000" "" . wrap "**" "**" , ppUrgent = xmobarColor "#CC0000" "" . wrap "**" "**"
, ppTitle = xmobarColor "#8AE234" "" , ppTitle = xmobarColor "#8AE234" ""
} }
, terminal = "xterm"
} }
`additionalKeysP` `additionalKeysP`
[ ("M-p", shellPrompt defaultXPConfig { position = Top }) [ ("M-p", shellPrompt defaultXPConfig { position = Top })
@ -67,5 +68,5 @@ main = do
, ("M-`", toggleWS) , ("M-`", toggleWS)
, ("M-s", moveTo Next EmptyWS) , ("M-s", moveTo Next EmptyWS)
, ("M-S-s", shiftTo Next EmptyWS) , ("M-S-s", shiftTo Next EmptyWS)
, ("M-g", scratchpadSpawnAction defaultConfig) , ("M-g", scratchpadSpawnAction defaultConfig { terminal = "xterm" })
] ]