open Yocaml

let domain = "https://blog.robur.coop"
let feed_url = into domain "feed.xml"

let articles_to_items articles =
  List.map
    (fun (article, url) -> Model.Article.to_rss_item (into domain url) article)
    articles

let make ((), articles) =
  Yocaml.Rss.Channel.make ~title:"Robur's blog" ~link:domain ~feed_link:feed_url
    ~description:"The Robur cooperative blog" ~generator:"yocaml"
    ~webmaster:"team@robur.coop"
    (articles_to_items articles)