dan/eufon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

update url bar when links clicked

Browse Source
This commit is contained in:
Daniel Barlow 2022-02-05 00:13:47 +00:00
parent a137495482
commit 4c94b2164b
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
just/just.fnl
View File

@ -4,7 +4,7 @@
(local Gtk lgi.Gtk) (local Gtk lgi.Gtk)
(local WebKit2 lgi.WebKit2) (local WebKit2 lgi.WebKit2)
(let [current-url "about:blank" (let [current-url "https://terse.telent.net"
window (Gtk.Window { window (Gtk.Window {
:title "Just browsing" :title "Just browsing"
:default_width 800 :default_width 800
@ -17,11 +17,18 @@
nav-bar (Gtk.Box { nav-bar (Gtk.Box {
:orientation Gtk.Orientation.HORIZONTAL :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 { back (Gtk.Button {
:label "<-" :label "<-"
}) })]
url (doto (Gtk.Entry) (: :set_text current-url))]
(nav-bar:pack_start back false false 5) (nav-bar:pack_start back false false 5)
(nav-bar:pack_start url true true 5) (nav-bar:pack_start url true true 5)
@ -29,7 +36,6 @@
(container:pack_start nav-bar false false 5) (container:pack_start nav-bar false false 5)
(container:pack_start webview true true 5) (container:pack_start webview true true 5)
(webview:load_uri current-url) (webview:load_uri current-url)
(window:add container) (window:add container)