decommit xmonad

This commit is contained in:
David Alexander Majnemer 2009-09-02 20:48:30 -05:00
parent cc02b71f94
commit 329796e4b7

View file

@ -32,7 +32,7 @@ myLayoutHook = tiled ||| Mirror tiled ||| Grid ||| Full
delta = 3/100 delta = 3/100
main = do main = do
xmproc <- spawnPipe "~/xmobar/bin/xmobar" xmproc <- spawnPipe "xmobar"
xmonad $ defaultConfig xmonad $ defaultConfig
{ manageHook = manageDocks <+> manageHook defaultConfig <+> scratchpadManageHook (W.RationalRect 0.25 0.25 0.5 0.5) { manageHook = manageDocks <+> manageHook defaultConfig <+> scratchpadManageHook (W.RationalRect 0.25 0.25 0.5 0.5)
, layoutHook = avoidStruts $ smartBorders $ myLayoutHook , layoutHook = avoidStruts $ smartBorders $ myLayoutHook
@ -40,7 +40,6 @@ main = do
{ ppOutput = hPutStrLn xmproc { ppOutput = hPutStrLn xmproc
, ppTitle = xmobarColor "#8AE234" "" , ppTitle = xmobarColor "#8AE234" ""
} }
, terminal = "uxterm"
} }
`additionalKeysP` `additionalKeysP`
[ ("M-p", shellPrompt defaultXPConfig { position = Top }) [ ("M-p", shellPrompt defaultXPConfig { position = Top })