git.iko.soy/elk
on 4bec310 help sign in
elk/compiler/Generate/Markdown.hs
39 lines 937 B history raw
1module Generate.Markdown where
3import Text.Pandoc
4import qualified Data.Set as Set
6toHtml :: String -> String
7toHtml = writeHtmlString writeOptions . readMarkdown readOptions
9readOptions =
10 def { readerExtensions = elmExtensions
11 , readerApplyMacros = False
12 }
14writeOptions =
15 def { writerExtensions = elmExtensions
16 , writerHighlight = True
17 }
19elmExtensions :: Set.Set Extension
20elmExtensions = Set.fromList
21 [ Ext_raw_html
22 , Ext_fenced_code_blocks
23 , Ext_fenced_code_attributes
24 , Ext_backtick_code_blocks
25 , Ext_inline_code_attributes
26 , Ext_markdown_in_html_blocks
27 , Ext_escaped_line_breaks
28 , Ext_fancy_lists
29 , Ext_startnum
30 , Ext_definition_lists
31 , Ext_example_lists
32 , Ext_all_symbols_escapable
33 , Ext_intraword_underscores
34 , Ext_blank_before_blockquote
35 , Ext_blank_before_header
36 , Ext_auto_identifiers
37 , Ext_header_attributes
38 , Ext_implicit_header_references
39 ]