naomi/dots
1
0
Fork 0
mirror of https://github.com/NaomiAmethyst/dots.git synced 2025-08-05 16:48:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

clean up xmonad

Browse source
This commit is contained in:
David Majnemer 2010-08-31 12:11:19 -05:00
parent e207390016
commit a0d8d896f9
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
xmonad.hs
View file

@ -41,7 +41,7 @@ myLayoutHook = tiled ||| Mirror tiled ||| Grid ||| simpleTabbed
delta = 3/100 delta = 3/100
main = do main = do
xmproc <- spawnPipe "~/xmobar/bin/xmobar" xmproc <- spawnPipe "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
@ -50,7 +50,6 @@ main = do
, ppUrgent = xmobarColor "#cc0000" "" . wrap "**" "**" , ppUrgent = xmobarColor "#cc0000" "" . wrap "**" "**"
, ppTitle = xmobarColor "#8AE234" "" , ppTitle = xmobarColor "#8AE234" ""
} }
, terminal = "lxterm"
} }
`additionalKeysP` `additionalKeysP`
[ ("M-p", shellPrompt defaultXPConfig { position = Top }) [ ("M-p", shellPrompt defaultXPConfig { position = Top })
@ -68,5 +67,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 { terminal = "lxterm" }) , ("M-g", scratchpadSpawnAction defaultConfig)
] ]