diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,5 +1,7 @@
 # commonmark-pandoc
 
+[![hackage release](https://img.shields.io/hackage/v/commonmark-pandoc.svg?label=hackage)](http://hackage.haskell.org/package/commonmark-pandoc)
+
 This package provides typeclass instances for parsing
 commonmark directly into the `Pandoc` AST.
 
diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,10 @@
 # Changelog for commonmark-pandoc
 
-## Unreleased changes
+## 0.2.0.0
+
+- Add HasQuoted instance.
+- Apply attributes directly to Table element (#47).
+
+## 0.1.0.0
+
+- Initial release
diff --git a/commonmark-pandoc.cabal b/commonmark-pandoc.cabal
--- a/commonmark-pandoc.cabal
+++ b/commonmark-pandoc.cabal
@@ -1,5 +1,5 @@
 name:           commonmark-pandoc
-version:        0.1.0.0
+version:        0.2.0.0
 synopsis:       Bridge between commonmark and pandoc AST.
 description:    This library provides typeclasses for rendering
                 commonmark to Pandoc types.
@@ -28,7 +28,7 @@
   build-depends:
       base >=4.7 && <5
     , commonmark >= 0.1 && < 0.2
-    , commonmark-extensions >= 0.1 && < 0.2
+    , commonmark-extensions >= 0.2 && < 0.3
     , pandoc-types >= 1.21 && < 1.22
     , text
     , containers
diff --git a/src/Commonmark/Pandoc.hs b/src/Commonmark/Pandoc.hs
--- a/src/Commonmark/Pandoc.hs
+++ b/src/Commonmark/Pandoc.hs
@@ -31,6 +31,7 @@
 import Commonmark.Extensions.Attributes
 import Commonmark.Extensions.Footnote
 import Commonmark.Extensions.TaskList
+import Commonmark.Extensions.Smart
 import Data.Char (isSpace)
 import Data.Coerce (coerce)
 #if !MIN_VERSION_base(4,11,0)
@@ -112,6 +113,10 @@
   inlineMath t = Cm $ B.math t
   displayMath t = Cm $ B.displayMath t
 
+instance Rangeable (Cm b B.Inlines) => HasQuoted (Cm b B.Inlines) where
+  singleQuoted x = B.singleQuoted <$> x
+  doubleQuoted x = B.doubleQuoted <$> x
+
 instance HasEmoji (Cm b B.Inlines) where
   emoji kw t = Cm $ B.spanWith ("",["emoji"],[("data-emoji",kw)])
                   $ B.text t
@@ -188,6 +193,8 @@
   Header n (addToPandocAttr attrs curattrs) ils
 addBlockAttrs attrs (CodeBlock curattrs s) =
   CodeBlock (addToPandocAttr attrs curattrs) s
+addBlockAttrs attrs (Table curattrs capt colspecs thead tbody tfoot) =
+  Table (addToPandocAttr attrs curattrs) capt colspecs thead tbody tfoot
 addBlockAttrs attrs (Div curattrs bs) =
   Div (addToPandocAttr attrs curattrs) bs
 addBlockAttrs attrs x =