From 9bac0ceb1eb751d5c108dd0160d6f3af1ee05899 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Reynir=20Bj=C3=B6rnsson?= <reynir@reynir.dk>
Date: Fri, 17 Nov 2023 11:20:10 +0100
Subject: [PATCH] Use type=html for atom entry summary

---
 canopy_article.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/canopy_article.ml b/canopy_article.ml
index 9dc5c89..8230b93 100644
--- a/canopy_article.ml
+++ b/canopy_article.ml
@@ -89,8 +89,9 @@ let to_tyxml_tags tags =
 
 let to_atom cache ({ title; author; abstract; uri; created; updated; tags; content; uuid}) =
   let text x : Syndic.Atom.text_construct = Syndic.Atom.Text x in
+  let html x : Syndic.Atom.text_construct = Syndic.Atom.Html (None, x) in
   let summary = match abstract with
-    | Some x -> Some (text x)
+    | Some x -> Some (html x)
     | None -> None
   in
   let root = Canopy_config.root cache