xmonad-keys.hs

myKeys conf@(XConfig {XMonad.modMask = modm}) =
    [ ((modm, xK_b),                 sendMessage ToggleStruts) -- Mod-b: toggle xmobar panel
    , ((modm, xK_p),                 spawn "dmenu_run")        -- needs explicit for completion
    -- , ("<XF86AudioNext>", spawn "cmus-remote -n")
    , ((0, xF86XK_AudioNext),        spawn "cmus-remote -n")
    , ((0, xF86XK_AudioPrev),        spawn "cmus-remote -r")
    , ((0, xF86XK_AudioPlay),        spawn "cmus-remote -u")
    , ((0, xF86XK_AudioStop),        spawn "cmus-remote -s")
    , ((0, xF86XK_AudioLowerVolume), spawn "amixer set Master 5%-")
    , ((0, xF86XK_AudioRaiseVolume), spawn "amixer set Master 5%+")
    , ((0, xF86XK_AudioMute),        spawn "amixer set Master toggle")
    -- for Christine to toggle the touchpad
    , ((0, xK_F11),                  spawn "/home/eschulte/bin/toggle-touchpad")
    ]
newKeys x  = M.union (keys defaultConfig x) (M.fromList (myKeys x))