From f225793fb0a4e8c62982bb317e0e5e870d28a9b8 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Sat, 5 Mar 2022 18:52:17 +0000
Subject: [PATCH] extract Listeners, Viewplex, Webview to separate modules

---
 just/just.fnl      | 83 +++-------------------------------------------
 just/listeners.fnl | 14 ++++++++
 just/viewplex.fnl  | 38 +++++++++++++++++++++
 just/webview.fnl   | 30 +++++++++++++++++
 4 files changed, 86 insertions(+), 79 deletions(-)
 create mode 100644 just/listeners.fnl
 create mode 100644 just/viewplex.fnl
 create mode 100644 just/webview.fnl

diff --git a/just/just.fnl b/just/just.fnl
index 8c4fc4e..1dddb41 100644
--- a/just/just.fnl
+++ b/just/just.fnl
@@ -5,6 +5,10 @@
 
 (local {: view} (require :fennel))
 
+(local Listeners (require :listeners))
+(local Webview (require :webview))
+(local Viewplex (require :viewplex))
+
 (local cache-dir (.. (os.getenv "HOME") "/.cache/just"))
 
 (local content-filter-store
@@ -17,85 +21,6 @@
        (.. cache-dir "/cookies.db")
        WebKit2.CookiePersistentStorage.SQLITE))
 
-(local
- Listeners
- {
-  :new
-  #(let [listeners {}]
-     {
-      :notify (fn [_ name value]
-                (let [funs (. listeners name)]
-                  (when funs
-                    (each [_ f (ipairs funs)]
-                      (f value)))))
-      :add (fn [_ event-name fun]
-             (let [funs (or (. listeners event-name) [])]
-               (table.insert funs fun)
-               (tset listeners event-name funs)))
-      })})
-
-(local
- Webview
- {
-  :new
-  #(let [listeners (Listeners.new)
-         widget (WebKit2.WebView {
-                                  :on_notify
-                                  (fn [self pspec]
-                                    (when (not (= pspec.name :parent))
-                                            (listeners:notify pspec.name (. self pspec.name))))
-                                  })]
-     ;;(load-adblocks webview.user_content_manager content-filter-store)
-     {
-      :listen #(listeners:add $2 $3)
-      :visit (fn [self url]
-               (widget:load_uri url))
-      :stop-loading #(widget:stop_loading)
-      :refresh #(widget:reload)
-      :go-back #(and (widget:can_go_back) (widget:go_back))
-
-      :widget widget
-      })
-  })
-
-(local
- Viewplex
- (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))
-        }
-       )}))
-
-
 
 
 
diff --git a/just/listeners.fnl b/just/listeners.fnl
new file mode 100644
index 0000000..89cce94
--- /dev/null
+++ b/just/listeners.fnl
@@ -0,0 +1,14 @@
+{
+ :new
+ #(let [listeners {}]
+    {
+     :notify (fn [_ name value]
+               (let [funs (. listeners name)]
+                 (when funs
+                   (each [_ f (ipairs funs)]
+                     (f value)))))
+     :add (fn [_ event-name fun]
+            (let [funs (or (. listeners event-name) [])]
+              (table.insert funs fun)
+              (tset listeners event-name funs)))
+     })}
diff --git a/just/viewplex.fnl b/just/viewplex.fnl
new file mode 100644
index 0000000..0cc6b1a
--- /dev/null
+++ b/just/viewplex.fnl
@@ -0,0 +1,38 @@
+(local { : Gtk : Gdk : WebKit2 : cairo } (require :lgi))
+
+(local Listeners (require :listeners))
+
+{
+ :new
+ #(let [listeners (Listeners.new)
+        relay-events []
+        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))
+     }
+    )}
diff --git a/just/webview.fnl b/just/webview.fnl
new file mode 100644
index 0000000..59a46a3
--- /dev/null
+++ b/just/webview.fnl
@@ -0,0 +1,30 @@
+(local { : Gtk : Gdk : WebKit2 : cairo } (require :lgi))
+
+(local Listeners (require :listeners))
+
+
+{
+ :new
+ #(let [listeners (Listeners.new)
+        props {}
+        widget (WebKit2.WebView {
+                                 :on_notify
+                                 (fn [self pspec]
+                                   (when (not (= pspec.name :parent))
+                                     (let [val (. self pspec.name)]
+                                       (tset props pspec.name val)
+                                       (listeners:notify pspec.name val))))
+                                 })]
+    ;;(load-adblocks webview.user_content_manager content-filter-store)
+    {
+     :listen #(listeners:add $2 $3)
+     :visit (fn [self url]
+              (widget:load_uri url))
+     :stop-loading #(widget:stop_loading)
+     :refresh #(widget:reload)
+     :go-back #(and (widget:can_go_back) (widget:go_back))
+
+     :properties props
+     :widget widget
+     })
+ }