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