xkollar / my-xmonad Goto Github PK

import XMonad.Hooks.EwmhDesktops (ewmh)
import XMonad.Hooks.ManageDocks (manageDocks)
import XMonad.Hooks.ManageHelpers (doCenterFloat)
import XMonad.ManageHook ((-->), (=?), className, doIgnore)

addDesktop = ewmh . update manageHook (myManageHook <+>)

myManageHook :: ManageHook
myManageHook = composeAll
    [ className =? "Iok"            --> doIgnore
    , className =? "Xfce4-notifyd"  --> doIgnore
    , className =? "Workrave"       --> doFloat
    , className =? "Xfrun4"         --> doFloat
    , className =? "Xmessage"       --> doCenterFloat
    , className =? "Gitk"           --> doCenterFloat
    , isFullscreen                  --> doFullFloat
    ]

import XMonad.Hooks.FadeInactive ( fadeInactiveCurrentWSLogHook )

--- {{{ Multimedia Key Bindings for XMMS2 -------------------------------------
multimediaKeyBindings :: KeyMask -> [((KeyMask, KeySym), (X ()))]
multimediaKeyBindings _ = map ((,) noModMask *** spawn)
    [ (xK_XF86AudioLowerVolume, "nyxmms2 server volume -5")
    , (xK_XF86AudioMute, "nyxmms2 server volume 0")
    , (xK_XF86AudioRaiseVolume, "nyxmms2 server volume +5")
    , (xK_XF86AudioPlay, "nyxmms2 toggle")
    , (xK_XF86AudioStop, "nyxmms2 stop")
    , (xK_XF86AudioPrev, "nyxmms2 prev")
    , (xK_XF86AudioNext, "nyxmms2 next")
    ]
--- }}} Multimedia Key Bindings for XMMS2 -------------------------------------

myKeys :: XConfig l -> Map (KeyMask, KeySym) (X ())
myKeys c = fromList $
    [ ((mm, XF86.xF86XK_AudioPrev), seek "-10")
    , ((mm, XF86.xF86XK_AudioNext), seek "+10")
    ]
    where
    mm = modMask c
    seek t = spawn "nyxmms2" ["seek", t]