Add rss-filter.

3 files changed, 64 insertions, 0 deletions

diff --git a/modules/rss_filter/files/config.scm b/modules/rss_filter/files/config.scm
new file mode 100644
index 0000000..9b20bcf
--- /dev/null
+++ b/modules/rss_filter/files/config.scm
@@ -0,0 +1,52 @@
+(define-module (config)
+  :export (feeds))
+
+(use-modules
+ (sxml xpath)
+ (ice-9 regex)
+
+ (rss-filter feed-handler)
+
+ ((ice-9 i18n) :select (make-locale))
+ ((texinfo string-utils) :select (escape-special-chars))
+
+ ((calp util) :select (->))
+ ((datetime) :select (datetime datetime->string
+                               string->datetime)))
+
+
+(define feeds
+  (list
+   (make-feed
+    "https://lwn.net/headlines/Features"
+    `((rss:item
+       . ,(lambda (key . children)
+            (define tag (cons key children))
+            (call-with-values (lambda () (apply values ((sxpath '(rss:title *text*)) tag)))
+              (case-lambda (() tag)
+                           ((title . _)
+                            (if (string-match (escape-special-chars "^[$]" "[]$" #\\)
+                                              title)
+                                '() tag))))))))
+
+   (make-feed
+    "https://swordscomic.com/comic/feed/"
+    `((rss:pubDate
+       . ,(lambda (key . children)
+            (list key
+                  (-> (car children)
+                      (string->datetime "~b. ~d, ~Y, ~H:~M ~p" (make-locale LC_TIME "en_US.UTF-8"))
+                      (datetime->string "~Y-~m-~dT~H:~M:~S")))))
+
+      (rss:description
+       . ,(lambda (key . children)
+            (cons key
+                  ;; Each entry has a <style/> tag at the
+                  ;; beggining, which brakes the short preview on
+                  ;; NetNewsWire. This removes it
+                  (cond ((string-match "</style>" (car children))
+                         => (lambda (m)
+                              (list (string-drop (car children) (match:end m)))))
+                        (else children)))))
+      ))
+   ))
diff --git a/modules/rss_filter/files/rss-filter.service b/modules/rss_filter/files/rss-filter.service
new file mode 100644
index 0000000..541da3d
--- /dev/null
+++ b/modules/rss_filter/files/rss-filter.service
@@ -0,0 +1,7 @@
+[Unit]
+Description=Fetch and filter RSS feeds
+
+[Service]
+EnvironmentFile=/etc/rss-filter/environment
+ExecStart=/usr/bin/rss-filter --output $OUTDIR --config-dir /etc/rss-filter
+Type=oneshot
diff --git a/modules/rss_filter/files/rss-filter.timer b/modules/rss_filter/files/rss-filter.timer
new file mode 100644
index 0000000..a793107
--- /dev/null
+++ b/modules/rss_filter/files/rss-filter.timer
@@ -0,0 +1,5 @@
+[Timer]
+OnCalendar=*:0/30
+
+[Install]
+WantedBy=default.target