Support comments

[tt.git] / tt.rkt

diff --git a/tt.rkt b/tt.rkt
index 098a08e..455e6e5 100644 (file)
--- a/tt.rkt
+++ b/tt.rkt
@@ -210,8 +210,11 @@
   (define toks (string-split str))
   (apply feed toks))
 
+(define (filter-comments lines)
+  (filter-not (λ (line) (string-prefix? line "#")) lines))
+
 (define (str->feeds str)
-  (map str->feed (str->lines str)))
+  (map str->feed (filter-comments (str->lines str))))
 
 (define (file->feeds filename)
   (str->feeds (file->string filename)))
@@ -246,11 +249,11 @@
 (module+ main
   (require setup/getinfo)
 
-  (current-http-response-auto #f)
+  (current-http-client/response-auto #f)
   (let* ([prog-name    "tt"]
          [prog-version ((get-info (list prog-name)) 'version)]
          [user-agent   (user-agent prog-name prog-version)])
-    (current-http-user-agent user-agent))
+    (current-http-client/user-agent user-agent))
   (let* ([use-cache
            #f]
          [log-level