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 9fcd0b7cd35f0ae65e8f6fd86b8d1b01bb6bd78e..7f90e8cc38e4cb0cf6c62cb7363cfa807e19f7f3 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