Код:
import XMonad
import XMonad.Util.Cursor
import XMonad.Util.EZConfig
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.FadeInactive
import XMonad.Hooks.ManageHelpers
main = xmonad =<< statusBar "xmobar" xmobarPP toggleStrutsKey myConfig
myConfig = defaultConfig
{ manageHook = myManageHook
, modMask = mod4Mask
, terminal = "urxvtc"
, borderWidth = 0
, logHook = fadeInactiveLogHook 0.6
, focusFollowsMouse = myFocusFollowsMouse
, startupHook = myStartupHook
}
`additionalKeysP`
[ ("<XF86AudioLowerVolume>", spawn "amixer sset Master,0 1- unmute")
, ("<XF86AudioRaiseVolume>", spawn "amixer sset Master,0 1+ unmute")
, ("<XF86AudioMute>", spawn "amixer sset Master,0 toggle")
, ("M1-S-q", spawn "xmonad --restart")
, ("M-f", spawn "~/prog/firefox/firefox")
]
`additionalKeys`
[ ((0, 0x1008ff2c), spawn "/usr/bin/eject") ]
toggleStrutsKey XConfig {XMonad.modMask = modMask} = (modMask, xK_b)
myFocusFollowsMouse :: Bool
myFocusFollowsMouse = False
myStartupHook = setDefaultCursor xC_left_ptr >> spawn "sh ~/.xmonad/xmstart.sh"
myManageHook = composeAll
[ isFullscreen --> doFullFloat
, className =? "sxiv" --> doFullFloat
, className =? "MPlayer" --> doFloat
, className =? "Gimp" --> (ask >>= \w -> liftX (set0pacity w 1) >> idHool)
, className =? "feh" --> doFloat
]