diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-12-11 01:02:32 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-12-11 01:02:32 +0100 |
| commit | 533d459b70774b3bbdab5dde1fcb442a579b36cc (patch) | |
| tree | 0a743a433681418973ecb620abaf1d7a1c595127 /Plugins/Monitors/Common.hs | |
| parent | d726f8e31984cd7afc4907615c58082e8049a671 (diff) | |
| download | xmobar-533d459b70774b3bbdab5dde1fcb442a579b36cc.tar.gz xmobar-533d459b70774b3bbdab5dde1fcb442a579b36cc.tar.bz2 | |
More sensitive logbars
Diffstat (limited to 'Plugins/Monitors/Common.hs')
| -rw-r--r-- | Plugins/Monitors/Common.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Plugins/Monitors/Common.hs b/Plugins/Monitors/Common.hs index a00cd48..90b2d28 100644 --- a/Plugins/Monitors/Common.hs +++ b/Plugins/Monitors/Common.hs @@ -408,8 +408,13 @@ showPercentBar v x = do showLogBar :: Float -> Float -> Monitor String showLogBar f v = do h <- fromIntegral `fmap` getConfigValue high + l <- fromIntegral `fmap` getConfigValue low bw <- fromIntegral `fmap` getConfigValue barWidth - showPercentBar v $ f + logBase 10 (v / h) / bw + let [ll, hh] = sort [l, h] + choose x | x == 0.0 = 0 + | x <= ll = 1 / bw + | otherwise = f + logBase 2 (x / hh) / bw + showPercentBar v $ choose v -- $threads |