use smart punctuation
authorrekado <rekado@elephly.net>
Sat, 26 Oct 2013 15:18:26 +0000 (23:18 +0800)
committerrekado <rekado@elephly.net>
Sat, 26 Oct 2013 15:18:26 +0000 (23:18 +0800)
site.hs

diff --git a/site.hs b/site.hs
index 9fcd0b7..7f90e8c 100644 (file)
--- a/site.hs
+++ b/site.hs
@@ -142,8 +142,12 @@ customPandocCompiler =
       (addRExt [Ext_pipe_tables] defaultHakyllReaderOptions)
       (addWExt [Ext_pipe_tables] defaultHakyllWriterOptions)
   where
-    addRExt es opts = opts { readerExtensions = S.union (S.fromList es) (readerExtensions opts) }
-    addWExt es opts = opts { writerExtensions = S.union (S.fromList es) (writerExtensions opts) }
+    addRExt es opts =
+      opts { readerExtensions = S.union (S.fromList es) (readerExtensions opts)
+           , readerSmart = True
+           }
+    addWExt es opts =
+      opts { writerExtensions = S.union (S.fromList es) (writerExtensions opts) }
 
 defaultCompiler = customPandocCompiler
   >>= loadAndApplyTemplate "templates/post.html"    postCtx