eufon

commit 5871afe19735a3e8e1a8c6dc2aeb0c92293aae4c
parent ccdf63eea1bb855ca892a2850b5d1409cbc1d35b
Author: Daniel Barlow <dan@telent.net>
Date:   Mon,  7 Mar 2022 18:56:36 +0000

hide stop/refresh when loading is/isn't in progress

Diffstat:
M
just/just.fnl
 | 
5
++++-

1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/just/just.fnl b/just/just.fnl
@@ -78,7 +78,10 @@ progress, trough {
       (widget:pack_end show-overview false false 2)
 
       (webview:listen :uri #(url:set_text $1))
-
+      (webview:listen :estimated-load-progress
+                      (fn [fraction]
+                        (tset stop :visible (< fraction 1))
+                        (tset refresh :visible (>= fraction 1))))
       {
        :widget widget
        }))