From 1e43372a6112a8f07ab47be470ba68633f96741b Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 18 Dec 2011 00:08:10 +0100
Subject: Battery: correct computation of watts

---
 README                       |  2 +-
 src/Plugins/Monitors/Batt.hs | 19 ++++++++-----------
 2 files changed, 9 insertions(+), 12 deletions(-)

diff --git a/README b/README
index cbfa231..9d108a3 100644
--- a/README
+++ b/README
@@ -427,7 +427,7 @@ Monitors have default aliases.
 
 - Aliases to `battery`
 - Dirs: list of directories in `/sys/class/power_supply/` where to
-  look for the `state` and `info` files of each battery. Example:
+  look for the ACPI files of each battery. Example:
   `["BAT0","BAT1","BAT2"]`. Only the first 3 directories will be
   searched.
 - Args: default monitor arguments (see below), plus the following specif ones:
diff --git a/src/Plugins/Monitors/Batt.hs b/src/Plugins/Monitors/Batt.hs
index f0aaa4a..24f5263 100644
--- a/src/Plugins/Monitors/Batt.hs
+++ b/src/Plugins/Monitors/Batt.hs
@@ -86,8 +86,7 @@ data Files = Files
 data Battery = Battery
   { full :: !Float
   , now :: !Float
-  , voltage :: !Float
-  , current :: !Float
+  , power :: !Float
   }
 
 safeFileExist :: String -> String -> IO Bool
@@ -119,16 +118,14 @@ haveAc f =
   where onError = const (return False) :: SomeException -> IO Bool
 
 readBattery :: Files -> IO Battery
-readBattery NoFiles = return $ Battery 0 0 0 0
+readBattery NoFiles = return $ Battery 0 0 0
 readBattery files =
-    do a <- grab $ fFull files -- microwatthours
+    do a <- grab $ fFull files
        b <- grab $ fNow files
-       c <- grab $ fVoltage files -- microvolts
-       d <- grab $ fCurrent files -- microwatts (huh!)
-       return $ Battery (3600 * a / 1000000) -- wattseconds
-                        (3600 * b / 1000000) -- wattseconds
-                        (c / 1000000) -- volts
-                        (if c > 0 then d / c else -1) -- amperes
+       d <- grab $ fCurrent files
+       return $ Battery (3600 * a / 1e5) -- wattseconds
+                        (3600 * b / 1e5) -- wattseconds
+                        (d / 1e5) -- watts
     where grab f = handle onError $ withFile f ReadMode (fmap read . hGetLine)
           onError = const (return (-1)) :: SomeException -> IO Float
 
@@ -139,7 +136,7 @@ readBatteries opts bfs =
        let sign = if ac then 1 else -1
            ft = sum (map full bats)
            left = if ft > 0 then sum (map now bats) / ft else 0
-           watts = sign * sum (map voltage bats) * sum (map current bats)
+           watts = sign * sum (map power bats)
            time = if watts == 0 then 0 else sum $ map time' bats
            mwatts = if watts == 0 then 1 else sign * watts
            time' b = (if ac then full b - now b else now b) / mwatts
-- 
cgit v1.2.3