eufon

commit f9e69672a99919dbc60faa3687b0b9c0cc6137fc
parent 34e5b3617230d979818eef5d8874f5f2e4c277de
Author: Daniel Barlow <dan@telent.net>
Date:   Wed, 16 Feb 2022 22:15:57 +0000

start new tabs with non-nil url

this does suggest that our logic for (whether the url entry is
editable) is rather a kludge

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

1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/just/just.fnl b/just/just.fnl
@@ -195,13 +195,16 @@ progress, trough {
                                 (when (= num 0)
                                   (update-tab-overview bus tabs page)))
                               })
-        new-tab (fn [self child]
-                  (let [v (or child (new-webview bus))
-                        i (widget:append_page v)]
+        add-page (fn [v]
+                   (let [i (widget:append_page v)]
                     (tset tabs i v)
                     (v:show)
                     (set widget.page i)
                     v))
+        new-tab (fn [self]
+                  (let [v (add-page (new-webview bus))]
+                    (v:load_uri "about:blank")
+                    v))
         tab-overview (Gtk.ScrolledWindow)
         current #(. tabs widget.page)]
     (bus:subscribe :fetch  #(match (current) c (c:load_uri $2)))
@@ -227,7 +230,7 @@ progress, trough {
                      (tset tabs i nil)
                      (update-tab-overview bus tabs tab-overview)
                      (widget:set_current_page 0)))
-    (new-tab nil tab-overview)
+    (add-page tab-overview)
 
     {
      :new-tab new-tab