Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Org writer: drop space before footnote markers

Browse source 
The writer no longer adds an extra space before footnote markers.

Fixes: #3162
This commit is contained in:
Albert Krewinkel 2016-10-17 22:11:03 +02:00
parent f407b66405
commit 1266b210ac
No known key found for this signature in database
GPG key ID: 388DC0B21F631124
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/Org.hs
View file

@ -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 =

8
tests/writer.org
View file

@ -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.