From 4f14e11ae5f9e2ab99a3c01b2d876c85f1fbce4e Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sun, 31 May 2020 23:50:18 -0400 Subject: [PATCH] ENH make sound line up better with volume chnage --- lib/XMonad/Internal/Command/Desktop.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/XMonad/Internal/Command/Desktop.hs b/lib/XMonad/Internal/Command/Desktop.hs index d17db50..bf444e4 100644 --- a/lib/XMonad/Internal/Command/Desktop.hs +++ b/lib/XMonad/Internal/Command/Desktop.hs @@ -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