diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-11-02 22:58:25 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-11-02 22:58:25 -0700 |
| commit | 9719b0c74c8266a63b40dfacfe83f03de9c1d62a (patch) | |
| tree | 8270e7643d401ee6c3be2cc84a3be9c44d0e4f0e /src | |
| parent | d18d9623b1d5bed5c92ea665dbd24c0a572d356c (diff) | |
| download | pandoc-9719b0c74c8266a63b40dfacfe83f03de9c1d62a.tar.gz | |
Roff reader: Handle 'H' modifier after '.TS'.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Roff.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs index 2bf2d070e..8121bedfe 100644 --- a/src/Text/Pandoc/Readers/Roff.hs +++ b/src/Text/Pandoc/Readers/Roff.hs @@ -376,7 +376,6 @@ lexMacro = do "ie" -> lexConditional "ie" "if" -> lexConditional "if" "el" -> lexConditional "el" - "TS" -> lexTable pos _ -> do args <- lexArgs @@ -384,6 +383,7 @@ lexMacro = do "" -> return mempty "\\\"" -> return mempty "\\#" -> return mempty + "TS" -> lexTable pos "de" -> lexMacroDef args "de1" -> lexMacroDef args "ds" -> lexStringDef args @@ -458,8 +458,7 @@ tableOption = do char '(' manyTill anyChar (char ')') skipMany spacetab - optional (char ',') - skipMany spacetab + optional (char ',' >> skipMany spacetab) return (k,v) tableFormatSpec :: PandocMonad m => RoffLexer m [[CellFormat]] |