From beb3d107fc9d922a6c4e78a11e5be1f1ef1c46c0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 30 Dec 2021 17:35:30 +0100
Subject: Move stuff to module dir.

---
 main.scm | 54 +++---------------------------------------------------
 1 file changed, 3 insertions(+), 51 deletions(-)

(limited to 'main.scm')

diff --git a/main.scm b/main.scm
index 627fc50..faf5375 100755
--- a/main.scm
+++ b/main.scm
@@ -2,63 +2,15 @@
 -e main -s
 !#
 
-;; (add-to-load-path ".")
-(add-to-load-path (dirname (current-filename)))
+(add-to-load-path (string-append (dirname (current-filename)) "/module"))
 (add-to-load-path "/home/hugo/code/calp/module")
 
 (use-modules
- (web client)
- (web response)
- (sxml simple)
- (sxml xpath)
-
- (ice-9 getopt-long)
- (ice-9 curried-definitions)
- (ice-9 format)
-
- ;; following are from calp
- (sxml namespace)
  ((calp util) :select (path-append))
-
- (feed-handler)
-
+ (ice-9 getopt-long)
  ((xdg basedir) :prefix xdg-)
- )
-
-
-(define ((handle-feed output-directory quiet?) feed)
-  (define response
-    (begin
-      (when (not quiet?)
-       (format (current-error-port) "Fetching ~a~%" (feed-url feed)))
-      ;; TODO follow redirects
-      (http-get (feed-url feed)
-                #:streaming? #t)))
-
-  (unless (= 200 (response-code response))
-    (format (current-error-port) "HTTP error ~a"
-            (response-code response))
-    (exit 1))
-
-  (let* ((feed-content (move-to-namespace (parse-rss (response-body-port response))
-                                          '((#f . rss))))
-         (feed-title (car ((sxpath '(// rss:channel rss:title *text*)) feed-content)))
-         (safe-title (string-map (lambda (c) (if (char-set-contains? char-set:letter+digit c)
-                                            c #\_))
-                                 feed-title)))
-
+ ((rss-filter) :select (handle-feed)))
 
-    (let ((output (filter-tree (feed-transformer feed)
-                               feed-content))
-          (filename (string-append
-                     (path-append output-directory safe-title)
-                     ".rss")))
-      (with-output-to-file filename
-        (lambda ()
-          (sxml->xml
-           ;; Removing the rss prefix should be fine, but at least NewNewsWire
-           ;; (for iPad) expects all rss elements to be un-namespaced.
-           (move-to-namespace output '((rss . #f)))))))))
 
 
 (define option-spec
-- 
cgit v1.2.3