diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,5 +1,13 @@
# Changelog for commonmark-extensions
+## 0.2.6
+
+ * Track wikilinks with a class instead of the title (Evan
+ Silberman). The use of title="wikilink" in HTML output traces
+ back to Pandoc's hijacking of the title attribute for this purpose
+ back when Pandoc links didn't have Attrs. A coordinated change in
+ Pandoc moves this more appropriately into a class.
+
## 0.2.5.6
* Autolink parser: track balanced brackets in path (improves
diff --git a/commonmark-extensions.cabal b/commonmark-extensions.cabal
--- a/commonmark-extensions.cabal
+++ b/commonmark-extensions.cabal
@@ -1,5 +1,5 @@
name: commonmark-extensions
-version: 0.2.5.6
+version: 0.2.6
synopsis: Pure Haskell commonmark parser.
description:
This library provides some useful extensions to core commonmark
@@ -84,7 +84,7 @@
Commonmark.Extensions.RebaseRelativePaths
Commonmark.Extensions.Wikilinks
Commonmark.Extensions.Alerts
- ghc-options: -Wall -fno-warn-unused-do-bind -funbox-small-strict-fields
+ ghc-options: -Wall -fno-warn-deriving-typeable -fno-warn-unused-do-bind -funbox-small-strict-fields
if impl(ghc >= 8.10)
ghc-options: -Wunused-packages
if impl(ghc >= 8.8)
diff --git a/src/Commonmark/Extensions/Wikilinks.hs b/src/Commonmark/Extensions/Wikilinks.hs
--- a/src/Commonmark/Extensions/Wikilinks.hs
+++ b/src/Commonmark/Extensions/Wikilinks.hs
@@ -23,7 +23,7 @@
wikilink :: Text -> il -> il
instance Rangeable (Html a) => HasWikilinks (Html a) where
- wikilink url il = link url "wikilink" il
+ wikilink url il = addAttribute ("class", "wikilink") $ link url "" il
instance (HasWikilinks il, Semigroup il, Monoid il)
=> HasWikilinks (WithSourceMap il) where
diff --git a/test/test-commonmark-extensions.hs b/test/test-commonmark-extensions.hs
--- a/test/test-commonmark-extensions.hs
+++ b/test/test-commonmark-extensions.hs
@@ -61,7 +61,7 @@
spectests <- getSpecTests fp
let spectestgroups = groupBy (\t1 t2 -> section t1 == section t2)
spectests
- let spectestsecs = [(section (head xs), xs) | xs <- spectestgroups]
+ let spectestsecs = [(section x, x:xs) | x:xs <- spectestgroups]
let parser = runIdentity . parseCommonmarkWith
(syntaxspec <> defaultSyntaxSpec)
return $ testGroup fp $
diff --git a/test/wikilinks_title_after_pipe.md b/test/wikilinks_title_after_pipe.md
--- a/test/wikilinks_title_after_pipe.md
+++ b/test/wikilinks_title_after_pipe.md
@@ -10,25 +10,25 @@
```````````````````````````````` example
[[https://example.org]]
.
-https://example.org
+https://example.org
````````````````````````````````
```````````````````````````````` example
[[https://example.org|title]]
.
-title
+title
````````````````````````````````
```````````````````````````````` example
[[Name of page]]
.
-Name of page
+Name of page
````````````````````````````````
```````````````````````````````` example
[[Name of page|Title]]
.
-Title
+Title
````````````````````````````````
HTML entities are recognized both in the name of page and in the link title.
@@ -36,5 +36,5 @@
```````````````````````````````` example
[[Geschütztes Leerzeichen|Über ]]
.
-Über
+Über
````````````````````````````````
diff --git a/test/wikilinks_title_before_pipe.md b/test/wikilinks_title_before_pipe.md
--- a/test/wikilinks_title_before_pipe.md
+++ b/test/wikilinks_title_before_pipe.md
@@ -10,25 +10,25 @@
```````````````````````````````` example
[[https://example.org]]
.
-https://example.org
+https://example.org
````````````````````````````````
```````````````````````````````` example
[[title|https://example.org]]
.
-title
+title
````````````````````````````````
```````````````````````````````` example
[[Name of page]]
.
-Name of page
+Name of page
````````````````````````````````
```````````````````````````````` example
[[Title|Name of page]]
.
-Title
+Title
````````````````````````````````
Regular links should still work!
@@ -44,5 +44,5 @@
```````````````````````````````` example
[[Über |Geschütztes Leerzeichen]]
.
-Über
+Über
````````````````````````````````