import System.Posix.Env (putEnv) import XMonad import XMonad.Actions.CycleWS import XMonad.Actions.CycleWindows import XMonad.Hooks.SetWMName import XMonad.Layout.MultiColumns import XMonad.Util.EZConfig main = do putEnv "_JAVA_AWT_WM_NONREPARENTING=1" -- java GUIs; see https://code.google.com/p/xmonad/issues/detail?id=559#c11 xmonad $ defaultConfig { modMask = mod4Mask , focusFollowsMouse = False , layoutHook = myLayouts , terminal = "uxterm" , borderWidth = 1 } `additionalKeysP` myKeys myKeys = [ ("M-", spawn "xbacklight -dec 5 -time 80") , ("M-", spawn "xbacklight -inc 5 -time 80") , ("", spawn "amixer sset 'Master' toggle") , ("", spawn "amixer sset 'Master' 1%+") , ("", spawn "amixer sset 'Master' 1%-") , ("", spawn "sudo pm-suspend") , ("M-", nextWS) , ("M-", prevWS) , ("M-S-p", spawn "passmenu -i") , ("M-v", spawn "uxterm -e vim") ] myLayouts = Tall 1 0.01 0.5 ||| multiCol [1,1,0] 4 0.01 0.4 ||| Full