diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-23 11:56:13 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-23 11:56:13 +0100 |
| commit | 1809f64a4cacdfe4bb7463b52181ceb74502ccd9 (patch) | |
| tree | 5561dd7908b2f9a99cc51b28e7c3990487a11722 /src/Text/Pandoc | |
| parent | da0aae9c8fb7cf03e9577b8ae8dce1f2d23c25e9 (diff) | |
Ms writer: Improved footnotes.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Ms.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs index 0c3586aa6..3315548e2 100644 --- a/src/Text/Pandoc/Writers/Ms.hs +++ b/src/Text/Pandoc/Writers/Ms.hs @@ -57,7 +57,7 @@ TODO: A big advantage of gropdf: it supports the tag \X'pdf: pdfpic file alignment width height line-length' and also seems to support bookmarks. -[ ] avoid blank line after footnote marker when footnote has a +[x] avoid blank line after footnote marker when footnote has a paragraph [ ] better smallcaps support, see below... [ ] add via groff option to PDF module @@ -448,7 +448,12 @@ handleNotes opts fallback = do handleNote :: PandocMonad m => WriterOptions -> Note -> MS m Doc handleNote opts bs = do - contents <- blockListToMs opts bs + -- don't start with Paragraph or we'll get a spurious blank + -- line after the note ref: + let bs' = case bs of + (Para ils : rest) -> Plain ils : rest + _ -> bs + contents <- blockListToMs opts bs' return $ cr <> text ".FS" $$ contents $$ text ".FE" <> cr fontChange :: PandocMonad m => MS m Doc |