commonmark-pandoc 0.2.1.3 → 0.2.2
raw patch · 3 files changed
+16/−3 lines, 3 filesdep ~commonmarkdep ~commonmark-extensionsPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: commonmark, commonmark-extensions
API changes (from Hackage documentation)
+ Commonmark.Pandoc: instance (Commonmark.Types.Rangeable (Commonmark.Pandoc.Cm a Text.Pandoc.Builder.Inlines), Commonmark.Types.Rangeable (Commonmark.Pandoc.Cm a Text.Pandoc.Builder.Blocks)) => Commonmark.Extensions.Alerts.HasAlerts (Commonmark.Pandoc.Cm a Text.Pandoc.Builder.Inlines) (Commonmark.Pandoc.Cm a Text.Pandoc.Builder.Blocks)
Files
- changelog.md +4/−0
- commonmark-pandoc.cabal +3/−3
- src/Commonmark/Pandoc.hs +9/−0
changelog.md view
@@ -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.
commonmark-pandoc.cabal view
@@ -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)
src/Commonmark/Pandoc.hs view
@@ -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