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:
parent
d5c47c33ca
commit
4fe56a8d18
5 changed files with 13 additions and 7 deletions
|
@ -1,4 +1,4 @@
|
|||
% HSMARKDOWN
|
||||
% HSMARKDOWN | 1
|
||||
% John MacFarlane
|
||||
% June 30, 2007
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
% HTML2MARKDOWN
|
||||
% HTML2MARKDOWN | 1
|
||||
% John MacFarlane and Recai Oktas
|
||||
% June 30, 2007
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
% MARKDOWN2PDF
|
||||
% MARKDOWN2PDF | 1
|
||||
% John MacFarlane and Recai Oktas
|
||||
% June 30, 2007
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
% PANDOC
|
||||
% PANDOC | 1
|
||||
% John MacFarlane
|
||||
% June 30, 2007
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue