From d27188ad309feb9a76f6dc3d816ad78722078fe1 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Wed, 21 Dec 2016 23:43:05 +0100
Subject: Org writer: prefix footnote numbers with `fn:`

Unprefixed numbers where used by older org-mode versions, but are no
longer supported.
---
 src/Text/Pandoc/Writers/Org.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs
index a2f20d830..4302459cc 100644
--- a/src/Text/Pandoc/Writers/Org.hs
+++ b/src/Text/Pandoc/Writers/Org.hs
@@ -92,7 +92,7 @@ notesToOrg notes =
 noteToOrg :: Int -> [Block] -> State WriterState Doc
 noteToOrg num note = do
   contents <- blockListToOrg note
-  let marker = "[" ++ show num ++ "] "
+  let marker = "[fn:" ++ show num ++ "] "
   return $ hang (length marker) (text marker) contents
 
 -- | Escape special characters for Org.
@@ -373,7 +373,7 @@ inlineToOrg (Note contents) = do
   notes <- get >>= (return . stNotes)
   modify $ \st -> st { stNotes = contents:notes }
   let ref = show $ (length notes) + 1
-  return $ "[" <> text ref <> "]"
+  return $ "[fn:" <> text ref <> "]"
 
 orgPath :: String -> String
 orgPath src =
-- 
cgit v1.2.3