Wikilink.hs

import Data.Char ( isAlphaNum )
import Text.Pandoc.JSON

main = toJSONFilter relink

depunct :: String -> String
depunct x = map frob x
        where frob c = if isAlphaNum c then c else if c == '_' then c else '-'

relink :: Inline -> Inline
relink (Link txt (src, "wikilink")) = Link txt ("#" ++ depunct src, "")
relink x            = x