eufon

commit a5ea2027d551f25e3e852f8ac2772108f76dd4e0
parent 876e70e6426b757f4b30c331b2ffebd727314833
Author: Daniel Barlow <dan@telent.net>
Date:   Sat,  5 Feb 2022 21:47:12 +0000

extract named-image function

Diffstat:
M
just/just.fnl
 | 
9
++++++---

1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/just/just.fnl b/just/just.fnl
@@ -9,6 +9,11 @@
 (local content-filter-store
        (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]
   (print "loading easylist from json")
   (with-open [f (io.open "easylist_min_content_blocker.json" "r")]
@@ -68,9 +73,7 @@
                                           (if (webview:can_go_back)
                                               (webview:go_back)))
                             })
-             (: :set_image
-                (Gtk.Image.new_from_icon_name "go-previous"  Gtk.IconSize.LARGE_TOOLBAR)))]
-
+             (: :set_image (named-image "go-previous")))]
   (load-adblocks webview.user_content_manager content-filter-store)
 
   (tset url :on_activate (fn [self]