diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-08-30 16:11:45 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-08-30 16:11:45 -0700 |
commit | fcd35cc955f37eaedaa0fb8f45c78f3d2b888147 (patch) | |
tree | b636af0d9784b66e70394f016de557bcd110b34f /man/make-pandoc-man-pages.hs | |
parent | 58b32107ada21128d740c694e363526ddd5fedc8 (diff) |
Put version in lower-left corner of man pages.
Diffstat (limited to 'man/make-pandoc-man-pages.hs')
-rw-r--r-- | man/make-pandoc-man-pages.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/man/make-pandoc-man-pages.hs b/man/make-pandoc-man-pages.hs index afba9135a..65178a15b 100644 --- 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 |