voooolume

This commit is contained in:
Sakooooo 2023-07-24 21:40:15 +03:00
parent 6bd128c6b0
commit 588911a939
Signed by: sako
GPG key ID: 3FD715D87D7725E0

View file

@ -23,6 +23,7 @@ import XMonad.Hooks.DynamicLog -- supposed to be for xmobar
import XMonad.Util.SpawnOnce -- for startup items import XMonad.Util.SpawnOnce -- for startup items
import XMonad.Util.Run -- for xmobar startup import XMonad.Util.Run -- for xmobar startup
import XMonad.Util.Hacks as Hacks -- tray import XMonad.Util.Hacks as Hacks -- tray
import Graphics.X11.ExtraTypes.XF86 -- for keys
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import qualified Data.Map as M import qualified Data.Map as M
@ -132,6 +133,10 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
-- See also the statusBar function from Hooks.DynamicLog. -- See also the statusBar function from Hooks.DynamicLog.
-- --
-- , ((modm , xK_b ), sendMessage ToggleStruts) -- , ((modm , xK_b ), sendMessage ToggleStruts)
-- Audio
, ((0, XF86XK_AudioRaiseVolume), spawn "pactl set-sink-volume 0 +5%")
, ((0, XF86XK_AudioLowerVolume), spawn "pactl set-sink-volume0 -5%")
, ((o, XF86XK_AudioMute), spawn "pactl set-sink-mute 0 toggle")
-- Quit xmonad -- Quit xmonad
, ((modm .|. shiftMask, xK_q ), io exitSuccess) , ((modm .|. shiftMask, xK_q ), io exitSuccess)