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

viewplex: index views by Notebook page number

Browse Source
This commit is contained in:
Daniel Barlow 2022-03-05 23:04:24 +00:00
parent f225793fb0
commit 24052ac10d
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
just/just.fnl
View File

@ -21,9 +21,6 @@
(.. cache-dir "/cookies.db")
WebKit2.CookiePersistentStorage.SQLITE))
(fn named-image [name size]
(Gtk.Image.new_from_icon_name
name

11
just/viewplex.fnl
View File

@ -10,25 +10,26 @@
:show_tabs false
;;# :on_switch_page
})
views []]
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))))
(each [_ v (pairs views)]
(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)))
(let [page (widget:append_page webview.widget)]
(tset views page webview)
(set widget.page page)
page))
:visit #(and foreground-view (foreground-view:visit $2))
:stop-loading #(and foreground-view
(foreground-view:stop-loading))