From 1809f64a4cacdfe4bb7463b52181ceb74502ccd9 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 23 Mar 2017 11:56:13 +0100
Subject: Ms writer: Improved footnotes.

---
 src/Text/Pandoc/Writers/Ms.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc')

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
-- 
cgit v1.2.3