From 88230bb0301aebc37c971d235f5a9735d9563f8d Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 30 Mar 2022 19:22:13 +0100
Subject: Load: honour the -d (decimal digits) monitor argument

---
 doc/plugins.org                     | 12 +++++++++++-
 src/Xmobar/Plugins/Monitors/Load.hs |  3 ++-
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/doc/plugins.org b/doc/plugins.org
index cc4169f..8ff75e4 100644
--- a/doc/plugins.org
+++ b/doc/plugins.org
@@ -676,8 +676,18 @@
       - Default template: =Load: <load1>=.
 
       - Displays load averages for the last 1, 5 or 15 minutes as
-        reported by, e.g., ~uptime(1)~.
+        reported by, e.g., ~uptime(1)~.  The displayed values are float,
+        so that the ~"-d"~ option will control how many decimal digits
+        are shown (zero by default).
 
+      - Example: to have 2 decimal digits displayed, with a low
+        threshold at 1.0 and a high one at 3, you'd write something
+        like:
+
+        #+begin_src haskell
+            Run Load ["-t" , "<load1> <load5> <load15>"
+                     , "-L", "1", "-H", "3", "-d", "2"]) 300
+        #+end_src
 
 ***** =TopProc Args RefreshRate=
 
diff --git a/src/Xmobar/Plugins/Monitors/Load.hs b/src/Xmobar/Plugins/Monitors/Load.hs
index e41e897..4703e8a 100644
--- a/src/Xmobar/Plugins/Monitors/Load.hs
+++ b/src/Xmobar/Plugins/Monitors/Load.hs
@@ -41,7 +41,8 @@ runLoad _ = do
   exists <- io $ fileExist file
   if exists then
       (do l <- io $ B.readFile file >>= return . parseLoadAvgs
-          let s = showWithColors . const . showDigits 2
+          d <- getConfigValue decDigits
+          let s = showWithColors . const . showDigits d
           parseTemplate =<< zipWithM s l l)
     else
       return "Load: N/A"
-- 
cgit v1.2.3