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

make viewplex track the events it should relay for

Browse Source
This commit is contained in:
Daniel Barlow 2022-03-05 18:23:58 +00:00
parent 140cac0dfe
commit a8345a1734
1 changed files with 35 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
just/just.fnl
View File

@ -60,30 +60,41 @@
(local
Viewplex
{
:new
#(let [listeners (Listeners.new)
widget (Gtk.Notebook {
:show_tabs false
;;# :on_switch_page
})]
(var foreground-view nil)
{
:listen #(listeners:add $2 $3)
:widget widget
:add-view (fn [self webview]
(set foreground-view webview)
(webview.widget:show)
(webview:listen :uri #(listeners:notify :uri $1))
(set widget.page
(widget:append_page webview.widget)))
:visit #(and foreground-view (foreground-view:visit $2))
:stop-loading #(and foreground-view
(foreground-view:stop-loading))
:refresh #(and foreground-view (foreground-view:refresh))
:go-back #(and foreground-view (foreground-view:go-back))
})
})
(let [relay-events []]
{
:new
#(let [listeners (Listeners.new)
widget (Gtk.Notebook {
:show_tabs false
;;# :on_switch_page
})
views []]
(var foreground-view nil)
{
:listen (fn [_ name fun]
(if (not (. relay-events name))
(each [_ v (ipairs views)]
(v:listen name #(listeners:notify name $1))))
(table.insert relay-events name)
(listeners:add name fun))
:widget widget
:add-view (fn [self webview]
(set foreground-view webview)
(webview.widget:show)
(table.insert views webview)
(each [_ event-name (ipairs relay-events)]
(webview:listen event-name
#(listeners:notify event-name $1)))
(set widget.page
(widget:append_page webview.widget)))
:visit #(and foreground-view (foreground-view:visit $2))
:stop-loading #(and foreground-view
(foreground-view:stop-loading))
:refresh #(and foreground-view (foreground-view:refresh))
:go-back #(and foreground-view (foreground-view:go-back))
}
)}))