From 2f7a38e1ab54d564555856a9354d1462ff8ca815 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 21 Jul 2007 20:30:40 +0000
Subject: Changed system for indicating man page title, section, header and
 footer.  Documented in README.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@745 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 README                         | 21 +++++++++++++++------
 src/Text/Pandoc/Writers/Man.hs | 17 +++++++++--------
 2 files changed, 24 insertions(+), 14 deletions(-)

diff --git a/README b/README
index 409270163..c58818448 100644
--- a/README
+++ b/README
@@ -645,16 +645,25 @@ title block appears in the document, the title prefix will be used by
 itself as the HTML title.
 
 The man page writer extracts a title, man page section number, and
-other header and footer information from the title line.  These should
-be separated by pipe characters (`|`), as follows:
+other header and footer information from the title line. The title
+is assumed to be the first word on the title line, which may optionally
+end with a (single-digit) section number in parentheses. (There should
+be no space between the title and the parentheses.)  Anything after
+this is assumed to be additional footer and header text. A single pipe
+character (`|`) should be used to separate the footer text from the header
+text.  Thus,
 
-    % title | section number (1-9) | footer left | header center 
+    % pandoc(1)
 
-For example,
+will yield a man page with the title `pandoc` and section 1.
 
-    % pandoc | 1 | Pandoc User Manuals | Version 4.0
+    % pandoc(1) Pandoc User Manuals
 
-The middle of the man page footer is used for the date.
+will also have "Pandoc User Manuals" in the footer.
+
+    % pandoc(1) Pandoc User Manuals | Version 4.0
+
+will also have "Version 4.0" in the header.
 
 Markdown in HTML blocks
 -----------------------
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs
index f0cc3c707..318fb056a 100644
--- a/src/Text/Pandoc/Writers/Man.hs
+++ b/src/Text/Pandoc/Writers/Man.hs
@@ -69,15 +69,16 @@ metaToMan :: WriterOptions -- ^ Options, including Man header
           -> Meta          -- ^ Meta with bibliographic information
           -> State WriterState (Doc, Doc)
 metaToMan options (Meta title authors date) = do
-  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)
+  titleText <- inlineListToMan options title
+  let (cmdName, rest) = break (== ' ') $ render titleText
+  let (title', section) = case reverse cmdName of
+                            (')':d:'(':xs) | d `elem` ['0'..'9'] -> 
+                                  (text (reverse xs), text [d])
+                            xs -> (text (reverse xs), empty)                    
+  let extras = map (doubleQuotes . text . removeLeadingTrailingSpace) $
+               splitBy '|' rest
   let head = (text ".TH") <+> title' <+> section <+> 
-             doubleQuotes (text date) <+> hsep rest
+             doubleQuotes (text date) <+> hsep extras
   let foot = case length authors of
                 0 -> text $ ""
                 1 -> text $ ".SH AUTHOR\n" ++ joinWithSep ", " authors
-- 
cgit v1.2.3