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 xmonad.hs nicely

Browse source
This commit is contained in:
David Majnemer 2009-01-07 00:57:27 -05:00
parent cf7d1321d5
commit 475fa8d51e
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
xmonad.hs
View file

@ -1,8 +1,7 @@
import XMonad import XMonad
import XMonad.Layout
import XMonad.Layout.Grid import XMonad.Layout.Grid
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders(smartBorders)
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
@ -11,10 +10,9 @@ import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys) import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Prompt import XMonad.Prompt
import XMonad.Prompt.Shell import XMonad.Prompt.Shell(shellPrompt)
import XMonad.Prompt.Ssh
import System.IO import System.IO(hPutStrLn)
myLayoutHook = tiled ||| Mirror tiled ||| Grid ||| Full myLayoutHook = tiled ||| Mirror tiled ||| Grid ||| Full
where where
@ -30,6 +28,8 @@ 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 {
@ -38,9 +38,10 @@ main = do
logHook = dynamicLogWithPP $ xmobarPP { logHook = dynamicLogWithPP $ xmobarPP {
ppOutput = hPutStrLn xmproc, ppOutput = hPutStrLn xmproc,
ppTitle = xmobarColor "green" "" ppTitle = xmobarColor "green" ""
} },
} `additionalKeys` modMask = myModMask
} `additionalKeys`
[ [
((mod1Mask, xK_o), shellPrompt defaultXPConfig { position = Top }), ((myModMask, xK_o), shellPrompt defaultXPConfig { position = Top }),
((mod1Mask, xK_b), sendMessage ToggleStruts) ((myModMask, xK_b), sendMessage ToggleStruts)
] ]