Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add bindings to control volume w/amixer.

  • Loading branch information...
commit f4136debfd8ca3aec4d2af3957b027113779c837 1 parent c10a68a
@arnsholt authored
Showing with 8 additions and 5 deletions.
  1. +8 −5 dot.xmonad/xmonad.hs
View
13 dot.xmonad/xmonad.hs
@@ -90,11 +90,13 @@ modMask' = mod4Mask
keys' :: XConfig Layout -> M.Map (KeyMask, KeySym) (X ())
keys' conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
-- launching and killing programs
- [ ((modMask, xK_Return), spawn $ XMonad.terminal conf)
- , ((modMask, xK_p ), spawn "$(yeganesh -x)")
- , ((modMask, xK_o ), spawn "opera -newwindow")
- , ((modMask .|. shiftMask, xK_c ), kill)
- , ((0 , xK_F12 ), spawn "gnome-screensaver-command -l")
+ [ ((modMask, xK_Return ), spawn $ XMonad.terminal conf)
+ , ((modMask, xK_p ), spawn "$(yeganesh -x)")
+ , ((modMask, xK_o ), spawn "opera -newwindow")
+ , ((modMask .|. shiftMask, xK_c ), kill)
+ , ((0 , xK_F12 ), spawn "gnome-screensaver-command -l")
+ , ((modMask, xK_Page_Up ), spawn "amixer -q set Master 2%+")
+ , ((modMask, xK_Page_Down), spawn "amixer -q set Master 2%-")
-- layouts
, ((modMask, xK_space ), sendMessage NextLayout)
@@ -115,6 +117,7 @@ keys' conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
, ((modMask .|. shiftMask, xK_m ), windows W.shiftMaster)
-- swapping
+ -- TODO: Use modMask+Up/Down to swap
, ((modMask .|. shiftMask, xK_Return), windows W.swapMaster)
, ((modMask .|. shiftMask, xK_j ), windows W.swapDown )
, ((modMask .|. shiftMask, xK_k ), windows W.swapUp )
Please sign in to comment.
Something went wrong with that request. Please try again.