blob: 2c7e2f0e31b8fda4fba32645fff6ca70ce74b934 (
plain)
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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
-----------------------------------------------------------------------------
-- |
-- Module : Monitors.Cpu
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
--
-- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
-- Stability : unstable
-- Portability : unportable
--
-- A net device monitor for XMobar
--
-----------------------------------------------------------------------------
module Main where
import Monitors.Common
import Data.IORef
import Text.ParserCombinators.Parsec
data NetDev = NA
| ND { netDev :: String
, netRx :: Float
, netTx :: Float
} deriving (Eq,Show,Read)
interval :: Int
interval = 500000
monitorConfig :: IO MConfig
monitorConfig =
do lc <- newIORef "#BFBFBF"
l <- newIORef 0
nc <- newIORef "#00FF00"
h <- newIORef 32
hc <- newIORef "#FF0000"
t <- newIORef "<dev>: <rx>|<tx>"
p <- newIORef package
u <- newIORef "dev"
a <- newIORef []
e <- newIORef ["dev", "rx", "tx"]
return $ MC nc l lc h hc t p u a e
fileNET :: IO String
fileNET =
do f <- readFile "/proc/net/dev"
return $ unlines $ drop 2 $ lines f
formatNet :: Float -> Monitor String
formatNet d =
showWithColors f d
where f s = show s ++ "Kb"
printNet :: NetDev -> Monitor String
printNet nd =
do case nd of
ND d r t -> do rx <- formatNet r
tx <- formatNet t
parseTemplate [d,rx,tx]
NA -> return "N/A"
pNetDev :: Parser NetDev
pNetDev =
do { skipMany1 space
; dn <- manyTill alphaNum $ char ':'
; [rx] <- count 1 getNumbers
; _ <- count 7 getNumbers
; [tx] <- count 1 getNumbers
; _ <- count 7 getNumbers
; char '\n'
; return $ ND dn (rx / 1024) (tx / 1024)
}
parserNet :: Parser [NetDev]
parserNet = manyTill pNetDev eof
parseNET :: String -> IO [NetDev]
parseNET nd =
do (a',b') <- doActionTwiceWithDelay interval fileNET
a <- runP parserNet a'
b <- runP parserNet b'
let netRate f da db = takeDigits 2 $ ((f db) - (f da)) * fromIntegral (1000000 `div` interval)
diffRate (da,db) = ND (netDev da)
(netRate netRx da db)
(netRate netTx da db)
return $ filter (\d -> netDev d == nd) $ map diffRate $ zip a b
runNet :: [String] -> Monitor String
runNet nd =
do pn <- io $ parseNET $ head nd
n <- case pn of
[x] -> return x
_ -> return $ NA
printNet n
package :: String
package = "xmb-net"
main :: IO ()
main =
do let f = return "No device specified"
runMonitor monitorConfig f runNet
|
