aboutsummaryrefslogtreecommitdiff
path: root/xmonad.symlink/xmonad.hs
diff options
context:
space:
mode:
authorCamil Staps2016-02-19 21:55:09 +0100
committerCamil Staps2016-11-30 19:11:07 +0100
commit3777a430a392be708141923daa10fdd887706c0a (patch)
tree14ce47a5291c85584e45a3bc11beb55e7ca60b9f /xmonad.symlink/xmonad.hs
parentTeX tabwidth 2 (diff)
Update volume in xmobar through a logger
Diffstat (limited to 'xmonad.symlink/xmonad.hs')
-rw-r--r--xmonad.symlink/xmonad.hs22
1 files changed, 13 insertions, 9 deletions
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")