diff options
| author | jao <jao@gnu.org> | 2011-06-02 04:14:01 -0700 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2011-06-02 04:14:01 -0700 |
| commit | d1a84931665cce88108088fd1e4d35d8658e6f5e (patch) | |
| tree | 707d5e7fb0318d5a156b768a23346ca5b0e6ee3c /src/Plugins/Monitors.hs | |
| parent | 21b6a84953c2fab5d48dc4bfe481a208c100b850 (diff) | |
| parent | 63847f5b585e0fb5f19812ce9b5ddaa257b359b7 (diff) | |
| download | xmobar-d1a84931665cce88108088fd1e4d35d8658e6f5e.tar.gz xmobar-d1a84931665cce88108088fd1e4d35d8658e6f5e.tar.bz2 | |
Merge pull request #15 from skinner33/master
Brightness Monitor Plugin
Diffstat (limited to 'src/Plugins/Monitors.hs')
| -rw-r--r-- | src/Plugins/Monitors.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Plugins/Monitors.hs b/src/Plugins/Monitors.hs index c4688a7..5e1cb62 100644 --- a/src/Plugins/Monitors.hs +++ b/src/Plugins/Monitors.hs @@ -27,6 +27,7 @@ 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 @@ -56,6 +57,7 @@ data Monitors = Weather Station Args Rate | Cpu Args Rate | MultiCpu Args Rate | Battery Args Rate + | Brightness Args Rate | CpuFreq Args Rate | CoreTemp Args Rate | TopProc Args Rate @@ -93,6 +95,7 @@ instance Exec Monitors where alias (MultiCpu _ _) = "multicpu" alias (Battery _ _) = "battery" alias (BatteryP _ _ _)= "battery" + alias (Brightness _ _) = "bright" alias (CpuFreq _ _) = "cpufreq" alias (TopProc _ _) = "top" alias (TopMem _ _) = "topmem" @@ -122,6 +125,7 @@ instance Exec Monitors where 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 |