From e20e2d335f41f281b21f871cd0e2efad2bc5c6dc Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Fri, 1 Apr 2022 16:19:16 +0100
Subject: [PATCH] smooth the disk light a bit

---
 blinkenlicht/bl.fnl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/blinkenlicht/bl.fnl b/blinkenlicht/bl.fnl
index d8c3330..ea93475 100644
--- 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})
                  }))