From f416907a72738adbbf5bd877e1fa9d91826de6ac Mon Sep 17 00:00:00 2001
From: Jose A Ortega Ruiz <jao@gnu.org>
Date: Tue, 30 Mar 2010 21:31:29 +0200
Subject: New (and optional) MPD monitor.

Ignore-this: 405d2dcf63efe90ea243df1c99db8ead

darcs-hash:20100330193129-748be-5af6dc8af59ccaf3b71a250b02c76900716008dc.gz
---
 Plugins/Monitors.hs | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'Plugins/Monitors.hs')

diff --git a/Plugins/Monitors.hs b/Plugins/Monitors.hs
index 158a990..dd01ce3 100644
--- a/Plugins/Monitors.hs
+++ b/Plugins/Monitors.hs
@@ -34,6 +34,9 @@ import Plugins.Monitors.Top
 #ifdef IWLIB
 import Plugins.Monitors.Wireless
 #endif
+#ifdef LIBMPD
+import Plugins.Monitors.MPD
+#endif
 
 data Monitors = Weather  Station    Args Rate
               | Network  Interface  Args Rate
@@ -52,6 +55,9 @@ data Monitors = Weather  Station    Args Rate
               | TopMem   Args       Rate
 #ifdef IWLIB
               | Wireless Interface  Args Rate
+#endif
+#ifdef LIBMPD
+              | MPD      Args       Rate
 #endif
                 deriving (Show,Read,Eq)
 
@@ -82,7 +88,9 @@ instance Exec Monitors where
     alias (DiskIO   _ _ _) = "diskio"
 #ifdef IWLIB
     alias (Wireless i _ _) = i ++ "wi"
-    start (Wireless i a r) = runM (a ++ [i]) wirelessConfig  runWireless  r
+#endif
+#ifdef LIBMPD
+    alias (MPD        _ _) = "mpd"
 #endif
     start (Weather  s a r) = runM (a ++ [s]) weatherConfig  runWeather    r
     start (Network  i a r) = runM (a ++ [i]) netConfig      runNet        r
@@ -99,3 +107,9 @@ instance Exec Monitors where
     start (DiskIO   s a r) = runM a          diskIOConfig  (runDiskIO s)  r
     start (TopMem     a r) = runM a          topMemConfig   runTopMem     r
     start (TopProc    a r) = startTop a r
+#ifdef IWLIB
+    start (Wireless i a r) = runM (a ++ [i]) wirelessConfig runWireless   r
+#endif
+#ifdef LIBMPD
+    start (MPD        a r) = runM a          mpdConfig      runMPD        r
+#endif
-- 
cgit v1.2.3