From 0054cc5beec8fe7673443f3a4a6a7a878a7f400d Mon Sep 17 00:00:00 2001 From: Ben Boeckel Date: Wed, 8 Dec 2010 20:29:59 -0500 Subject: Remove auto*% options The -P option now covers this case. --- Plugins/Monitors/MultiCpu.hs | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) (limited to 'Plugins') diff --git a/Plugins/Monitors/MultiCpu.hs b/Plugins/Monitors/MultiCpu.hs index f32c966..17620d5 100644 --- a/Plugins/Monitors/MultiCpu.hs +++ b/Plugins/Monitors/MultiCpu.hs @@ -22,7 +22,6 @@ multiCpuConfig :: IO MConfig multiCpuConfig = mkMConfig "Cpu: %" $ map ("auto" ++) monitors - ++ map ((++ "%") . ("auto" ++)) monitors ++ [ k ++ n | n <- "" : map show [0 :: Int ..] , k <- monitors] where monitors = ["bar","total","user","nice","system","idle"] @@ -73,17 +72,9 @@ formatAutoCpus :: [String] -> Monitor [String] formatAutoCpus [] = return $ replicate 6 "" formatAutoCpus xs = return $ map concat . map (intersperse " ") $ groupData xs -formatAutoCpusPercents :: [String] -> Monitor [String] -formatAutoCpusPercents [] = return $ replicate 6 "" -formatAutoCpusPercents xs = return $ map concat . map (intersperse " ") $ withPercents groups - where groups = groupData xs - withPercents [] = [] - withPercents (y:ys) = y : (map (map (++ "%")) (tail ys)) - runMultiCpu :: [String] -> Monitor String runMultiCpu _ = do c <- io parseCpuData l <- formatMultiCpus c a <- formatAutoCpus l - p <- formatAutoCpusPercents l - parseTemplate (a ++ p ++ l) + parseTemplate (a ++ l) -- cgit v1.2.3