restore adblock (rather messy)

just/just.fnl

@@ -135,7 +135,7 @@ progress, trough {
       container (Gtk.Box {
                           :orientation Gtk.Orientation.VERTICAL
                           })
-      viewplex (Viewplex.new)
+      viewplex (Viewplex.new {:content-filter-store content-filter-store})
       navbar (Navbar.new viewplex)
       progress-bar (Gtk.ProgressBar {
                                      :orientation Gtk.Orientation.HORIZONTAL
@@ -154,11 +154,12 @@ progress, trough {
 
   (if (. arg 1)
       (each [_ url (ipairs arg)]
-        (let [v (Webview.new)]
+        (let [v (Webview.new {:content-filter-store content-filter-store} )]
           (v:visit url)
           (viewplex:add-view v)))
       (viewplex:add-view
-       (doto (Webview.new) (: :visit "about:blank"))))
+       (doto (Webview.new {:content-filter-store content-filter-store})
+         (: :visit "about:blank"))))
 
   (window:add container)
   (window:show_all))

just/viewplex.fnl

@@ -59,7 +59,8 @@
                       :height 200
                       :on_clicked (fn []
                                     (self:add-view
-                                     (doto (Webview.new)
+                                     (doto (Webview.new
+                                            {:content-filter-store self.content-filter-store})
                                        (: :visit "about:blank"))))
                       })
                     false false 5)
@@ -71,7 +72,7 @@
 
 {
  :new
- (fn []
+ (fn [{: content-filter-store}]
    (var foreground-view nil)
    (let [listeners (Listeners.new)
          relay-events []
@@ -87,6 +88,7 @@
                              (listeners:notify event-name $1))))
          views {}]
      {
+      :content-filter-store content-filter-store
       :listen (fn [_ name fun]
                 (if (not (. relay-events name))
                     (each [_ v (pairs views)]

just/webview.fnl

@@ -1,7 +1,33 @@
-(local { : Gtk : Gdk : WebKit2 : cairo } (require :lgi))
+(local { : Gtk : Gdk : WebKit2 : cairo  : GLib } (require :lgi))
 
 (local Listeners (require :listeners))
 
+(fn load-easylist-json [store cb]
+  (print "loading easylist from json")
+  (with-open [f (io.open "easylist_min_content_blocker.json" "r")]
+    (let [blocks (f:read "*a")]
+      (store:save "easylist"
+                  (GLib.Bytes blocks)
+                  nil
+                  (fn [self res]
+                    (cb (store:save_finish res)))))))
+
+(fn load-adblocks [content-manager store]
+  (store:fetch_identifiers
+   nil
+   (fn [self res]
+     (let [ids (store:fetch_identifiers_finish res)
+           found (icollect [_ id (pairs ids)] (= id "easylist"))]
+       (if (> (# found) 0)
+           (store:load "easylist" nil
+                       (fn [self res]
+                         (content-manager:add_filter
+                          (store:load_finish res))))
+           (load-easylist-json
+            store
+            (fn [filter]
+              (content-manager:add_filter filter))))))))
+
 (fn scale-surface [source image-width image-height]
   (let [scaled (cairo.ImageSurface.create
                 cairo.Format.ARGB32
@@ -34,7 +60,8 @@
 
 {
  :new
- #(let [listeners (Listeners.new)
+ (fn [{: content-filter-store}]
+   (let [listeners (Listeners.new)
          props {}
          widget (WebKit2.WebView {
                                   :on_notify
@@ -44,7 +71,8 @@
                                         (tset props pspec.name val)
                                         (listeners:notify pspec.name val))))
                                   })]
-    ;;(load-adblocks webview.user_content_manager content-filter-store)
+     (when content-filter-store
+       (load-adblocks widget.user_content_manager content-filter-store))
      {
       :listen #(listeners:add $2 $3)
       :visit (fn [self url]
@@ -58,5 +86,5 @@
 
       :properties props
       :widget widget
-     })
+      }))
  }