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
|
-----------------------------------------------------------------------------
-- |
-- Module : Plugins.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 Plugins.Monitors.Batt where
import qualified Data.ByteString.Lazy.Char8 as B
import Plugins.Monitors.Common
import System.Posix.Files (fileExist)
data Batt = Batt Float String
| NA
battConfig :: IO MConfig
battConfig = mkMConfig
"Batt: <left>" -- template
["left","status"] -- available replacements
file2batfile :: String -> (String, String, String)
file2batfile s = ( s' ++ "/charge_full"
, s' ++ "/charge_now"
, s' ++ "/status")
where s' = "/sys/class/power_supply/" ++ s
readFileBatt :: (String, String, String) -> IO (String, String, String)
readFileBatt (f,n,s) =
do a <- rf f
b <- rf n
c <- rf s
return (a,b,c)
where rf file = do
fe <- fileExist file
if fe then B.unpack `fmap` catRead file else return []
parseBATT :: [(String, String, String)] -> IO Batt
parseBATT bfs =
do [(a0,b0,c0),(a1,b1,_),(a2,b2,_)] <- mapM readFileBatt (take 3 $ bfs ++ repeat ("","",""))
let read' s = if s == [] then 0 else read s
left = (read' b0 + read' b1 + read' b2) / (read' a0 + read' a1 + read' a2) --present / full
return $ if isNaN left then NA else Batt left c0
formatBatt :: Float -> Monitor [String]
formatBatt x =
do let f s = floatToPercent (s / 100)
l <- showWithColors f (x * 100)
return [l]
runBatt :: [String] -> Monitor String
runBatt = runBatt' ["BAT0","BAT1","BAT2"]
runBatt' :: [String] -> [String] -> Monitor String
runBatt' bfs _ = do
c <- io $ parseBATT (map file2batfile bfs)
case c of
Batt x s -> do l <- formatBatt x
parseTemplate (l ++ [s])
NA -> return "N/A"
|
