Merge pull request #437 from michaelt/patch-1

escape initial dot in code lines
2012-03-07 10:50:08 -08:00 · 2012-03-07 10:50:08 -08:00 · 45aed51628
commit 45aed51628
parent 8a8d4a8abc 698eb059b7
1 changed files with 5 additions and 1 deletions
--- a/src/Text/Pandoc/Writers/Man.hs
+++ b/src/Text/Pandoc/Writers/Man.hs
@ -112,7 +112,11 @@ escapeString = escapeStringUsing manEscapes

 -- | Escape a literal (code) section for Man.
 escapeCode :: String -> String
-escapeCode = escapeStringUsing (manEscapes ++ backslashEscapes "\t ")
+escapeCode = concat . intersperse "\n" . map escapeLine . lines  where
+  escapeLine codeline = 
+    case escapeStringUsing (manEscapes ++ backslashEscapes "\t ") codeline of
+      a@('.':_) -> "\\&" ++ a
+      b       -> b

 -- We split inline lists into sentences, and print one sentence per
 -- line.  groff/troff treats the line-ending period differently.