@@ -47,8 +47,10 @@ makeManPage verbose page meta blocks = do
4747
4848writeManPage :: FilePath -> String -> Pandoc -> IO ()
4949writeManPage page templ doc = do
50+ let version = pandocVersion
5051 let opts = def{ writerStandalone = True
51− , writerTemplate = templ }
52+ , writerTemplate = templ
53+ , writerVariables = [("version",version)] }
5254 let manPage = writeMan opts $
5355 bottomUp (concatMap removeLinks) $
5456 bottomUp capitalizeHeaders doc