diff options
| author | Jose A Ortega Ruiz <jao@gnu.org> | 2010-03-20 03:08:48 +0100 |
|---|---|---|
| committer | Jose A Ortega Ruiz <jao@gnu.org> | 2010-03-20 03:08:48 +0100 |
| commit | 384659364b78a5b763aa07e29e767073d303c6e7 (patch) | |
| tree | c79c9caa7dbe93603a4fd409adc7ae11103d50ee /Plugins/Monitors/Net.hs | |
| parent | 01931fdc886896e1700da4a37103e4df0d69e344 (diff) | |
| download | xmobar-384659364b78a5b763aa07e29e767073d303c6e7.tar.gz xmobar-384659364b78a5b763aa07e29e767073d303c6e7.tar.bz2 | |
Bars for DiskIO
Ignore-this: 50ae0b5d07377a8563acdede4dba31cf
darcs-hash:20100320020848-748be-4c1b8f64b056f026328348a3eb8ca6f367544285.gz
Diffstat (limited to 'Plugins/Monitors/Net.hs')
| -rw-r--r-- | Plugins/Monitors/Net.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Plugins/Monitors/Net.hs b/Plugins/Monitors/Net.hs index 7fed311..d08f96e 100644 --- a/Plugins/Monitors/Net.hs +++ b/Plugins/Monitors/Net.hs @@ -64,9 +64,7 @@ netParser = formatNet :: Float -> Monitor (String, String) formatNet d = do - h <- getConfigValue high - let dx = 8 + logBase 10 (d / fromIntegral h) - b <- showPercentBar d $ max (dx / 10) 0 + b <- showLogBar 0.8 d x <- showWithColors f d return (x, b) where f s = showDigits 1 s ++ "Kb" |