forked from robur/blog.robur.coop
Fix the generation of the feed
This commit is contained in:
parent
cb5900d6ef
commit
50fa99b2fe
1 changed files with 11 additions and 2 deletions
13
src/model.ml
13
src/model.ml
|
@ -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 =
|
||||||
|
|
Loading…
Reference in a new issue