summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins/Monitors/Batt.hs
diff options
context:
space:
mode:
authorDhananjay Balan <mail@dbalan.in>2020-01-08 19:44:49 +0530
committerDhananjay Balan <mail@dbalan.in>2020-01-08 19:44:49 +0530
commit8d8da3e74cf482712f98eee321d30f5bc0f141c1 (patch)
tree8937146fa928a127ec75e36ba2e3657b515f9c95 /src/Xmobar/Plugins/Monitors/Batt.hs
parent1f7e24bbcf3724f5433f019af4e5255f54805072 (diff)
downloadxmobar-8d8da3e74cf482712f98eee321d30f5bc0f141c1.tar.gz
xmobar-8d8da3e74cf482712f98eee321d30f5bc0f141c1.tar.bz2
FreeBSD battery: Condition to notify if battery is full.
Diffstat (limited to 'src/Xmobar/Plugins/Monitors/Batt.hs')
-rw-r--r--src/Xmobar/Plugins/Monitors/Batt.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Batt.hs b/src/Xmobar/Plugins/Monitors/Batt.hs
index 0181f83..4ea7591 100644
--- a/src/Xmobar/Plugins/Monitors/Batt.hs
+++ b/src/Xmobar/Plugins/Monitors/Batt.hs
@@ -175,11 +175,12 @@ readBatteriesFbsd opts = do
tm <- sysctlReadInt "hw.acpi.battery.time"
st <- sysctlReadInt "hw.acpi.battery.state"
acline <- sysctlReadInt "hw.acpi.acline"
- let sts = battStatusFbsd $ fromIntegral st
- p = fromIntegral lf / 100
+ let p = fromIntegral lf / 100
w = fromIntegral rt
t = fromIntegral tm * 60
ac = acline == 1
+ -- battery full when rate is 0 and on ac.
+ sts = if (w == 0 && ac) then Full else (battStatusFbsd $ fromIntegral st)
unless ac (maybeAlert opts p)
return (Result p w t sts)