1 files changed, 43 insertions, 0 deletions
diff --git a/src/Xmobar/Plugins/Monitors/K10Temp.hs b/src/Xmobar/Plugins/Monitors/K10Temp.hs
new file mode 100644
index 0000000..ea2856d
--- /dev/null
+++ b/src/Xmobar/Plugins/Monitors/K10Temp.hs
@@ -0,0 +1,43 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  Plugins.Monitors.CoreTemp
+-- Copyright   :  (c) Juraj Hercek
+-- License     :  BSD-style (see LICENSE)
+--
+-- Maintainer  :  Juraj Hercek <juhe_haskell@hck.sk>
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-- A temperature monitor that works with AMD CPUs for Xmobar
+--
+-----------------------------------------------------------------------------
+
+module Xmobar.Plugins.Monitors.K10Temp where
+
+import Xmobar.Plugins.Monitors.Common
+
+import Data.Char (isDigit)
+
+-- |
+-- K10 temperature default configuration. Default template contains only the
+-- die temperature, user should specify custom template in order to get more
+-- ccd or IO die temperatures.
+k10TempConfig :: IO MConfig
+k10TempConfig = mkMConfig
+       "Temp: <Tdie>C" -- template
+       ["Tctl", "Tdie", "Tccd1", "Tccd2", "Tccd3"
+       ,"Tccd4", "Tccd5", "Tccd6", "Tccd7", "Tccd8"
+       ] -- available replacements
+
+-- |
+-- Function retrieves monitor string holding the temperature
+-- (or temperatures)
+runK10Temp :: [String] -> Monitor String
+runK10Temp args = do
+   dn <- getConfigValue decDigits
+   failureMessage <- getConfigValue naString
+   let slot = head args
+       path = ["/sys/bus/pci/drivers/k10temp/" ++ slot ++ "/hwmon/hwmon", "/temp", "_input"]
+       divisor = 1e3 :: Double
+       show' = showDigits (max 0 dn)
+   checkedDataRetrieval failureMessage [path] Nothing (/divisor) show'