Kvarterskrogen

Kvarterskrog-b-gone

Lyckades komma på ett sätt att filtrera bort @[email protected] från deras RSS eftersom jag inte orkar med allt humoristiskt skitsnack som att Malta inte skulle finnas, global nedkylning osv.

(define (rss-tweak drop hit? url)
  (serialize-sxml
   (pre-post-order-splice*
    (sxml-url url)
    (with (fn (if (hit? y)
                  (if drop '() (cons x y))
                  (if drop (cons x y) '())))
      `((item . ,it)
        (entry . ,it)
        (*text* . ,(fn y))
        (*default* . ,cons))))))

(define (kvarterskrog-b-gone)
  (rss-tweak
   #t
   (strse?* "https://aggregatet.org/c/kvarterskrogen")
   "https://aggregatet.org/feeds/local.xml?sort=Active"))