eufon

commit e20e2d335f41f281b21f871cd0e2efad2bc5c6dc
parent 3c8051a84e229ef2e65fff8aeaf472ac9708fc1a
Author: Daniel Barlow <dan@telent.net>
Date:   Fri,  1 Apr 2022 16:19:16 +0100

smooth the disk light a bit

Diffstat:
M
blinkenlicht/bl.fnl
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/blinkenlicht/bl.fnl b/blinkenlicht/bl.fnl
@@ -35,7 +35,8 @@
                  :wait-for { :interval (* 1 500) }
                  :refresh
                  #(let [current (. (metric.cpustat) :iowait)
-                        v (if (< previous current) "" " ")]
+                        delta (- current previous)
+                        v (if (> delta 4) "" "  ")]
                     (set previous current)
                     {:text v})
                  }))