csrhodes · August 27, 2015 19:42
diff --git a/Wikilink.hs b/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
	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