b31be191b8
Fix comment into files/Batt.hs. Adjust WANTLIB. Use lynx from base instead of curl for the weather plugin. OK kili@
161 lines
6.5 KiB
Plaintext
161 lines
6.5 KiB
Plaintext
$OpenBSD: patch-src_Plugins_Monitors_hs,v 1.2 2012/01/12 21:42:07 dcoppa Exp $
|
|
--- src/Plugins/Monitors.hs.orig Tue Jan 10 20:31:19 2012
|
|
+++ src/Plugins/Monitors.hs Tue Jan 10 22:01:23 2012
|
|
@@ -21,20 +21,20 @@ import Plugins
|
|
|
|
import Plugins.Monitors.Common ( runM )
|
|
import Plugins.Monitors.Weather
|
|
-import Plugins.Monitors.Net
|
|
-import Plugins.Monitors.Mem
|
|
-import Plugins.Monitors.Swap
|
|
-import Plugins.Monitors.Cpu
|
|
-import Plugins.Monitors.MultiCpu
|
|
+--import Plugins.Monitors.Net
|
|
+--import Plugins.Monitors.Mem
|
|
+--import Plugins.Monitors.Swap
|
|
+--import Plugins.Monitors.Cpu
|
|
+--import Plugins.Monitors.MultiCpu
|
|
import Plugins.Monitors.Batt
|
|
-import Plugins.Monitors.Bright
|
|
-import Plugins.Monitors.Thermal
|
|
-import Plugins.Monitors.ThermalZone
|
|
-import Plugins.Monitors.CpuFreq
|
|
-import Plugins.Monitors.CoreTemp
|
|
-import Plugins.Monitors.Disk
|
|
-import Plugins.Monitors.Top
|
|
-import Plugins.Monitors.Uptime
|
|
+--import Plugins.Monitors.Bright
|
|
+--import Plugins.Monitors.Thermal
|
|
+--import Plugins.Monitors.ThermalZone
|
|
+--import Plugins.Monitors.CpuFreq
|
|
+--import Plugins.Monitors.CoreTemp
|
|
+--import Plugins.Monitors.Disk
|
|
+--import Plugins.Monitors.Top
|
|
+--import Plugins.Monitors.Uptime
|
|
#ifdef IWLIB
|
|
import Plugins.Monitors.Wireless
|
|
#endif
|
|
@@ -46,23 +46,23 @@ import Plugins.Monitors.Volume
|
|
#endif
|
|
|
|
data Monitors = Weather Station Args Rate
|
|
- | Network Interface Args Rate
|
|
- | BatteryP [String] Args Rate
|
|
- | DiskU DiskSpec Args Rate
|
|
- | DiskIO DiskSpec Args Rate
|
|
- | Thermal Zone Args Rate
|
|
- | ThermalZone ZoneNo Args Rate
|
|
- | Memory Args Rate
|
|
- | Swap Args Rate
|
|
- | Cpu Args Rate
|
|
- | MultiCpu Args Rate
|
|
+-- | Network Interface Args Rate
|
|
+-- | BatteryP [String] Args Rate
|
|
+-- | DiskU DiskSpec Args Rate
|
|
+-- | DiskIO DiskSpec Args Rate
|
|
+-- | Thermal Zone Args Rate
|
|
+-- | ThermalZone ZoneNo Args Rate
|
|
+-- | Memory Args Rate
|
|
+-- | Swap Args Rate
|
|
+-- | Cpu Args Rate
|
|
+-- | MultiCpu Args Rate
|
|
| Battery Args Rate
|
|
- | Brightness Args Rate
|
|
- | CpuFreq Args Rate
|
|
- | CoreTemp Args Rate
|
|
- | TopProc Args Rate
|
|
- | TopMem Args Rate
|
|
- | Uptime Args Rate
|
|
+-- | Brightness Args Rate
|
|
+-- | CpuFreq Args Rate
|
|
+-- | CoreTemp Args Rate
|
|
+-- | TopProc Args Rate
|
|
+-- | TopMem Args Rate
|
|
+-- | Uptime Args Rate
|
|
#ifdef IWLIB
|
|
| Wireless Interface Args Rate
|
|
#endif
|
|
@@ -86,23 +86,23 @@ type DiskSpec = [(String, String)]
|
|
|
|
instance Exec Monitors where
|
|
alias (Weather s _ _) = s
|
|
- alias (Network i _ _) = i
|
|
- alias (Thermal z _ _) = z
|
|
- alias (ThermalZone z _ _) = "thermal" ++ show z
|
|
- alias (Memory _ _) = "memory"
|
|
- alias (Swap _ _) = "swap"
|
|
- alias (Cpu _ _) = "cpu"
|
|
- alias (MultiCpu _ _) = "multicpu"
|
|
+-- alias (Network i _ _) = i
|
|
+-- alias (Thermal z _ _) = z
|
|
+-- alias (ThermalZone z _ _) = "thermal" ++ show z
|
|
+-- alias (Memory _ _) = "memory"
|
|
+-- alias (Swap _ _) = "swap"
|
|
+-- alias (Cpu _ _) = "cpu"
|
|
+-- alias (MultiCpu _ _) = "multicpu"
|
|
alias (Battery _ _) = "battery"
|
|
- alias (BatteryP _ _ _)= "battery"
|
|
- alias (Brightness _ _) = "bright"
|
|
- alias (CpuFreq _ _) = "cpufreq"
|
|
- alias (TopProc _ _) = "top"
|
|
- alias (TopMem _ _) = "topmem"
|
|
- alias (CoreTemp _ _) = "coretemp"
|
|
- alias (DiskU _ _ _) = "disku"
|
|
- alias (DiskIO _ _ _) = "diskio"
|
|
- alias (Uptime _ _) = "uptime"
|
|
+-- alias (BatteryP _ _ _)= "battery"
|
|
+-- alias (Brightness _ _) = "bright"
|
|
+-- alias (CpuFreq _ _) = "cpufreq"
|
|
+-- alias (TopProc _ _) = "top"
|
|
+-- alias (TopMem _ _) = "topmem"
|
|
+-- alias (CoreTemp _ _) = "coretemp"
|
|
+-- alias (DiskU _ _ _) = "disku"
|
|
+-- alias (DiskIO _ _ _) = "diskio"
|
|
+-- alias (Uptime _ _) = "uptime"
|
|
#ifdef IWLIB
|
|
alias (Wireless i _ _) = i ++ "wi"
|
|
#endif
|
|
@@ -112,25 +112,25 @@ instance Exec Monitors where
|
|
#ifdef ALSA
|
|
alias (Volume m c _ _) = m ++ ":" ++ c
|
|
#endif
|
|
- start (Network i a r) = startNet i a r
|
|
- start (Cpu a r) = startCpu a r
|
|
- start (MultiCpu a r) = startMultiCpu a r
|
|
- start (TopProc a r) = startTop a r
|
|
- start (TopMem a r) = runM a topMemConfig runTopMem r
|
|
+-- start (Network i a r) = startNet i a r
|
|
+-- start (Cpu a r) = startCpu a r
|
|
+-- start (MultiCpu a r) = startMultiCpu a r
|
|
+-- start (TopProc a r) = startTop a r
|
|
+-- start (TopMem a r) = runM a topMemConfig runTopMem r
|
|
start (Weather s a r) = runM (a ++ [s]) weatherConfig runWeather r
|
|
- start (Thermal z a r) = runM (a ++ [z]) thermalConfig runThermal r
|
|
- start (ThermalZone z a r) =
|
|
- runM (a ++ [show z]) thermalZoneConfig runThermalZone r
|
|
- start (Memory a r) = runM a memConfig runMem r
|
|
- start (Swap a r) = runM a swapConfig runSwap r
|
|
+-- start (Thermal z a r) = runM (a ++ [z]) thermalConfig runThermal r
|
|
+-- start (ThermalZone z a r) =
|
|
+-- runM (a ++ [show z]) thermalZoneConfig runThermalZone r
|
|
+-- start (Memory a r) = runM a memConfig runMem r
|
|
+-- start (Swap a r) = runM a swapConfig runSwap r
|
|
start (Battery a r) = runM a battConfig runBatt r
|
|
- start (BatteryP s a r) = runM a battConfig (runBatt' s) r
|
|
- start (Brightness a r) = runM a brightConfig runBright r
|
|
- start (CpuFreq a r) = runM a cpuFreqConfig runCpuFreq r
|
|
- start (CoreTemp a r) = runM a coreTempConfig runCoreTemp r
|
|
- start (DiskU s a r) = runM a diskUConfig (runDiskU s) r
|
|
- start (DiskIO s a r) = startDiskIO s a r
|
|
- start (Uptime a r) = runM a uptimeConfig runUptime r
|
|
+-- start (BatteryP s a r) = runM a battConfig (runBatt' s) r
|
|
+-- start (Brightness a r) = runM a brightConfig runBright r
|
|
+-- start (CpuFreq a r) = runM a cpuFreqConfig runCpuFreq r
|
|
+-- start (CoreTemp a r) = runM a coreTempConfig runCoreTemp r
|
|
+-- start (DiskU s a r) = runM a diskUConfig (runDiskU s) r
|
|
+-- start (DiskIO s a r) = startDiskIO s a r
|
|
+-- start (Uptime a r) = runM a uptimeConfig runUptime r
|
|
#ifdef IWLIB
|
|
start (Wireless i a r) = runM (a ++ [i]) wirelessConfig runWireless r
|
|
#endif
|