diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2016-12-21 23:43:05 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2016-12-21 23:51:15 +0100 |
| commit | d27188ad309feb9a76f6dc3d816ad78722078fe1 (patch) | |
| tree | 99df4307c0f060ac9c847a4999f99f66e95fd56c /src/Text | |
| parent | b5ce9635caa6dac47ef015230736061c5916cdd4 (diff) | |
| download | pandoc-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.hs | 4 |
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 = |