fix xmonad, sorr guys

This commit is contained in:
dave 2009-04-06 15:22:14 -05:00
parent becb818b68
commit ab49e643a2

View file

@ -30,7 +30,7 @@ myLayoutHook = tiled ||| Mirror tiled ||| Grid ||| Full
delta = 3/100 delta = 3/100
main = do main = do
xmproc <- spawnPipe "~/.cabal/bin/xmobar" xmproc <- spawnPipe "xmobar"
xmonad $ defaultConfig xmonad $ defaultConfig
{ manageHook = manageDocks <+> manageHook defaultConfig { manageHook = manageDocks <+> manageHook defaultConfig
, layoutHook = avoidStruts $ smartBorders $ myLayoutHook , layoutHook = avoidStruts $ smartBorders $ myLayoutHook
@ -38,7 +38,6 @@ main = do
{ ppOutput = hPutStrLn xmproc { ppOutput = hPutStrLn xmproc
, ppTitle = xmobarColor "green" "" , ppTitle = xmobarColor "green" ""
} }
, terminal = "uxterm /bin/zsh"
} }
`additionalKeysP` `additionalKeysP`
[ ("M-p", shellPrompt defaultXPConfig { position = Top }) [ ("M-p", shellPrompt defaultXPConfig { position = Top })