aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2016-12-21 23:43:05 +0100
committerAlbert Krewinkel <albert@zeitkraut.de>2016-12-21 23:51:15 +0100
commitd27188ad309feb9a76f6dc3d816ad78722078fe1 (patch)
tree99df4307c0f060ac9c847a4999f99f66e95fd56c /src/Text
parentb5ce9635caa6dac47ef015230736061c5916cdd4 (diff)
downloadpandoc-d27188ad309feb9a76f6dc3d816ad78722078fe1.tar.gz
Org writer: prefix footnote numbers with `fn:`
Unprefixed numbers where used by older org-mode versions, but are no longer supported.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/Org.hs4
1 files changed, 2 insertions, 2 deletions
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 =