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

metric: don't hardcode battery name

Browse Source 
bl: red background if battery is low
This commit is contained in:
Daniel Barlow 2022-04-05 21:34:14 +00:00
parent 8c34f9429e
commit e4f7e911b8
3 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
blinkenlicht/bl.fnl
View File

@ -86,12 +86,13 @@
:wait-for { :interval (* 1000 10) } :wait-for { :interval (* 1000 10) }
:refresh :refresh
#(let [{:power-supply-capacity percent #(let [{:power-supply-capacity percent
:power-supply-status status} (metric.battery) :power-supply-status status}
(metric.battery "axp20x-battery")
icon-code (battery-icon-codepoint icon-code (battery-icon-codepoint
status (tonumber percent))] status (tonumber percent))]
{:text {:text
(string.format "%s %d%%" (utf8.char icon-code) percent) (string.format "%s %d%%" (utf8.char icon-code) percent)
:classes ["yellow"] :classes ["battery" (if (< (tonumber percent) 20) "low" "ok")]
}) })
}) })
(indicator { (indicator {

4
blinkenlicht/licht.css
View File

@ -7,6 +7,10 @@
margin: 5px 0px 5px 12px; margin: 5px 0px 5px 12px;
} }
.battery.low {
background-color: #e00;
}
.bar { .bar {
background-color: #200; background-color: #200;
} }

4
blinkenlicht/metric.fnl
View File

@ -6,8 +6,8 @@
(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)))))
(fn battery [path] (fn battery [name]
(let [name (.. (or path "/sys/class/power_supply/BAT0") "/uevent")] (let [name (.. "/sys/class/power_supply/" name "/uevent")]
(with-open [f (io.open name :r)] (with-open [f (io.open name :r)]
(let [fields {}] (let [fields {}]
(each [line #(f:read "*l")] (each [line #(f:read "*l")]