From 7d08f7256d9ebc880ed756633741d4e5e5ce6351 Mon Sep 17 00:00:00 2001 From: Jens Petersen Date: Wed, 12 Sep 2007 08:54:20 +0200 Subject: include BAT0 acpi battery status too darcs-hash:20070912065420-740ef-41785bf4355e312f735e9c6de26649c0ef5699b0.gz --- Plugins/Monitors/Batt.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Plugins/Monitors/Batt.hs b/Plugins/Monitors/Batt.hs index bf490f7..6a7a858 100644 --- a/Plugins/Monitors/Batt.hs +++ b/Plugins/Monitors/Batt.hs @@ -26,6 +26,9 @@ battConfig = mkMConfig "Batt: " -- template ["left"] -- available replacements +fileB0 :: (String, String) +fileB0 = ("/proc/acpi/battery/BAT0/info", "/proc/acpi/battery/BAT0/state") + fileB1 :: (String, String) fileB1 = ("/proc/acpi/battery/BAT1/info", "/proc/acpi/battery/BAT1/state") @@ -43,14 +46,16 @@ readFileBatt (i,s) = parseBATT :: IO Batt parseBATT = - do (a1,b1) <- readFileBatt fileB1 + do (a0,b0) <- readFileBatt fileB0 + (a1,b1) <- readFileBatt fileB1 (a2,b2) <- readFileBatt fileB2 let sp p s = case stringParser p s of [] -> 0 x -> read x + (f0, p0) = (sp (3,2) a0, sp (2,4) b0) (f1, p1) = (sp (3,2) a1, sp (2,4) b1) (f2, p2) = (sp (3,2) a2, sp (2,4) b2) - left = (p1 + p2) / (f1 + f2) --present / full + left = (p0 + p1 + p2) / (f0 + f1 + f2) --present / full return $ if isNaN left then NA else Batt left formatBatt :: Float -> Monitor [String] -- cgit v1.2.3