@@ -43,8 +43,10 @@ import Text.Pandoc.Options
4343readCommonMark :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
4444readCommonMark opts s = return $
4545 nodeToPandoc $ commonmarkToNode opts' exts s
46− where opts' = [optSmart | enabled Ext_smart]
47− exts = [extStrikethrough, extTable, extAutolink]
46+ where opts' = [ optSmart | enabled Ext_smart ]
47+ exts = [ extStrikethrough | enabled Ext_strikeout ] ++
48+ [ extTable | enabled Ext_pipe_tables ] ++
49+ [ extAutolink | enabled Ext_autolink_bare_uris ]
4850 enabled x = extensionEnabled x (readerExtensions opts)
4951
5052nodeToPandoc :: Node -> Pandoc