Fix the generation of the feed

This commit is contained in:
Calascibetta Romain 2023-11-15 11:29:09 +01:00
parent cb5900d6ef
commit 50fa99b2fe
No known key found for this signature in database
GPG key ID: 8CC4DC3365A666B0

View file

@ -91,10 +91,19 @@ module Article = struct
let date { date; _ } = date let date { date; _ } = date
let tags { tags; _ } = tags let tags { tags; _ } = tags
let escape_string str =
let renderer = Cmarkit_renderer.make () in
let buffer = Buffer.create (String.length str) in
let ctx = Cmarkit_renderer.Context.make renderer buffer in
Cmarkit_html.html_escaped_string ctx str;
Buffer.contents buffer
let to_rss_item url article = let to_rss_item url article =
let title = escape_string article.article_title in
let description = escape_string article.article_description in
Rss.( Rss.(
Item.make ~title:article.article_title ~link:url ~pub_date:article.date Item.make ~title ~link:url ~pub_date:article.date ~description
~description:article.article_description ~guid:(Guid.link url) ()) ~guid:(Guid.link url) ())
let make article_title article_description tags date title description author let make article_title article_description tags date title description author
co_authors = co_authors =