commonmark-extensions 0.2.2.1 → 0.2.3

raw patch · 20 files changed

+24/−67 lines, 20 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• benchmark/benchmark.hs +0/−3
• changelog.md +5/−0
• commonmark-extensions.cabal +1/−1
• src/Commonmark/Extensions.hs +0/−4
• src/Commonmark/Extensions/Attributes.hs +5/−6
• src/Commonmark/Extensions/AutoIdentifiers.hs +0/−4
• src/Commonmark/Extensions/Autolink.hs +0/−4
• src/Commonmark/Extensions/DefinitionList.hs +0/−5
• src/Commonmark/Extensions/Emoji.hs +0/−1
• src/Commonmark/Extensions/FancyList.hs +0/−1
• src/Commonmark/Extensions/Footnote.hs +0/−5
• src/Commonmark/Extensions/ImplicitHeadingReferences.hs +0/−4
• src/Commonmark/Extensions/Math.hs +0/−4
• src/Commonmark/Extensions/PipeTable.hs +0/−4
• src/Commonmark/Extensions/RebaseRelativePaths.hs +0/−4
• src/Commonmark/Extensions/Smart.hs +0/−5
• src/Commonmark/Extensions/TaskList.hs +0/−5
• src/Commonmark/Extensions/Wikilinks.hs +0/−4
• test/fenced_divs.md +13/−0
• test/test-commonmark-extensions.hs +0/−3

@@ -8,9 +8,6 @@ import Commonmark.Extensions import qualified Data.Text as T import qualified Data.Text.IO as TIO-#if !MIN_VERSION_base(4,11,0)-import Data.Monoid-#endif  main :: IO () main = do

@@ -1,5 +1,10 @@ # Changelog for commonmark-extensions +## 0.2.3++- Allow bare word attribute in fenced_divs (#84).  This follows a similar+  change in pandoc (jgm/pandoc#7242).+ ## 0.2.2.1  - Fix commonmark-extensions to build with GHC 9.2 (#81, Joseph C. Sible).

