diff options
Diffstat (limited to 'modules/rss_filter')
-rw-r--r-- | modules/rss_filter/files/config.scm | 52 | ||||
-rw-r--r-- | modules/rss_filter/files/rss-filter.service | 7 | ||||
-rw-r--r-- | modules/rss_filter/files/rss-filter.timer | 5 | ||||
-rw-r--r-- | modules/rss_filter/manifests/init.pp | 32 |
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, - } -} |