summaryrefslogtreecommitdiff
path: root/app/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/Main.hs')
-rw-r--r--app/Main.hs8
1 files changed, 7 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs
index 6a416be..c1ebbbd 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -109,7 +109,13 @@ htmlize mdwn = either (error . show) T.unpack . P.runPure .
(P.writeHtml5String P.def . PW.walk preserveIkiInline =<<) .
P.readMarkdown readOpts . PS.tabFilter 4 . T.pack .
filter (\c -> c `elem` ("\t\n\r" :: String) || (c>=' ' && c/='\x7f')) $ mdwn
- where readOpts = P.def {P.readerExtensions = P.pandocExtensions}
+ where
+ readOpts = P.def
+ { P.readerExtensions =
+ -- Several IkiWiki directives expand to raw HTML blocks. Any markdown
+ -- inside these blocks is rendered separately.
+ P.disableExtension P.Ext_markdown_in_html_blocks P.pandocExtensions
+ }
-- Lines of the form
-- <div class="inline" id="some_string"></div>