ADD low battery message
This commit is contained in:
parent
8c30e05390
commit
a7cded0392
|
@ -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" , "<fn=1>\xf0e7</fn>"
|
||||
, "-O" , "<fn=1>\xf1e6</fn>"
|
||||
, "-i" , "<fn=1>\xf1e6</fn>"
|
||||
] 50
|
||||
}
|
||||
where
|
||||
notify = fmtCmd "notify-send"
|
||||
[ "-u"
|
||||
, "critical"
|
||||
, "-i"
|
||||
, "'dialog-information-symbolic'"
|
||||
, "'low battery'"
|
||||
]
|
||||
|
||||
vpnCmd :: CmdSpec
|
||||
vpnCmd = CmdSpec
|
||||
|
|
Loading…
Reference in New Issue