From 75b954d8556efc18a9b829bb1c3246c59f15eab7 Mon Sep 17 00:00:00 2001 From: jao 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