From 3777a430a392be708141923daa10fdd887706c0a Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Fri, 19 Feb 2016 21:55:09 +0100
Subject: Update volume in xmobar through a logger

---
 xmonad.symlink/xmonad.hs | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

(limited to 'xmonad.symlink')

diff --git a/xmonad.symlink/xmonad.hs b/xmonad.symlink/xmonad.hs
index 31be130..999370b 100644
--- a/xmonad.symlink/xmonad.hs
+++ b/xmonad.symlink/xmonad.hs
@@ -8,8 +8,15 @@ import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.ManageDocks
 import XMonad.Layout.MultiColumns
 import XMonad.Util.EZConfig
+import XMonad.Util.Loggers
 import XMonad.Util.Run(spawnPipe)
 
+xmoblog proc = dynamicLogWithPP xmobarPP
+            { ppOutput = hPutStrLn proc
+            , ppTitle = xmobarColor "green" "" . shorten 50
+            , ppExtras = [logCmd "volume"]
+            }
+
 main = do
         putEnv "_JAVA_AWT_WM_NONREPARENTING=1" -- java GUIs; see https://code.google.com/p/xmonad/issues/detail?id=559#c11
         xmproc <- spawnPipe "xmobar"
@@ -17,21 +24,18 @@ main = do
             { modMask           = mod4Mask
             , focusFollowsMouse = False
             , layoutHook        = avoidStruts $ myLayouts
-            , logHook           = dynamicLogWithPP xmobarPP
-                                { ppOutput = hPutStrLn xmproc
-                                , ppTitle = xmobarColor "green" "" . shorten 50
-                                }
+            , logHook           = xmoblog xmproc
             , manageHook        = manageDocks <+> manageHook defaultConfig
             , terminal          = "uxterm"
             , borderWidth       = 1
             }
-            `additionalKeysP` myKeys
+            `additionalKeysP` (myKeys xmproc)
 
-myKeys = [ ("M-<F5>", spawn "xbacklight -dec 5 -time 80")
+myKeys xmproc = [ ("M-<F5>", spawn "xbacklight -dec 5 -time 80")
          , ("M-<F6>", spawn "xbacklight -inc 5 -time 80")
-         , ("<XF86AudioMute>", spawn "amixer sset 'Master' toggle")
-         , ("<XF86AudioRaiseVolume>", spawn "amixer sset 'Master' 1%+")
-         , ("<XF86AudioLowerVolume>", spawn "amixer sset 'Master' 1%-")
+         , ("<XF86AudioMute>", xmoblog xmproc >> spawn "amixer sset 'Master' toggle")
+         , ("<XF86AudioRaiseVolume>", xmoblog xmproc >> spawn "amixer sset 'Master' 1%+")
+         , ("<XF86AudioLowerVolume>", xmoblog xmproc >> spawn "amixer sset 'Master' 1%-")
          , ("<XF86PowerOff>", spawn "sudo pm-suspend")
          , ("<XF86KbdBrightnessUp>", spawn "sudo -A ./bin/kbdbacklight up")
          , ("<XF86KbdBrightnessDown>", spawn "sudo -A ./bin/kbdbacklight down")
-- 
cgit v1.2.3