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

cleaned up the xmonad.hs file, makes it easier to read (might change, who knows?)

Browse source
This commit is contained in:
David Alexander Majnemer 2009-01-15 22:16:40 -05:00
parent 0558ea3878
commit 38af1dbac9
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
xmonad.hs
View file

@ -7,7 +7,7 @@ import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe) import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys) import XMonad.Util.EZConfig(additionalKeysP)
import XMonad.Prompt import XMonad.Prompt
import XMonad.Prompt.Shell(shellPrompt) import XMonad.Prompt.Shell(shellPrompt)
@ -28,8 +28,6 @@ myLayoutHook = tiled ||| Mirror tiled ||| Grid ||| Full
-- Percent of screen to increment by when resizing panes -- Percent of screen to increment by when resizing panes
delta = 3/100 delta = 3/100
myModMask = mod1Mask
main = do main = do
xmproc <- spawnPipe "xmobar" xmproc <- spawnPipe "xmobar"
xmonad $ defaultConfig xmonad $ defaultConfig
@ -37,11 +35,10 @@ main = do
, layoutHook = avoidStruts $ smartBorders $ myLayoutHook , layoutHook = avoidStruts $ smartBorders $ myLayoutHook
, logHook = dynamicLogWithPP $ xmobarPP , logHook = dynamicLogWithPP $ xmobarPP
{ ppOutput = hPutStrLn xmproc { ppOutput = hPutStrLn xmproc
, ppTitle = xmobarColor "green" "" , ppTitle = xmobarColor "green" ""
} }
, modMask = myModMask
} }
`additionalKeys` `additionalKeysP`
[ ((myModMask, xK_p), shellPrompt defaultXPConfig { position = Top }) [ ("M-p", shellPrompt defaultXPConfig { position = Top })
, ((myModMask, xK_b), sendMessage ToggleStruts) , ("M-b", sendMessage ToggleStruts)
] ]