ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH make sound line up better with volume chnage

This commit is contained in:
Nathan Dwarshuis 2020-05-31 23:50:18 -04:00
parent cb44b17d72
commit 4f14e11ae5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/XMonad/Internal/Command/Desktop.hs
View File

@ -92,10 +92,10 @@ volumeChangeSound :: FilePath
volumeChangeSound = "smb_fireball.wav"
runVolumeDown :: X ()
runVolumeDown = void (lowerVolume 2) >> spawnSound volumeChangeSound
runVolumeDown = spawnSound volumeChangeSound >> void (lowerVolume 2)
runVolumeUp :: X ()
runVolumeUp = void (raiseVolume 2) >> spawnSound volumeChangeSound
runVolumeUp = spawnSound volumeChangeSound >> void (raiseVolume 2)
runVolumeMute :: X ()
runVolumeMute = void toggleMute >> spawnSound volumeChangeSound