From f9e69672a99919dbc60faa3687b0b9c0cc6137fc Mon Sep 17 00:00:00 2001 From: Daniel Barlow Date: Wed, 16 Feb 2022 22:15:57 +0000 Subject: [PATCH] start new tabs with non-nil url this does suggest that our logic for (whether the url entry is editable) is rather a kludge --- just/just.fnl | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/just/just.fnl b/just/just.fnl index baaddf4..d1fed0e 100644 --- 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