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/CoreTemp.hs | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 Plugins/Monitors/CoreTemp.hs (limited to 'Plugins/Monitors/CoreTemp.hs') diff --git a/Plugins/Monitors/CoreTemp.hs b/Plugins/Monitors/CoreTemp.hs new file mode 100644 index 0000000..e59f0d3 --- /dev/null +++ b/Plugins/Monitors/CoreTemp.hs @@ -0,0 +1,33 @@ +----------------------------------------------------------------------------- +-- | +-- Module : Plugins.Monitors.CoreTemp +-- Copyright : (c) Juraj Hercek +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Juraj Hercek +-- Stability : unstable +-- Portability : unportable +-- +-- A core temperature monitor for Xmobar +-- +----------------------------------------------------------------------------- + +module Plugins.Monitors.CoreTemp where + +import Plugins.Monitors.Common +import Plugins.Monitors.CoreCommon + +coreTempConfig :: IO MConfig +coreTempConfig = mkMConfig + "Temp: C" -- template + (zipWith (++) (repeat "core") (map show [0 :: Int ..])) -- available + -- replacements +runCoreTemp :: [String] -> Monitor String +runCoreTemp _ = do + let dir = "/sys/bus/platform/devices" + file = "temp1_input" + pattern = "coretemp." + divisor = 1e3 :: Double + failureMessage = "CoreTemp: N/A" + checkedDataRetrieval failureMessage dir file pattern divisor + -- cgit v1.2.3