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

delete debug print

Browse Source
This commit is contained in:
Daniel Barlow 2022-03-26 18:10:52 +00:00
parent 4e53d1673c
commit 7e81c7c5ad
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
blinkenlicht/metric.fnl
View File

@ -1,14 +1,11 @@
(local {: view} (require :fennel)) (local {: view} (require :fennel))
(fn loadavg [] (fn loadavg []
(with-open [f (io.open "/proc/loadavg" :r)] (with-open [f (io.open "/proc/loadavg" :r)]
(let [line (f:read "*a") (let [line (f:read "*a")
(one five fifteen) (line:match "([%d.]+) +([%d.]+) +([%d.]+)")] (one five fifteen) (line:match "([%d.]+) +([%d.]+) +([%d.]+)")]
(values (tonumber one) (tonumber five) (tonumber fifteen))))) (values (tonumber one) (tonumber five) (tonumber fifteen)))))
(print (loadavg))
(fn battery [path] (fn battery [path]
(let [name (.. (or path "/sys/class/power_supply/BAT0") "/uevent")] (let [name (.. (or path "/sys/class/power_supply/BAT0") "/uevent")]
(with-open [f (io.open name :r)] (with-open [f (io.open name :r)]