From ccdf63eea1bb855ca892a2850b5d1409cbc1d35b Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Mon, 7 Mar 2022 09:20:14 +0000
Subject: [PATCH] add loading progress bar, hook to signals

---
 just/just.fnl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/just/just.fnl b/just/just.fnl
index 5cba232..4fdfada 100644
--- a/just/just.fnl
+++ b/just/just.fnl
@@ -21,6 +21,20 @@
        (.. cache-dir "/cookies.db")
        WebKit2.CookiePersistentStorage.SQLITE))
 
+(let [css "
+progress, trough {
+  max-height: 6px;
+  color: #ff44bb;
+}
+"
+      style_provider (Gtk.CssProvider)]
+  (style_provider:load_from_data css)
+  (Gtk.StyleContext.add_provider_for_screen
+   (Gdk.Screen.get_default)
+   style_provider
+   Gtk.STYLE_PROVIDER_PRIORITY_APPLICATION
+   ))
+
 (fn named-image [name size]
   (Gtk.Image.new_from_icon_name
    name
@@ -82,11 +96,18 @@
                           })
       viewplex (Viewplex.new)
       navbar (Navbar.new viewplex)
+      progress-bar (Gtk.ProgressBar {
+                                     :orientation Gtk.Orientation.HORIZONTAL
+                                     :fraction 1.0
+                                         :margin 0
+                                     })
       ]
 
   (viewplex:listen :title #(window:set_title (..  $1 " - Just browsing")))
+  (viewplex:listen :estimated-load-progress #(tset progress-bar :fraction $1))
 
   (container:pack_start navbar.widget false false 0)
+  (container:pack_start progress-bar false false 0)
   (container:pack_start viewplex.widget true true 0)
 
   (each [_ url (ipairs arg)]