eufon

commit dd109f4a4b4e4fae68864914fa59d9140b214fe1
parent a5ea2027d551f25e3e852f8ac2772108f76dd4e0
Author: Daniel Barlow <dan@telent.net>
Date:   Sat,  5 Feb 2022 21:50:11 +0000

add `r` to accomodate widget reference loops

any widget declared before webview can refer to it as
r.webview

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

1 file changed, 7 insertions(+), 4 deletions(-)
diff --git 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)