Update xmonad.hs

This commit is contained in:
Ivan Malison 2016-09-12 20:01:08 -07:00
parent 8e91f678b7
commit af399cd0d8
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -1,12 +1,24 @@
import System.IO
import XMonad
import XMonad.Actions.WindowBringer
import XMonad.Config()
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.CustomKeys
import XMonad.Util.Run(spawnPipe)
main :: IO ()
main = xmonad defaultConfig
{ modMask = mod4Mask -- Use Super instead of Alt
main = do
xmproc <- spawnPipe "xmobar"
xmonad defaultConfig
{ modMask = mod4Mask -- Use Super instead of Alt
, keys = customKeys delkeys inskeys
, terminal = "urxvt"
, logHook = dynamicLogWithPP xmobarPP
{ ppOutput = hPutStrLn xmproc
, ppTitle = xmobarColor "green" "" . shorten 50
}
}
where
delkeys :: XConfig l -> [(KeyMask, KeySym)]
@ -15,5 +27,5 @@ main = xmonad defaultConfig
inskeys :: XConfig l -> [((KeyMask, KeySym), X ())]
inskeys conf =
[ ((mod4Mask, xK_g), gotoMenu)
, ((mod4Mask, xK_b), bringMenu)
, ((modM4ask, xK_b), bringMenu)
]