From 028d5920a29e4dec34edb7fd16db163e65f70b32 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Sun, 27 Mar 2022 16:20:48 +0100
Subject: [PATCH] add cpu state metric (/proc/state)

---
 blinkenlicht/metric.fnl | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

diff --git a/blinkenlicht/metric.fnl b/blinkenlicht/metric.fnl
index 4612c98..752b93a 100644
--- a/blinkenlicht/metric.fnl
+++ b/blinkenlicht/metric.fnl
@@ -15,4 +15,28 @@
             (tset fields (: (name:gsub "_" "-") :lower) value)))
         fields))))
 
-{ : loadavg : battery }
+(fn parse-cpu-stat-line [line]
+  (let [labels [:user :nice :system :idle :iowait
+                :irq :softirq :steal :guest :guest_nice]
+        vals (icollect [field (line:gmatch "([%d.]+)")]
+                 (tonumber field))]
+    (collect [i label (ipairs labels)]
+      label (. vals i))))
+
+(var  proc-stat-handle nil)
+
+(fn cpustat [path]
+  (if proc-stat-handle
+      (proc-stat-handle:seek :set 0)
+      (set proc-stat-handle (io.open "/proc/stat" :r)))
+  (let [f proc-stat-handle]
+    (accumulate [ret nil
+                 line #(f:read "*l") ]
+                (if (= (string.sub line  1 (# "cpu ")) "cpu ")
+                    (parse-cpu-stat-line line)
+                    ret))))
+
+{: loadavg
+ : battery
+ : cpustat
+ }