@@ -1,5 +1,5 @@ name:           commonmark-extensions-version:        0.2.2.1+version:        0.2.3 synopsis:       Pure Haskell commonmark parser. description:    This library provides some useful extensions to core commonmark

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {- |  Syntax extensions for the commonmark library.@@ -64,9 +63,6 @@ import           Commonmark.Extensions.RebaseRelativePaths import           Commonmark import           Data.Typeable-#if !MIN_VERSION_base(4,11,0)-import           Data.Monoid ((<>))-#endif  -- | Standard extensions for GitHub-flavored Markdown. gfmExtensions :: (Monad m, Typeable m, Typeable il, Typeable bl,

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE UndecidableInstances #-}@@ -30,9 +29,6 @@ import Data.Tree import Control.Monad (mzero, guard, void) import Text.Parsec-#if !MIN_VERSION_base(4,11,0)-import Data.Semigroup-#endif  class HasDiv bl where   div_ :: bl -> bl@@ -53,7 +49,7 @@ fencedDivBlockSpec :: (Monad m, IsBlock il bl, HasDiv bl)                    => BlockSpec m il bl fencedDivBlockSpec = BlockSpec-     { blockType           = "FencedDiv"+    { blockType           = "FencedDiv"      , blockStart          = try $ do              prepos <- getPosition              nonindentSpaces@@ -63,7 +59,10 @@              let fencelength = length colons              guard $ fencelength >= 3              skipWhile (hasType Spaces)-             attrs <- pAttributes+             attrs <- pAttributes <|>+                      (do bareWordToks <- many1+                           (satisfyWord (const True) <|> anySymbol)+                          return [("class", untokenize bareWordToks)])              skipWhile (hasType Spaces)              lookAhead $ void lineEnd <|> eof              addNodeToStack $

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE UndecidableInstances #-}@@ -18,9 +17,6 @@ import qualified Data.Map as M import qualified Data.Text as T import Text.Parsec-#if !MIN_VERSION_base(4,11,0)-import Data.Semigroup-#endif  autoIdentifiersSpec :: (Monad m, IsBlock il bl, IsInline il, ToPlainText il)                     => SyntaxSpec m il bl

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE OverloadedStrings #-} module Commonmark.Extensions.Autolink@@ -12,9 +11,6 @@ import Control.Monad (guard, void) import Text.Parsec import Data.Text (Text)-#if !MIN_VERSION_base(4,11,0)-import Data.Monoid-#endif  autolinkSpec :: (Monad m, IsBlock il bl, IsInline il)              => SyntaxSpec m il bl

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {-# LANGUAGE TupleSections #-} {-# LANGUAGE FunctionalDependencies #-} {-# LANGUAGE UndecidableInstances #-}@@ -17,10 +16,6 @@ import Commonmark.TokParsers import Commonmark.Html import Control.Monad (mzero)-#if !MIN_VERSION_base(4,11,0)-import Data.Semigroup (Semigroup)-import Data.Monoid-#endif import Data.Dynamic import Data.Tree import Text.Parsec

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE OverloadedStrings #-} module Commonmark.Extensions.Emoji

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE UndecidableInstances #-}

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {-# LANGUAGE FunctionalDependencies #-} {-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE MultiParamTypeClasses #-}@@ -23,10 +22,6 @@ import Control.Monad (mzero) import Data.List import Data.Maybe (fromMaybe, mapMaybe)-#if !MIN_VERSION_base(4,11,0)-import Data.Semigroup (Semigroup)-import Data.Monoid-#endif import Data.Dynamic import Data.Tree import Text.Parsec

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE UndecidableInstances #-}@@ -19,9 +18,6 @@ import Control.Monad (unless) import Data.Maybe (fromMaybe) import Text.Parsec-#if !MIN_VERSION_base(4,11,0)-import Data.Semigroup-#endif  implicitHeadingReferencesSpec          :: (Monad m, IsBlock il bl, IsInline il)

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE OverloadedStrings #-} module Commonmark.Extensions.Math@@ -14,9 +13,6 @@ import Commonmark.Html import Text.Parsec import Data.Text (Text)-#if !MIN_VERSION_base(4,11,0)-import Data.Semigroup (Semigroup(..))-#endif  mathSpec :: (Monad m, IsBlock il bl, IsInline il, HasMath il)          => SyntaxSpec m il bl

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP                   #-} {-# LANGUAGE IncoherentInstances   #-} {-# LANGUAGE FlexibleInstances     #-} {-# LANGUAGE FlexibleContexts      #-}@@ -25,9 +24,6 @@ import Data.Dynamic import Data.Tree import Data.Data-#if !MIN_VERSION_base(4,11,0)-import Data.Semigroup (Semigroup(..))-#endif  data ColAlignment = LeftAlignedCol                   | CenterAlignedCol

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE OverloadedStrings #-}@@ -18,9 +17,6 @@ import qualified System.FilePath.Posix as Posix import Network.URI (URI (uriScheme), parseURI) import qualified Data.Set as Set-#if !MIN_VERSION_base(4,11,0)-import Data.Semigroup (Semigroup(..))-#endif  rebaseRelativePathsSpec   :: forall m bl il . (Monad m , IsInline il , IsBlock il bl)

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP               #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE FlexibleInstances    #-} {-# LANGUAGE FlexibleContexts     #-}@@ -15,10 +14,6 @@ import Commonmark.SourceMap import Commonmark.TokParsers (symbol) import Text.Parsec-#if !MIN_VERSION_base(4,11,0)-import Data.Monoid (Monoid)-import Data.Semigroup (Semigroup, (<>))-#endif  class IsInline il => HasQuoted il where   singleQuoted :: il -> il

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {-# LANGUAGE TupleSections #-} {-# LANGUAGE FunctionalDependencies #-} {-# LANGUAGE UndecidableInstances #-}@@ -19,10 +18,6 @@ import Commonmark.TokParsers import Commonmark.Html import Control.Monad (mzero)-#if !MIN_VERSION_base(4,11,0)-import Data.Semigroup (Semigroup)-import Data.Monoid ((<>))-#endif import Control.Monad (when, guard) import Data.List (sort) import Data.Dynamic

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE UndecidableInstances #-}@@ -17,9 +16,6 @@ import Commonmark.TokParsers import Commonmark.Html import Text.Parsec-#if !MIN_VERSION_base(4,11,0)-import Data.Semigroup hiding (option)-#endif import Data.Text (Text, strip)  class HasWikilinks il where

@@ -119,3 +119,16 @@ </blockquote> ```````````````````````````````` +Instead of a normal attribute specifier in curly braces,+a single bare word may be used; it will be treated as a+"class" attribute:++```````````````````````````````` example+::: c_d+Hi+:::+.+<div class="c_d">+<p>Hi</p>+</div>+````````````````````````````````

@@ -17,9 +17,6 @@ import           Test.Tasty.HUnit import           Text.Parsec import           Text.Parsec.Pos-#if !MIN_VERSION_base(4,11,0)-import           Data.Semigroup-#endif  readTextFile :: FilePath -> IO Text readTextFile fp = do