@@ -45,6 +45,7 @@ module Text.Pandoc.Pretty (
4545 , hang
4646 , beforeNonBlank
4747 , nowrap
48+ , afterBreak
4849 , offset
4950 , minOffset
5051 , height
@@ -101,6 +102,7 @@ data D = Text Int String
101102 | BeforeNonBlank Doc
102103 | Flush Doc
103104 | BreakingSpace
105+ | AfterBreak String
104106 | CarriageReturn
105107 | NewLine
106108 | BlankLines Int -- number of blank lines
@@ -306,6 +308,7 @@ renderList (BreakingSpace : BreakingSpace : xs) = renderList (BreakingSpace:xs)
306308renderList (BreakingSpace : xs) = do
307309 let isText (Text _ _) = True
308310 isText (Block _ _) = True
311+ isText (AfterBreak _) = True
309312 isText _ = False
310313 let isBreakingSpace BreakingSpace = True
311314 isBreakingSpace _ = False
@@ -321,6 +324,13 @@ renderList (BreakingSpace : xs) = do
321324 outp 1 " "
322325 renderList xs'
323326
327+renderList (AfterBreak s : xs) = do
328+ st <- get
329+ if newlines st > 0
330+ then outp (realLength s) s
331+ else return ()
332+ renderList xs
333+
324334renderList (Block i1 s1 : Block i2 s2 : xs) =
325335 renderList (mergeBlocks False (IsBlock i1 s1) (IsBlock i2 s2) : xs)
326336
@@ -422,6 +432,11 @@ nowrap doc = Doc $ mapWithIndex replaceSpace $ unDoc doc
422432 where replaceSpace _ BreakingSpace = Text 1 " "
423433 replaceSpace _ x = x
424434
435+-- | Content to print only if it comes at the beginning of a line,
436+-- to be used e.g. for escaping line-initial `.` in groff man.
437+afterBreak :: String -> Doc
438+afterBreak s = Doc $ singleton (AfterBreak s)
439+
425440-- | Returns the width of a 'Doc'.
426441offset :: Doc -> Int
427442offset d = case map realLength . lines . render Nothing $ d of