dan/eufon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

smooth the disk light a bit

Browse Source
This commit is contained in:
Daniel Barlow 2022-04-01 16:19:16 +01:00
parent 3c8051a84e
commit e20e2d335f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
blinkenlicht/bl.fnl
View File

@ -35,7 +35,8 @@
:wait-for { :interval (* 1 500) } :wait-for { :interval (* 1 500) }
:refresh :refresh
#(let [current (. (metric.cpustat) :iowait) #(let [current (. (metric.cpustat) :iowait)
v (if (< previous current) "" " ")] delta (- current previous)
v (if (> delta 4) "" " ")]
(set previous current) (set previous current)
{:text v}) {:text v})
})) }))