From 75b954d8556efc18a9b829bb1c3246c59f15eab7 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 10 Aug 2016 23:31:49 +0200
Subject: Battery: inferring status from watts/ac when Unknown
---
src/Plugins/Monitors/Batt.hs | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/Plugins/Monitors/Batt.hs b/src/Plugins/Monitors/Batt.hs
index cc16ec8..38c325f 100644
--- a/src/Plugins/Monitors/Batt.hs
+++ b/src/Plugins/Monitors/Batt.hs
@@ -187,7 +187,11 @@ readBatteries opts bfs =
statuses = map (fromMaybe Unknown . readMaybe)
(sort (map status bats))
acst = mostCommonDef Unknown $ filter (Unknown/=) statuses
- return $ if isNaN left then NA else Result left watts time acst
+ racst | acst /= Unknown = acst
+ | not ac = Discharging
+ | left == 0 = Idle
+ | otherwise = Charging
+ return $ if isNaN left then NA else Result left watts time racst
runBatt :: [String] -> Monitor String
runBatt = runBatt' ["BAT0","BAT1","BAT2"]
--
cgit v1.2.3