874c3e0dea
+ In Text.Pandoc.Definition, added processIn, processInM, and queryIn, and deprecated processPandoc and queryPandoc for these more general functions, which are useful in writing plugins. + Added module Text.Pandoc.Plugins. + Added a --plugins option to Main, and code to run the parsed pandoc document through all the plugins. + Provided five sample plugin files in the plugins/ directory. + Documented --plugin in the pandoc man page and README. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1519 788f1e2b-df1e-0410-8736-df70ead52e1b
15 lines
430 B
Haskell
15 lines
430 B
Haskell
module ListLinksPlugin (transform) where
|
|
import Text.Pandoc
|
|
|
|
-- This plugin returns an empty document and prints a list
|
|
-- of the URLs linked to in the source document.
|
|
|
|
transform :: Pandoc -> IO Pandoc
|
|
transform p = do
|
|
let urls = queryIn findURLs p
|
|
putStrLn $ unlines urls
|
|
return $ Pandoc (Meta [] [] []) []
|
|
|
|
findURLs :: Inline -> [String]
|
|
findURLs (Link label (url, title)) = [url]
|
|
findURLs x = []
|