Man writer:

- Added scheme for specifying manual section and additional
  headers:
  % PROGNAM | 1 | User Manual | Version 4.0
- Modified man page sources to include section 1


git-svn-id: https://pandoc.googlecode.com/svn/trunk@619 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2007-07-04 15:53:49 +00:00
parent d5c47c33ca
commit 4fe56a8d18
5 changed files with 13 additions and 7 deletions

View file

@ -1,4 +1,4 @@
% HSMARKDOWN
% HSMARKDOWN | 1
% John MacFarlane
% June 30, 2007

View file

@ -1,4 +1,4 @@
% HTML2MARKDOWN
% HTML2MARKDOWN | 1
% John MacFarlane and Recai Oktas
% June 30, 2007

View file

@ -1,4 +1,4 @@
% MARKDOWN2PDF
% MARKDOWN2PDF | 1
% John MacFarlane and Recai Oktas
% June 30, 2007

View file

@ -1,4 +1,4 @@
% PANDOC
% PANDOC | 1
% John MacFarlane
% June 30, 2007

View file

@ -69,9 +69,15 @@ metaToMan :: WriterOptions -- ^ Options, including Man header
-> Meta -- ^ Meta with bibliographic information
-> State WriterState (Doc, Doc)
metaToMan options (Meta title authors date) = do
title' <- inlineListToMan options title
let head = (text ".TH \"") <> title' <> text ("\" 1 \"" ++ date ++
"\" \"") <> title' <> text ("\" \"User Manuals\"")
titleParts <- mapM (inlineListToMan options) $ map normalizeSpaces $
splitBy (Str "|") title
let titleParts' = map doubleQuotes titleParts
let (title', section, rest) = case titleParts' of
[] -> (text "\"\"", text "\"\"", [])
[x] -> (x, text "\"\"", [])
(x:y:zs) -> (x, y, zs)
let head = (text ".TH") <+> title' <+> section <+>
doubleQuotes (text date) <+> hsep rest
let foot = case length authors of
0 -> text $ ""
1 -> text $ ".SH AUTHOR\n" ++ joinWithSep ", " authors