64 lines
2.0 KiB
Fennel
64 lines
2.0 KiB
Fennel
(local {: bar : indicator : run} (require :blinkenlicht))
|
|
|
|
(fn loadavg []
|
|
(with-open [f (io.open "/proc/loadavg" :r)]
|
|
(tonumber (: (f:read "*a") :match "[0-9.]+" ))))
|
|
|
|
(fn disk-free-percent []
|
|
83)
|
|
|
|
(fn battery-status [path]
|
|
(let [name (.. (or path "/sys/class/power_supply/BAT0") "/uevent")]
|
|
(with-open [f (io.open name :r)]
|
|
(let [fields {}]
|
|
(each [line #(f:read "*l")]
|
|
(let [(name value) (line:match "([^=]+)=(.+)")]
|
|
(tset fields (: (name:gsub "_" "-") :lower) value)))
|
|
fields))))
|
|
|
|
(fn battery-icon-codepoint [status percent]
|
|
(if ; (= status "Charging") 0xf376 ; glyph not present in font-awesome free
|
|
(> percent 90) 0xf240 ;full
|
|
(> percent 60) 0xf241 ;3/4
|
|
(> percent 40) 0xf242 ;1/2
|
|
(> percent 15) 0xf243 ;1/4
|
|
(>= percent 0) 0xf244 ;empty
|
|
; 0xf377 ; glyph not present in font-awesome free
|
|
))
|
|
|
|
|
|
(fn spawn []
|
|
true)
|
|
|
|
(bar
|
|
{
|
|
:anchor [:top :right]
|
|
:orientation :horizontal
|
|
:indicators
|
|
[
|
|
(indicator {
|
|
:interval 200
|
|
:icon #(if (> (loadavg) 2) "face-sad" "face-smile")
|
|
})
|
|
;; (let [f (io.open "/tmp/statuspipe" "r")]
|
|
;; (indicator {
|
|
;; :poll [f]
|
|
;; :text #((f:read):sub 1 10)
|
|
;; }))
|
|
(indicator {
|
|
:interval (* 10 1000)
|
|
:text #(let [{:power-supply-energy-full full
|
|
:power-supply-energy-now now
|
|
:power-supply-status status} (battery-status)
|
|
percent (math.floor (* 100 (/ (tonumber now) (tonumber full))))
|
|
icon-code (battery-icon-codepoint status percent)]
|
|
(string.format "%s %d%%" (utf8.char icon-code) percent))
|
|
})
|
|
(indicator {
|
|
:interval 1000
|
|
:text #(os.date "%X")
|
|
})
|
|
]})
|
|
|
|
(run)
|