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