Add simple alert handler to C.Pandoc.

jgm · Dec 4, 2023 · 786f413 · 786f413
1 parent 82c8664
commit 786f413
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/commonmark-pandoc/src/Commonmark/Pandoc.hs b/commonmark-pandoc/src/Commonmark/Pandoc.hs
@@ -31,6 +31,7 @@ import Commonmark.Extensions.DefinitionList
 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)
@@ -144,6 +145,11 @@ instance (Rangeable (Cm a B.Inlines), Rangeable (Cm a B.Blocks))
   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 ("",[],[]) $ coerce bs
+
 instance (Rangeable (Cm a B.Inlines), Rangeable (Cm a B.Blocks))
   => HasTaskList (Cm a B.Inlines) (Cm a B.Blocks) where
   taskList _ spacing items =