eufon

commit 4c94b2164bc437705a49b4c1196ddb1b163dc966
parent a137495482971020a0be4be885ee50d2063190cb
Author: Daniel Barlow <dan@telent.net>
Date:   Sat,  5 Feb 2022 00:13:47 +0000

update url bar when links clicked

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

1 file changed, 11 insertions(+), 5 deletions(-)
diff --git a/just/just.fnl b/just/just.fnl
@@ -4,7 +4,7 @@
 (local Gtk lgi.Gtk)
 (local WebKit2 lgi.WebKit2)
 
-(let [current-url "about:blank"
+(let [current-url "https://terse.telent.net"
       window (Gtk.Window {
                           :title "Just browsing"
                           :default_width 800
@@ -17,11 +17,18 @@
       nav-bar (Gtk.Box {
                         :orientation Gtk.Orientation.HORIZONTAL
                         })
-      webview (WebKit2.WebView)
+      url (doto (Gtk.Entry) (: :set_text current-url))
+      webview (WebKit2.WebView {
+                                :on_notify
+                                (fn [self pspec c]
+                                  (if (= pspec.name "uri")
+                                      (url:set_text self.uri)
+                                      ))
+                                })
       back (Gtk.Button {
                         :label "<-"
-                        })
-      url (doto (Gtk.Entry) (: :set_text current-url))]
+                        })]
+
 
   (nav-bar:pack_start back false false 5)
   (nav-bar:pack_start url  true true 5)
@@ -29,7 +36,6 @@
   (container:pack_start nav-bar false false 5)
   (container:pack_start webview true true 5)
 
-
   (webview:load_uri current-url)
 
   (window:add container)