commit b0fe8e1dff2b3fa542e9241ebaa990e1650aa935
parent 10154115bfba8c03416dcbe25386c1f01c84923c
Author: Daniel Barlow <dan@telent.net>
Date: Wed, 23 Mar 2022 23:35:27 +0000
update only when interval requires it
Diffstat:
2 files changed, 16 insertions(+), 11 deletions(-)
diff --git a/blinkenlicht/README.md b/blinkenlicht/README.md
@@ -17,7 +17,6 @@ you are happy to exert that control in a Lua-based Lisp language.
* [] update image/label widget instead of destroying
* [] allow height customisation
-
```fennel
(bar
{
diff --git a/blinkenlicht/blinkenlicht.fnl b/blinkenlicht/blinkenlicht.fnl
@@ -39,7 +39,6 @@
(fn update-button [button icon text]
(match (button:get_child) it (button:remove it))
(let [i (resolve icon)]
- (print :update i (resolve text))
(if i
(button:add (find-icon i))
(button:add (Gtk.Label {:label (resolve text)})))
@@ -51,15 +50,18 @@
: poll
: text
: on-click}]
- (let [button
- (Gtk.Button { :relief Gtk.ReliefStyle.NONE})
- update #(update-button button icon text)]
- (update)
+ (var last-update -1)
+ (let [button (Gtk.Button { :relief Gtk.ReliefStyle.NONE})
+ update (fn [now]
+ (when (and interval (> now (+ last-update interval)))
+ (update-button button icon text)
+ (set last-update now)))]
+ (update 0)
{
: interval
: poll
: button
- : update
+ :update #(update $2)
}))
(fn make-layer-shell [window layer exclusive? anchors]
@@ -93,15 +95,19 @@
(box:pack_start i.button false false 0))
(window:add box)))
+;; we want to run each indicator's update function only when
+;; more than `interval` ms has elapsed since it last ran
+
+
(fn run []
(GLib.timeout_add
0
1000
(fn []
- (print :update)
- (each [_ bar (ipairs bars)]
- (each [_ indicator (ipairs bar.indicators)]
- (indicator:update)))
+ (let [now (/ (GLib.get_monotonic_time) 1000)]
+ (each [_ bar (ipairs bars)]
+ (each [_ indicator (ipairs bar.indicators)]
+ (indicator:update now))))
true))
(each [_ b (ipairs bars)]
(make-layer-shell b.window :top true
