From 806945be8e61424ba2dde0ba39bd83543a021e91 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Tue, 1 Mar 2016 21:09:35 +0100 Subject: Fix volume delay asynchronicity in xmobar --- xmonad.symlink/xmonad.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'xmonad.symlink/xmonad.hs') diff --git a/xmonad.symlink/xmonad.hs b/xmonad.symlink/xmonad.hs index 999370b..339e214 100644 --- a/xmonad.symlink/xmonad.hs +++ b/xmonad.symlink/xmonad.hs @@ -14,7 +14,7 @@ import XMonad.Util.Run(spawnPipe) xmoblog proc = dynamicLogWithPP xmobarPP { ppOutput = hPutStrLn proc , ppTitle = xmobarColor "green" "" . shorten 50 - , ppExtras = [logCmd "volume"] + , ppExtras = [logCmd "sleep .1 && volume"] } main = do @@ -33,9 +33,9 @@ main = do myKeys xmproc = [ ("M-", spawn "xbacklight -dec 5 -time 80") , ("M-", spawn "xbacklight -inc 5 -time 80") - , ("", xmoblog xmproc >> spawn "amixer sset 'Master' toggle") - , ("", xmoblog xmproc >> spawn "amixer sset 'Master' 1%+") - , ("", xmoblog xmproc >> spawn "amixer sset 'Master' 1%-") + , ("", spawn "amixer sset 'Master' toggle" >> xmoblog xmproc) + , ("", spawn "amixer sset 'Master' 1%+" >> xmoblog xmproc) + , ("", spawn "amixer sset 'Master' 1%-" >> xmoblog xmproc) , ("", spawn "sudo pm-suspend") , ("", spawn "sudo -A ./bin/kbdbacklight up") , ("", spawn "sudo -A ./bin/kbdbacklight down") -- cgit v1.2.3