2019-01-15 17:07:30 +11:00
|
|
|
;;; widget/bat.fnl --- Battery widget
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
(local std (require :lib.std))
|
|
|
|
|
(local lain (require :lain))
|
|
|
|
|
(local markup lain.util.markup)
|
|
|
|
|
|
|
|
|
|
(fn bat-hm []
|
|
|
|
|
(let [[h m] (std.s-split _G.bat_now.time ":")
|
|
|
|
|
baticon "\u{f241}"]
|
|
|
|
|
(: _G.widget :set_markup
|
|
|
|
|
(.. baticon "\n" h "\n" m))))
|
|
|
|
|
|
|
|
|
|
(fn bat-icon []
|
|
|
|
|
;; FA
|
|
|
|
|
;; (let [full "\u{f240}"
|
|
|
|
|
;; x75 "\u{f241}"
|
|
|
|
|
;; x50 "\u{f242}"
|
|
|
|
|
;; x25 "\u{f243}"
|
|
|
|
|
;; empty "\u{f244}"
|
|
|
|
|
(let [full "\u{e02b}"
|
|
|
|
|
x75 "\u{e02c}"
|
|
|
|
|
x50 "\u{e02d}"
|
|
|
|
|
x25 "\u{e02e}"
|
|
|
|
|
empty "\u{e136}"
|
|
|
|
|
charging "\u{e02a}"
|
|
|
|
|
status _G.bat_now.status
|
|
|
|
|
level _G.bat_now.perc
|
|
|
|
|
icon (if (= status "Full") full
|
|
|
|
|
(= status "Charging") charging
|
|
|
|
|
(> level 75) x75
|
|
|
|
|
(> level 50) x50
|
|
|
|
|
(> level 25) x25
|
|
|
|
|
empty)]
|
2019-01-15 21:34:21 +11:00
|
|
|
(: _G.widget :set_markup (markup.font "Typicons 24" icon))))
|
2019-01-15 17:07:30 +11:00
|
|
|
|
|
|
|
|
(fn bat-markup []
|
|
|
|
|
(bat-icon))
|
|
|
|
|
|
|
|
|
|
;; TODO Plug/unplug notifications
|
|
|
|
|
(local battery
|
|
|
|
|
(lain.widget.bat
|
|
|
|
|
{:battery "BAT1"
|
|
|
|
|
:ac "ACAD"
|
|
|
|
|
:notify "on"
|
|
|
|
|
:n_perc [10 20]
|
|
|
|
|
:settings bat-markup}))
|
|
|
|
|
|
|
|
|
|
battery
|
|
|
|
|
;;; widget/bat.fnl ends here
|
