module Xmobar.Plugins.Monitors.Thermal where
import qualified Data.ByteString.Lazy.Char8 as B
import Xmobar.Plugins.Monitors.Common
import System.Posix.Files (fileExist)
thermalConfig :: IO MConfig
thermalConfig :: IO MConfig
thermalConfig = String -> [String] -> IO MConfig
mkMConfig
String
"Thm: <temp>C"
[String
"temp"]
runThermal :: [String] -> Monitor String
runThermal :: [String] -> Monitor String
runThermal [String]
args = do
let zone :: String
zone = [String] -> String
forall a. HasCallStack => [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"
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 exists
then do number <- io $ fmap ((read :: String -> Int) . stringParser (1, 0)) (B.readFile file)
thermal <- showWithColors show number
parseTemplate [ thermal ]
else getConfigValue naString