Allow commonmark extensions

This commit is contained in:
Reynir Björnsson 2023-11-15 11:13:36 +01:00
parent 2b5abed59e
commit 87d29298ac

View file

@ -48,7 +48,7 @@ let process_articles target =
>>> Metaformat.read_file_with_metadata
(module Model.Article)
article_file
>>> Markup.content_to_html ()
>>> Markup.content_to_html ~strict:false ()
>>> Template.apply_as_template (module Model.Article) article_template
>>> Template.apply_as_template (module Model.Article) layout_template
>>^ Stdlib.snd))
@ -99,7 +99,7 @@ let generate_index target =
(index_html target)
(binary_update
>>> Metaformat.read_file_with_metadata (module Metadata.Page) index_md
>>> Markup.content_to_html ()
>>> Markup.content_to_html ~strict:false ()
>>> articles_arrow
>>^ merge_with_page
>>> Template.apply_as_template (module Model.Articles) list_template