1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
-----------------------------------------------------------------------------
-- |
-- Module : Monitors.Batt
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
--
-- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
-- Stability : unstable
-- Portability : unportable
--
-- A battery monitor for XMobar
--
-----------------------------------------------------------------------------
module Monitors.Batt where
import Data.IORef
import qualified Data.ByteString.Lazy.Char8 as B
import System.Posix.Files
import Monitors.Common
battConfig :: IO MConfig
battConfig =
do lc <- newIORef "#FF0000"
l <- newIORef 25
nc <- newIORef "#FF0000"
h <- newIORef 75
hc <- newIORef "#00FF00"
t <- newIORef "Batt: <left>"
p <- newIORef package
u <- newIORef ""
a <- newIORef []
e <- newIORef ["left"]
return $ MC nc l lc h hc t p u a e
fileB1 :: (String, String)
fileB1 = ("/proc/acpi/battery/BAT1/info", "/proc/acpi/battery/BAT1/state")
fileB2 :: (String, String)
fileB2 = ("/proc/acpi/battery/BAT2/info", "/proc/acpi/battery/BAT2/state")
checkFileBatt :: (String, String) -> IO Bool
checkFileBatt (i,_) =
fileExist i
readFileBatt :: (String, String) -> IO (B.ByteString, B.ByteString)
readFileBatt (i,s) =
do a <- B.readFile i
b <- B.readFile s
return (a,b)
parseBATT :: IO Float
parseBATT =
do (a1,b1) <- readFileBatt fileB1
c <- checkFileBatt fileB2
let sp p s = read $ stringParser p s
(fu, pr) = (sp (3,2) a1, sp (2,4) b1)
case c of
True -> do (a2,b2) <- readFileBatt fileB1
let full = fu + (sp (3,2) a2)
present = pr + (sp (2,4) b2)
return $ present / full
_ -> return $ pr / fu
formatBatt :: Float -> Monitor [String]
formatBatt x =
do let f s = floatToPercent (s / 100)
l <- showWithColors f (x * 100)
return [l]
package :: String
package = "xmb-batt"
runBatt :: [String] -> Monitor String
runBatt _ =
do c <- io $ parseBATT
l <- formatBatt c
parseTemplate l
{-
main :: IO ()
main =
do let af = runBatt []
runMonitor battConfig af runBatt
-}
|
