From 1ef771a0610ebd9d081bb83b8834077ca752d25a Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 21 Nov 2021 22:09:46 +0000
Subject: Improvements for K10Temp's docs

---
 doc/plugins.org                        | 11 +++++++----
 src/Xmobar/Plugins/Monitors/K10Temp.hs |  8 +++++++-
 2 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/doc/plugins.org b/doc/plugins.org
index 907d59f..cb2df22 100644
--- a/doc/plugins.org
+++ b/doc/plugins.org
@@ -462,7 +462,8 @@ something like:
 
  - Aliases to =k10temp=
 
- - Slot: The PCI slot address of the k10temp device
+ - Slot: The PCI slot address of the k10temp device as a string.  You
+   can find it as a subdirectory in =/sys/bus/pci/drivers/k10temp/=.
 
  - Args: default monitor arguments
 
@@ -484,9 +485,11 @@ something like:
  - Example:
 
    #+begin_src haskell
-     Run CoreTemp ["-t", "Temp: <Tdie>C|<Tccd1>C",
-                   "-L", "40", "-H", "60",
-                   "-l", "lightblue", "-n", "gray90", "-h", "red"] 50
+     Run K10Temp "0000:00:18.3"
+                 ["-t", "Temp: <Tdie>C|<Tccd1>C",
+                  "-L", "40", "-H", "60",
+                  "-l", "lightblue", "-n", "gray90", "-h", "red"]
+                 50
    #+end_src
 
 
diff --git a/src/Xmobar/Plugins/Monitors/K10Temp.hs b/src/Xmobar/Plugins/Monitors/K10Temp.hs
index e76d01a..30b3d90 100644
--- a/src/Xmobar/Plugins/Monitors/K10Temp.hs
+++ b/src/Xmobar/Plugins/Monitors/K10Temp.hs
@@ -27,6 +27,12 @@ k10TempConfig = mkMConfig
        ,"Tccd4", "Tccd5", "Tccd6", "Tccd7", "Tccd8"
        ] -- available replacements
 
+-- |
+-- Base directory for k10temp system bus
+--
+k10Dir :: String
+k10Dir = "/sys/bus/pci/drivers/k10temp/"
+
 -- |
 -- Function retrieves monitor string holding the temperature
 -- (or temperatures)
@@ -35,7 +41,7 @@ runK10Temp args = do
    dn <- getConfigValue decDigits
    failureMessage <- getConfigValue naString
    let slot = head args
-       path = ["/sys/bus/pci/drivers/k10temp/" ++ slot ++ "/hwmon/hwmon", "/temp", "_input"]
+       path = [k10Dir ++ slot ++ "/hwmon/hwmon", "/temp", "_input"]
        divisor = 1e3 :: Double
        show' = showDigits (max 0 dn)
    checkedDataRetrieval failureMessage [path] Nothing (/divisor) show'
-- 
cgit v1.2.3