diff options
| -rw-r--r-- | doc/plugins.org | 4 | ||||
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/Load.hs | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/doc/plugins.org b/doc/plugins.org index 81f50f9..cc4169f 100644 --- a/doc/plugins.org +++ b/doc/plugins.org @@ -675,7 +675,9 @@ - Default template: =Load: <load1>=. - - Displays load averages for the last 1, 5 or 15 hours. + - Displays load averages for the last 1, 5 or 15 minutes as + reported by, e.g., ~uptime(1)~. + ***** =TopProc Args RefreshRate= diff --git a/src/Xmobar/Plugins/Monitors/Load.hs b/src/Xmobar/Plugins/Monitors/Load.hs index 238d374..e41e897 100644 --- a/src/Xmobar/Plugins/Monitors/Load.hs +++ b/src/Xmobar/Plugins/Monitors/Load.hs @@ -19,6 +19,7 @@ module Xmobar.Plugins.Monitors.Load (loadConfig, runLoad) where import Xmobar.Plugins.Monitors.Common import qualified Data.ByteString.Lazy.Char8 as B import System.Posix.Files (fileExist) +import Control.Monad (zipWithM) -- | Default configuration. loadConfig :: IO MConfig @@ -40,6 +41,7 @@ runLoad _ = do exists <- io $ fileExist file if exists then (do l <- io $ B.readFile file >>= return . parseLoadAvgs - parseTemplate =<< mapM (showWithColors $ showDigits 2) l) + let s = showWithColors . const . showDigits 2 + parseTemplate =<< zipWithM s l l) else return "Load: N/A" |