Kvarterskrog-b-gone
Lyckades komma på ett sätt att filtrera bort @kvarterskrogen@aggregatet.org 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"))
You must log in or register to comment.