Put version in lower-left corner of man pages.

jgm · Aug 30, 2014 · fcd35cc · fcd35cc
1 parent 58b3210
commit fcd35cc
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/man/make-pandoc-man-pages.hs b/man/make-pandoc-man-pages.hs
@@ -47,8 +47,10 @@ makeManPage verbose page meta blocks = do
 
 writeManPage :: FilePath -> String -> Pandoc -> IO ()
 writeManPage page templ doc = do
+  let version = pandocVersion
   let opts = def{ writerStandalone = True
-                , writerTemplate = templ }
+                , writerTemplate = templ
+                , writerVariables = [("version",version)] }
   let manPage = writeMan opts $
                     bottomUp (concatMap removeLinks) $
                     bottomUp  capitalizeHeaders doc

diff --git a/man/man1/pandoc.1.template b/man/man1/pandoc.1.template
@@ -1,7 +1,7 @@
 $if(has-tables)$
 .\"t
 $endif$
-.TH PANDOC 1 "$date$" "$title$"
+.TH PANDOC 1 "$date$" "$version$"
 .SH NAME
 pandoc - general markup converter
 $body$

diff --git a/man/man5/pandoc_markdown.5.template b/man/man5/pandoc_markdown.5.template
@@ -1,7 +1,7 @@
 $if(has-tables)$
 .\"t
 $endif$
-.TH PANDOC_MARKDOWN 5 "$date$" "$title$"
+.TH PANDOC_MARKDOWN 5 "$date$" "$version$"
 .SH NAME
 pandoc_markdown - markdown syntax for pandoc(1)
 .SH DESCRIPTION