From bd99e674006d5262501243aadfafeff841633e6e Mon Sep 17 00:00:00 2001 From: Juraj Hercek Date: Fri, 30 Nov 2007 21:54:30 +0100 Subject: Added thermal, cpufreq and coretemp monitors. Prerequisities: thermal - thermal module should be loaded/compiled in kernel - available in (at least) intel centrino processors cpufreq - acpi_cpufreq module should be loaded/compiled in kernel - available in modern processors coretemp - coretemp module should be loaded/compiled in kernel - available (at least) in core 2 duo processors darcs-hash:20071130205430-f49a6-0ff042af60c91416fd8dd8190cbd9022bcabb269.gz --- Plugins/Monitors/CpuFreq.hs | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 Plugins/Monitors/CpuFreq.hs (limited to 'Plugins/Monitors/CpuFreq.hs') diff --git a/Plugins/Monitors/CpuFreq.hs b/Plugins/Monitors/CpuFreq.hs new file mode 100644 index 0000000..0258037 --- /dev/null +++ b/Plugins/Monitors/CpuFreq.hs @@ -0,0 +1,33 @@ +----------------------------------------------------------------------------- +-- | +-- Module : Plugins.Monitors.CpuFreq +-- Copyright : (c) Juraj Hercek +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Juraj Hercek +-- Stability : unstable +-- Portability : unportable +-- +-- A cpu frequency monitor for Xmobar +-- +----------------------------------------------------------------------------- + +module Plugins.Monitors.CpuFreq where + +import Plugins.Monitors.Common +import Plugins.Monitors.CoreCommon + +cpuFreqConfig :: IO MConfig +cpuFreqConfig = mkMConfig + "Freq: GHz" -- template + (zipWith (++) (repeat "core") (map show [0 :: Int ..])) -- available + -- replacements +runCpuFreq :: [String] -> Monitor String +runCpuFreq _ = do + let dir = "/sys/devices/system/cpu" + file = "cpufreq/scaling_cur_freq" + pattern = "cpu" + divisor = 1e6 :: Double + failureMessage = "CpuFreq: N/A" + checkedDataRetrieval failureMessage dir file pattern divisor + -- cgit v1.2.3