diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,5 +1,9 @@
 # Changelog for commonmark-pandoc
 
+## 0.2.2
+
+- Add support for alerts extension (#132).
+
 ## 0.2.1.3
 
 - Allow pandoc-types 1.23.
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.2.1.3
+version:        0.2.2
 synopsis:       Bridge between commonmark and pandoc AST.
 description:    This library provides typeclasses for rendering
                 commonmark to Pandoc types.
@@ -27,8 +27,8 @@
       src
   build-depends:
       base >= 4.9 && <5
-    , commonmark >= 0.2 && < 0.3
-    , commonmark-extensions >= 0.2.1 && < 0.3
+    , commonmark >= 0.2.4.1 && < 0.3
+    , commonmark-extensions >= 0.2.5 && < 0.3
     , pandoc-types >= 1.21 && < 1.24
     , text
   if impl(ghc >= 8.10)
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.Alerts
 import Commonmark.Extensions.Smart
 import Data.Char (isSpace)
 import Data.Coerce (coerce)
@@ -143,6 +144,14 @@
   => HasDefinitionList (Cm a B.Inlines) (Cm a B.Blocks) where
   definitionList _ items =
     Cm $ B.definitionList $ map coerce items
+
+instance (Rangeable (Cm a B.Inlines), Rangeable (Cm a B.Blocks))
+  => HasAlerts (Cm a B.Inlines) (Cm a B.Blocks) where
+  alert alertType bs =
+    Cm $ B.divWith ("",[T.toLower $ alertName alertType],[])
+       $ B.divWith ("",["title"],[])
+           (B.para (B.str (alertName alertType)))
+         <> coerce bs
 
 instance (Rangeable (Cm a B.Inlines), Rangeable (Cm a B.Blocks))
   => HasTaskList (Cm a B.Inlines) (Cm a B.Blocks) where