@@ -155,13 +155,18 @@ parseBlock = choice [ parseList
155155 , parseDefinitionList
156156 , parseBlockQuote
157157 , parseTitle
158+ , parseNewParagraph
158159 , parsePara
159− , parseSkippedContent
160160 , parseCodeBlock
161161 , parseHeader
162162 , skipUnkownMacro
163163 ]
164164
165+parseNewParagraph :: PandocMonad m => ManParser m Blocks
166+parseNewParagraph = do
167+ mmacro "P" <|> mmacro "PP" <|> mmacro "LP" <|> memptyLine
168+ return mempty
169+
165170eofline :: Stream s m Char => ParsecT s u m ()
166171eofline = void newline <|> eof
167172
@@ -299,7 +304,7 @@ lexMacro = do
299304 "\\\"" -> return mempty
300305 "\\#" -> return mempty
301306 "de" -> lexMacroDef args
302− x | x `elem` [ "P", "PP", "LP", "sp"] -> return $ singleTok MEmptyLine
307+ "sp" -> return $ singleTok MEmptyLine
303308 _ -> resolveMacro macroName args
304309
305310 where
@@ -479,9 +484,6 @@ parseTitle = do
479484 modifyState $ \st -> st{ metadata = adjustMeta $ metadata st }
480485 return mempty
481486
482−parseSkippedContent :: PandocMonad m => ManParser m Blocks
483−parseSkippedContent = mempty <$ memptyLine
484−
485487linePartsToInlines :: [LinePart] -> Inlines
486488linePartsToInlines = go
487489