diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2016-10-17 22:11:03 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2016-10-17 22:11:03 +0200 |
| commit | 1266b210ac51273cdfe2913fb1d710e1a20f5e9b (patch) | |
| tree | 639187068471e0717f574740d563cc7a46a3ec18 | |
| parent | f407b66405d4619d99a877c8332a6458fb8a4bbe (diff) | |
| download | pandoc-1266b210ac51273cdfe2913fb1d710e1a20f5e9b.tar.gz | |
Org writer: drop space before footnote markers
The writer no longer adds an extra space before footnote markers.
Fixes: #3162
| -rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 2 | ||||
| -rw-r--r-- | tests/writer.org | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index a74481171..18a820f2e 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -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 $ "[" <> text ref <> "]" orgPath :: String -> String orgPath src = diff --git a/tests/writer.org b/tests/writer.org index 6a86a4e3f..f8011e644 100644 --- a/tests/writer.org +++ b/tests/writer.org @@ -819,15 +819,15 @@ Here is a movie [[file:movie.jpg]] icon. :CUSTOM_ID: footnotes :END: -Here is a footnote reference, [1] and another. [2] This should /not/ be a +Here is a footnote reference,[1] and another.[2] This should /not/ be a footnote reference, because it contains a space.[\^my note] Here is an inline -note. [3] +note.[3] #+BEGIN_QUOTE - Notes can go in quotes. [4] + Notes can go in quotes.[4] #+END_QUOTE -1. And in list items. [5] +1. And in list items.[5] This paragraph should not be part of the note, as it is not indented. |