blob: ac1d37a487a18a301c6e51b9ab4f186038cadd84 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
-----------------------------------------------------------------------------
-- |
-- Module : Plugins.Monitors.CoreTemp
-- Copyright : (c) 2019 Felix Springer
-- (c) Juraj Hercek
-- License : BSD-style (see LICENSE)
--
-- Maintainer : Felix Springer <felixspringer149@gmail.com>
-- Stability : unstable
-- Portability : unportable
--
-- A core temperature monitor for Xmobar
--
-----------------------------------------------------------------------------
module Xmobar.Plugins.Monitors.CoreTemp (startCoreTemp) where
import Xmobar.Plugins.Monitors.Common
-- | Generate Config with a default template and options.
coreTempConfig :: IO MConfig
coreTempConfig = mkMConfig coreTempTemplate coreTempOptions
where coreTempTemplate = "Temp: <core0>°C"
coreTempOptions = map (("core" ++) . show) [0 :: Int ..]
-- | FilePaths to read temperature from. Strings are seperated, where to
-- insert numbers.
coreTempFilePaths :: [[FilePath]]
coreTempFilePaths = [ ["/sys/bus/platform/devices/coretemp." , "/temp" , "_input"]
, ["/sys/bus/platform/devices/coretemp.", "/hwmon/hwmon", "/temp", "_input"]
]
coreTempNormalize :: Double -> Double
coreTempNormalize = (/ 1000)
-- | Retrieves Monitor String holding the core temperatures.
runCoreTemp :: [String] -> Monitor String
runCoreTemp _ = do
confDecDigits <- getConfigValue decDigits
confNaString <- getConfigValue naString
let coreLabel = Nothing
coreTempShow = showDigits (max 0 confDecDigits)
checkedDataRetrieval confNaString
coreTempFilePaths
coreLabel
coreTempNormalize
coreTempShow
startCoreTemp :: [String] -> Int -> (String -> IO ()) -> IO ()
startCoreTemp a r cb = runM a coreTempConfig runCoreTemp r cb
|