delete debug print
This commit is contained in:
parent
4e53d1673c
commit
7e81c7c5ad
@ -1,14 +1,11 @@
|
||||
(local {: view} (require :fennel))
|
||||
|
||||
|
||||
(fn loadavg []
|
||||
(with-open [f (io.open "/proc/loadavg" :r)]
|
||||
(let [line (f:read "*a")
|
||||
(one five fifteen) (line:match "([%d.]+) +([%d.]+) +([%d.]+)")]
|
||||
(values (tonumber one) (tonumber five) (tonumber fifteen)))))
|
||||
|
||||
(print (loadavg))
|
||||
|
||||
(fn battery [path]
|
||||
(let [name (.. (or path "/sys/class/power_supply/BAT0") "/uevent")]
|
||||
(with-open [f (io.open name :r)]
|
||||
|
Loading…
Reference in New Issue
Block a user