forked from robur/blog.robur.coop
16 lines
468 B
OCaml
16 lines
468 B
OCaml
|
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)
|