ADD low battery message

This commit is contained in:
Nathan Dwarshuis 2021-06-30 23:04:00 -04:00
parent 8c30e05390
commit a7cded0392
1 changed files with 10 additions and 0 deletions

View File

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