diff options
Diffstat (limited to 'Plugins/Monitors.hs')
| -rw-r--r-- | Plugins/Monitors.hs | 24 |
1 files changed, 18 insertions, 6 deletions
diff --git a/Plugins/Monitors.hs b/Plugins/Monitors.hs index 1321e38..553862b 100644 --- a/Plugins/Monitors.hs +++ b/Plugins/Monitors.hs @@ -23,6 +23,9 @@ import Plugins.Monitors.Mem import Plugins.Monitors.Swap import Plugins.Monitors.Cpu import Plugins.Monitors.Batt +import Plugins.Monitors.Thermal +import Plugins.Monitors.CpuFreq +import Plugins.Monitors.CoreTemp data Monitors = Weather Station Args Rate | Network Interface Args Rate @@ -30,6 +33,9 @@ data Monitors = Weather Station Args Rate | Swap Args Rate | Cpu Args Rate | Battery Args Rate + | Thermal Args Rate + | CpuFreq Args Rate + | CoreTemp Args Rate deriving (Show,Read,Eq) type Args = [String] @@ -46,9 +52,15 @@ instance Exec Monitors where alias (Swap _ _) = "swap" alias (Cpu _ _) = "cpu" alias (Battery _ _) = "battery" - start (Weather s a r) = runM (a ++ [s]) weatherConfig runWeather r - start (Network i a r) = runM (a ++ [i]) netConfig runNet r - start (Memory a r) = runM a memConfig runMem r - start (Swap a r) = runM a swapConfig runSwap r - start (Cpu a r) = runM a cpuConfig runCpu r - start (Battery a r) = runM a battConfig runBatt r + alias (Thermal _ _) = "thermal" + alias (CpuFreq _ _) = "cpufreq" + alias (CoreTemp _ _) = "coretemp" + start (Weather s a r) = runM (a ++ [s]) weatherConfig runWeather r + start (Network i a r) = runM (a ++ [i]) netConfig runNet r + start (Memory a r) = runM a memConfig runMem r + start (Swap a r) = runM a swapConfig runSwap r + start (Cpu a r) = runM a cpuConfig runCpu r + start (Battery a r) = runM a battConfig runBatt r + start (Thermal a r) = runM a thermalConfig runThermal r + start (CpuFreq a r) = runM a cpuFreqConfig runCpuFreq r + start (CoreTemp a r) = runM a coreTempConfig runCoreTemp r |