From 9ef0818465d52f0f8027d1f776a957215e72e54d Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Sat, 5 Feb 2022 13:01:48 +0000
Subject: [PATCH] fetch urls typed into urlbar

---
 just/README.md | 1 -
 just/just.fnl  | 7 +++++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/just/README.md b/just/README.md
index c96a874..c2f4c64 100644
--- a/just/README.md
+++ b/just/README.md
@@ -11,5 +11,4 @@ Touchscreen-friendly wrapper around Webkit
 - support multiple tabs
 - find out if it's going to eat cpu like luakit does
 - some kind of bookmarks/favourites/pinned tabs
-- fetch url when typed in
 - ESC in url bar cancels typing
diff --git a/just/just.fnl b/just/just.fnl
index 4eead55..47756b6 100644
--- a/just/just.fnl
+++ b/just/just.fnl
@@ -17,7 +17,8 @@
       nav-bar (Gtk.Box {
                         :orientation Gtk.Orientation.HORIZONTAL
                         })
-      url (doto (Gtk.Entry) (: :set_text current-url))
+      url (doto (Gtk.Entry)
+            (: :set_text current-url))
       webview (WebKit2.WebView {
                                 :on_notify
                                 (fn [self pspec c]
@@ -31,7 +32,6 @@
                                 })
       back (doto
                (Gtk.Button {
-;;                            :label "<-"
                             :on_clicked (fn [s]
                                           (if (webview:can_go_back)
                                               (webview:go_back)))
@@ -39,6 +39,9 @@
              (: :set_image
                 (Gtk.Image.new_from_icon_name "go-previous"  Gtk.IconSize.LARGE_TOOLBAR)))]
 
+  (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)