-----------------------------------------------------------------------------
-- |
-- 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 Xmobar.Plugins.Monitors.Thermal where

import qualified Data.ByteString.Lazy.Char8 as B
import Xmobar.Plugins.Monitors.Common
import System.Posix.Files (fileExist)

-- | Default thermal configuration.
thermalConfig :: IO MConfig
thermalConfig :: IO MConfig
thermalConfig = String -> [String] -> IO MConfig
mkMConfig
       String
"Thm: <temp>C" -- template
       [String
"temp"]       -- available replacements

-- | Retrieves thermal information. Argument is name of thermal directory in
-- \/proc\/acpi\/thermal_zone. Returns the monitor string parsed according to
-- template (either default or user specified).
runThermal :: [String] -> Monitor String
runThermal :: [String] -> Monitor String
runThermal [String]
args = do
    let zone :: String
zone = [String] -> String
forall a. [a] -> a
head [String]
args
        file :: String
file = String
"/proc/acpi/thermal_zone/" String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
zone String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
"/temperature"
    Bool
exists <- IO Bool -> Monitor Bool
forall a. IO a -> Monitor a
io (IO Bool -> Monitor Bool) -> IO Bool -> Monitor Bool
forall a b. (a -> b) -> a -> b
$ String -> IO Bool
fileExist String
file
    if Bool
exists
        then do Int
number <- IO Int -> Monitor Int
forall a. IO a -> Monitor a
io (IO Int -> Monitor Int) -> IO Int -> Monitor Int
forall a b. (a -> b) -> a -> b
$ (ByteString -> Int) -> IO ByteString -> IO Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap ((String -> Int
forall a. Read a => String -> a
read :: String -> Int) (String -> Int) -> (ByteString -> String) -> ByteString -> Int
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Pos -> ByteString -> String
stringParser (Int
1, Int
0)) (String -> IO ByteString
B.readFile String
file)
                String
thermal <- (Int -> String) -> Int -> Monitor String
forall a. (Num a, Ord a) => (a -> String) -> a -> Monitor String
showWithColors Int -> String
forall a. Show a => a -> String
show Int
number
                [String] -> Monitor String
parseTemplate [  String
thermal ]
        else String -> Monitor String
forall (m :: * -> *) a. Monad m => a -> m a
return (String -> Monitor String) -> String -> Monitor String
forall a b. (a -> b) -> a -> b
$ String
"Thermal (" String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
zone String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
"): N/A"