diff --git a/bin/xmobar.hs b/bin/xmobar.hs index 64b1594..dc72aca 100644 --- a/bin/xmobar.hs +++ b/bin/xmobar.hs @@ -36,6 +36,7 @@ import XMonad.Internal.DBus.Common (xmonadBus) import XMonad.Internal.DBus.Control (pathExists) import XMonad.Internal.DBus.IntelBacklight (blPath) import XMonad.Internal.DBus.Screensaver (ssPath) +import XMonad.Internal.Shell (fmtCmd) import qualified XMonad.Internal.Theme as T import Xmobar @@ -120,12 +121,21 @@ batteryCmd = CmdSpec , "--normal", T.fgColor , "--high", T.fgColor , "--" + , "-a", notify , "-P" , "-o" , "\xf0e7" , "-O" , "\xf1e6" , "-i" , "\xf1e6" ] 50 } + where + notify = fmtCmd "notify-send" + [ "-u" + , "critical" + , "-i" + , "'dialog-information-symbolic'" + , "'low battery'" + ] vpnCmd :: CmdSpec vpnCmd = CmdSpec