From bd99e674006d5262501243aadfafeff841633e6e Mon Sep 17 00:00:00 2001
From: Juraj Hercek <juhe_haskell@hck.sk>
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/Thermal.hs | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 Plugins/Monitors/Thermal.hs

(limited to 'Plugins/Monitors/Thermal.hs')

diff --git a/Plugins/Monitors/Thermal.hs b/Plugins/Monitors/Thermal.hs
new file mode 100644
index 0000000..2794a60
--- /dev/null
+++ b/Plugins/Monitors/Thermal.hs
@@ -0,0 +1,37 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  Plugins.Monitors.Thermal
+-- Copyright   :  (c) Juraj Hercek
+-- License     :  BSD-style (see LICENSE)
+--
+-- Maintainer  :  Juraj Hercek <juhe_haskell@hck.sk>
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-- A thermal monitor for Xmobar
+--
+-----------------------------------------------------------------------------
+
+module Plugins.Monitors.Thermal where
+
+import qualified Data.ByteString.Lazy.Char8 as B
+import Plugins.Monitors.Common
+import System.Posix.Files (fileExist)
+
+thermalConfig :: IO MConfig
+thermalConfig = mkMConfig
+       "Thm: <temp>C" -- template
+       ["temp"]       -- available replacements
+
+runThermal :: [String] -> Monitor String
+runThermal _ = do
+    let file = "/proc/acpi/thermal_zone/THM/temperature"
+    exists <- io $ fileExist file
+    case exists of
+         False  -> return "Thermal: N/A"
+         True   -> do number <- io $ B.readFile file
+                                     >>= return . (read :: String -> Int)
+                                                . stringParser (1, 0)
+                      thermal <- showWithColors show number
+                      parseTemplate [  thermal ]
+
-- 
cgit v1.2.3