eufon

commit 9ef0818465d52f0f8027d1f776a957215e72e54d
parent 71289309b84db324747586bc8297138db6fbb640
Author: Daniel Barlow <dan@telent.net>
Date:   Sat,  5 Feb 2022 13:01:48 +0000

fetch urls typed into urlbar

Diffstat:
M
just/README.md
 | 
1
-
M
just/just.fnl
 | 
7
+++++--

2 files changed, 5 insertions(+), 3 deletions(-)
diff --git 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
@@ -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)