summaryrefslogtreecommitdiffhomepage
path: root/Plugins
diff options
context:
space:
mode:
Diffstat (limited to 'Plugins')
-rw-r--r--Plugins/CommandReader.hs4
-rw-r--r--Plugins/Date.hs2
-rw-r--r--Plugins/HelloWorld.hs6
-rw-r--r--Plugins/Monitors.hs2
-rw-r--r--Plugins/Monitors/Batt.hs2
-rw-r--r--Plugins/Monitors/Common.hs2
-rw-r--r--Plugins/Monitors/Cpu.hs2
-rw-r--r--Plugins/Monitors/Mem.hs2
-rw-r--r--Plugins/Monitors/Net.hs9
-rw-r--r--Plugins/Monitors/Swap.hs2
-rw-r--r--Plugins/Monitors/Top.hs2
-rw-r--r--Plugins/Monitors/Weather.hs8
-rw-r--r--Plugins/PipeReader.hs2
-rw-r--r--Plugins/StdinReader.hs2
14 files changed, 23 insertions, 24 deletions
diff --git a/Plugins/CommandReader.hs b/Plugins/CommandReader.hs
index eee23a6..7c7c92d 100644
--- a/Plugins/CommandReader.hs
+++ b/Plugins/CommandReader.hs
@@ -4,7 +4,7 @@
-- Copyright : (c) John Goerzen
-- License : BSD-style (see LICENSE)
--
--- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
-- Stability : unstable
-- Portability : unportable
--
@@ -31,7 +31,7 @@ instance Exec CommandReader where
hSetBinaryMode hstdout False
hSetBuffering hstdout LineBuffering
forever ph (hGetLineSafe hstdout >>= cb)
- where forever ph a =
+ where forever ph a =
do a
ec <- getProcessExitCode ph
case ec of
diff --git a/Plugins/Date.hs b/Plugins/Date.hs
index a9e48aa..a4ed80f 100644
--- a/Plugins/Date.hs
+++ b/Plugins/Date.hs
@@ -4,7 +4,7 @@
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
--
--- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
-- Stability : unstable
-- Portability : unportable
--
diff --git a/Plugins/HelloWorld.hs b/Plugins/HelloWorld.hs
index 352a8a8..df5cff6 100644
--- a/Plugins/HelloWorld.hs
+++ b/Plugins/HelloWorld.hs
@@ -3,12 +3,12 @@
-- Module : Plugins.HelloWorld
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
---
--- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+--
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
-- Stability : unstable
-- Portability : unportable
--
--- A plugin example for Xmobar, a text based status bar
+-- A plugin example for Xmobar, a text based status bar
--
-----------------------------------------------------------------------------
diff --git a/Plugins/Monitors.hs b/Plugins/Monitors.hs
index dd01ce3..98949cf 100644
--- a/Plugins/Monitors.hs
+++ b/Plugins/Monitors.hs
@@ -6,7 +6,7 @@
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
--
--- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
-- Stability : unstable
-- Portability : unportable
--
diff --git a/Plugins/Monitors/Batt.hs b/Plugins/Monitors/Batt.hs
index b860210..11b2d6c 100644
--- a/Plugins/Monitors/Batt.hs
+++ b/Plugins/Monitors/Batt.hs
@@ -4,7 +4,7 @@
-- Copyright : (c) Andrea Rossato, 2010 Petr Rockai, 2010 Jose A Ortega
-- License : BSD-style (see LICENSE)
--
--- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
-- Stability : unstable
-- Portability : unportable
--
diff --git a/Plugins/Monitors/Common.hs b/Plugins/Monitors/Common.hs
index 9a76be5..a00cd48 100644
--- a/Plugins/Monitors/Common.hs
+++ b/Plugins/Monitors/Common.hs
@@ -4,7 +4,7 @@
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
--
--- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
-- Stability : unstable
-- Portability : unportable
--
diff --git a/Plugins/Monitors/Cpu.hs b/Plugins/Monitors/Cpu.hs
index 78e3ec7..71e8ac3 100644
--- a/Plugins/Monitors/Cpu.hs
+++ b/Plugins/Monitors/Cpu.hs
@@ -4,7 +4,7 @@
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
--
--- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
-- Stability : unstable
-- Portability : unportable
--
diff --git a/Plugins/Monitors/Mem.hs b/Plugins/Monitors/Mem.hs
index a55d58e..5c55ee2 100644
--- a/Plugins/Monitors/Mem.hs
+++ b/Plugins/Monitors/Mem.hs
@@ -4,7 +4,7 @@
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
--
--- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
-- Stability : unstable
-- Portability : unportable
--
diff --git a/Plugins/Monitors/Net.hs b/Plugins/Monitors/Net.hs
index d08f96e..64e7eaf 100644
--- a/Plugins/Monitors/Net.hs
+++ b/Plugins/Monitors/Net.hs
@@ -4,7 +4,7 @@
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
--
--- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
-- Stability : unstable
-- Portability : unportable
--
@@ -28,7 +28,7 @@ interval = 500000
netConfig :: IO MConfig
netConfig = mkMConfig
- "<dev>: <rx>|<tx>" -- template
+ "<dev>: <rx>KB|<tx>KB" -- template
["dev", "rx", "tx", "rxbar", "txbar"] -- available replacements
-- Given a list of indexes, take the indexed elements from a list.
@@ -64,10 +64,9 @@ netParser =
formatNet :: Float -> Monitor (String, String)
formatNet d = do
- b <- showLogBar 0.8 d
- x <- showWithColors f d
+ b <- showLogBar 0.6 d
+ x <- showWithColors (showDigits 1) d
return (x, b)
- where f s = showDigits 1 s ++ "Kb"
printNet :: NetDev -> Monitor String
printNet nd =
diff --git a/Plugins/Monitors/Swap.hs b/Plugins/Monitors/Swap.hs
index d2e6077..e466dbb 100644
--- a/Plugins/Monitors/Swap.hs
+++ b/Plugins/Monitors/Swap.hs
@@ -4,7 +4,7 @@
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
--
--- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
-- Stability : unstable
-- Portability : unportable
--
diff --git a/Plugins/Monitors/Top.hs b/Plugins/Monitors/Top.hs
index d475204..924d4b6 100644
--- a/Plugins/Monitors/Top.hs
+++ b/Plugins/Monitors/Top.hs
@@ -134,7 +134,7 @@ topProcesses tref scale = do
atomicModifyIORef tref $ \(t0, c0) ->
let scx = realToFrac (diffUTCTime c1 c0) * scale / 100
ts = M.elems $ combineTimeInfos t0 t1
- nts = map (\(nm, t) -> (nm, t / scx)) ts
+ nts = map (\(nm, t) -> (nm, min 100 (t / scx))) ts
in ((t1, c1), (len, sortTop nts, sortTop mis))
showTimeInfo :: TimeInfo -> Monitor [String]
diff --git a/Plugins/Monitors/Weather.hs b/Plugins/Monitors/Weather.hs
index 15d084e..1277438 100644
--- a/Plugins/Monitors/Weather.hs
+++ b/Plugins/Monitors/Weather.hs
@@ -3,8 +3,8 @@
-- Module : Plugins.Monitors.Weather
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
---
--- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+--
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
-- Stability : unstable
-- Portability : unportable
--
@@ -90,8 +90,8 @@ pPressure = do manyTill anyChar $ char '('
return $ read s
parseData :: Parser [WeatherInfo]
-parseData =
- do st <- getAllBut ","
+parseData =
+ do st <- getAllBut ","
space
ss <- getAllBut "("
skipRestOfLine >> getAllBut "/"
diff --git a/Plugins/PipeReader.hs b/Plugins/PipeReader.hs
index 3886ec6..3fd0dd4 100644
--- a/Plugins/PipeReader.hs
+++ b/Plugins/PipeReader.hs
@@ -4,7 +4,7 @@
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
--
--- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
-- Stability : unstable
-- Portability : unportable
--
diff --git a/Plugins/StdinReader.hs b/Plugins/StdinReader.hs
index 0c075e6..2ee217e 100644
--- a/Plugins/StdinReader.hs
+++ b/Plugins/StdinReader.hs
@@ -4,7 +4,7 @@
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
--
--- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
-- Stability : unstable
-- Portability : unportable
--