summaryrefslogtreecommitdiff
path: root/modules/rss_filter
diff options
context:
space:
mode:
Diffstat (limited to 'modules/rss_filter')
-rw-r--r--modules/rss_filter/files/config.scm52
-rw-r--r--modules/rss_filter/files/rss-filter.service7
-rw-r--r--modules/rss_filter/files/rss-filter.timer5
-rw-r--r--modules/rss_filter/manifests/init.pp32
4 files changed, 0 insertions, 96 deletions
diff --git a/modules/rss_filter/files/config.scm b/modules/rss_filter/files/config.scm
deleted file mode 100644
index 9b20bcf..0000000
--- a/modules/rss_filter/files/config.scm
+++ /dev/null
@@ -1,52 +0,0 @@
-(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
deleted file mode 100644
index 541da3d..0000000
--- a/modules/rss_filter/files/rss-filter.service
+++ /dev/null
@@ -1,7 +0,0 @@
-[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
deleted file mode 100644
index a793107..0000000
--- a/modules/rss_filter/files/rss-filter.timer
+++ /dev/null
@@ -1,5 +0,0 @@
-[Timer]
-OnCalendar=*:0/30
-
-[Install]
-WantedBy=default.target
diff --git a/modules/rss_filter/manifests/init.pp b/modules/rss_filter/manifests/init.pp
deleted file mode 100644
index 2663dea..0000000
--- a/modules/rss_filter/manifests/init.pp
+++ /dev/null
@@ -1,32 +0,0 @@
-class rss_filter {
-
- # Once I get it into the repos
- # ensure_packages(['rss-filter'])
-
- systemd::unit_file { 'rss-filter.service':
- source => "puppet:///modules/${module_name}/rss-filter.service",
- }
-
- systemd::unit_file { 'rss-filter.timer':
- source => "puppet:///modules/${module_name}/rss-filter.timer",
- }
-
- file { '/etc/rss-filter':
- ensure => directory,
- }
-
- file { '/etc/rss-filter/environment':
- ensure => file,
- content => "OUTDIR=/var/www/adrift.space/rss\n",
- }
-
- file { '/etc/rss-filter/config.scm':
- ensure => file,
- source => "puppet:///modules/${module_name}/config.scm",
- }
-
- service { 'rss-filter.timer':
- ensure => running,
- enable => true,
- }
-}