From dd109f4a4b4e4fae68864914fa59d9140b214fe1 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Sat, 5 Feb 2022 21:50:11 +0000
Subject: [PATCH] add `r` to accomodate widget reference loops
any widget declared before webview can refer to it as
r.webview
---
just/just.fnl | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/just/just.fnl b/just/just.fnl
index 922eac7..e4e8220 100644
--- a/just/just.fnl
+++ b/just/just.fnl
@@ -42,6 +42,7 @@
(let [current-url "https://terse.telent.net/admin/stream"
+ r {}
window (Gtk.Window {
:title "Just browsing"
:default_width 800
@@ -54,7 +55,11 @@
nav-bar (Gtk.Box {
:orientation Gtk.Orientation.HORIZONTAL
})
- url (doto (Gtk.Entry)
+ url (doto (Gtk.Entry {
+ :on_activate
+ (fn [self]
+ (r.webview:load_uri self.text))
+ })
(: :set_text current-url))
webview (WebKit2.WebView {
:on_notify
@@ -74,11 +79,9 @@
(webview:go_back)))
})
(: :set_image (named-image "go-previous")))]
+ (tset r :webview webview)
(load-adblocks webview.user_content_manager content-filter-store)
- (tset url :on_activate (fn [self]
- (webview:load_uri self.text)))
-
(nav-bar:pack_start back false false 2)
(nav-bar:pack_start url true true 2)