diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-07-20 13:52:58 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-07-20 13:52:58 +0200 |
| commit | 99069c2fe2c1af51224ca204c15705d5f7f076fa (patch) | |
| tree | 8141e7ba56024aa84d75cff65594ea0acca08fab /src | |
| parent | 202ff98aac0c1c8029261e69c509f0c1e6390c59 (diff) | |
| download | xmobar-99069c2fe2c1af51224ca204c15705d5f7f076fa.tar.gz xmobar-99069c2fe2c1af51224ca204c15705d5f7f076fa.tar.bz2 | |
Honouring -d in CoreTemp
Fixes issue #115
Diffstat (limited to 'src')
| -rw-r--r-- | src/Plugins/Monitors/CoreTemp.hs | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/Plugins/Monitors/CoreTemp.hs b/src/Plugins/Monitors/CoreTemp.hs index 2880751..c6f98da 100644 --- a/src/Plugins/Monitors/CoreTemp.hs +++ b/src/Plugins/Monitors/CoreTemp.hs @@ -34,10 +34,11 @@ coreTempConfig = mkMConfig -- Function retrieves monitor string holding the core temperature -- (or temperatures) runCoreTemp :: [String] -> Monitor String -runCoreTemp _ = let path = ["/sys/bus/platform/devices/coretemp.", - "/temp", - "_input"] - lbl = Just ("_label", read . (dropWhile (not . isDigit))) - divisor = 1e3 :: Double - failureMessage = "CoreTemp: N/A" - in checkedDataRetrieval failureMessage path lbl (/divisor) show +runCoreTemp _ = do + dn <- getConfigValue decDigits + let path = ["/sys/bus/platform/devices/coretemp.", "/temp", "_input"] + lbl = Just ("_label", read . (dropWhile (not . isDigit))) + divisor = 1e3 :: Double + failureMessage = "CoreTemp: N/A" + show' = showDigits (max 0 dn) + checkedDataRetrieval failureMessage path lbl (/divisor) show' |