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