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

extract named-image function

Browse Source
This commit is contained in:
Daniel Barlow 2022-02-05 21:47:12 +00:00
parent 876e70e642
commit a5ea2027d5
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
just/just.fnl
View File

@ -9,6 +9,11 @@
(local content-filter-store (local content-filter-store
(WebKit2.UserContentFilterStore {:path cache-dir})) (WebKit2.UserContentFilterStore {:path cache-dir}))
(fn named-image [name size]
(Gtk.Image.new_from_icon_name
name
(or size Gtk.IconSize.LARGE_TOOLBAR)))
(fn load-easylist-json [store cb] (fn load-easylist-json [store cb]
(print "loading easylist from json") (print "loading easylist from json")
(with-open [f (io.open "easylist_min_content_blocker.json" "r")] (with-open [f (io.open "easylist_min_content_blocker.json" "r")]
@ -68,9 +73,7 @@
(if (webview:can_go_back) (if (webview:can_go_back)
(webview:go_back))) (webview:go_back)))
}) })
(: :set_image (: :set_image (named-image "go-previous")))]
(Gtk.Image.new_from_icon_name "go-previous" Gtk.IconSize.LARGE_TOOLBAR)))]
(load-adblocks webview.user_content_manager content-filter-store) (load-adblocks webview.user_content_manager content-filter-store)
(tset url :on_activate (fn [self] (tset url :on_activate (fn [self]