terryburton

#!/usr/bin/env runhaskell

import Text.Pandoc.JSON
import Data.Char

main = toJSONFilter rewritewikilinks

rewritewikilinks :: Inline -> [Inline]
rewritewikilinks ( Link txt ('#':url,title) ) = [ ( Link txt ("#"++url,title) ) ]
rewritewikilinks ( Link txt ('h':'t':'t':'p':':':url,title) ) = [ ( Link txt ("http:"++url,title) ) ]