eufon

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

loadavg.fnl (278B)

      1 (fn loadavg []
      2   (with-open [f (io.open "/proc/loadavg" :r)]
      3     (let [line (f:read "*a")
      4           (one five fifteen) (line:match "([%d.]+) +([%d.]+) +([%d.]+)")]
      5       (values (tonumber one) (tonumber five) (tonumber fifteen)))))
      6 
      7 {:new #{
      8         :read #(loadavg)
      9         })