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

LaTeX reader: Set identifiers on Spans used for \label.

Browse source
This commit is contained in:
John MacFarlane 2017-08-20 16:52:03 -07:00
parent f2fdd275fd
commit 9cc128b579
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Readers/LaTeX.hs
View file

@ -1575,7 +1575,8 @@ treatAsInline = Set.fromList
dolabel :: PandocMonad m => LP m Inlines dolabel :: PandocMonad m => LP m Inlines
dolabel = do dolabel = do
v <- braced v <- braced
return $ spanWith ("",[],[("label", toksToString v)]) let refstr = toksToString v
return $ spanWith (refstr,[],[("label", refstr)])
$ inBrackets $ str $ toksToString v $ inBrackets $ str $ toksToString v
doref :: PandocMonad m => String -> LP m Inlines doref :: PandocMonad m => String -> LP m Inlines

2
test/command/refs.md
View file

@ -50,5 +50,5 @@ Figure \ref{fig:Logo} illustrated the SVG logo
% pandoc -f latex -t native % pandoc -f latex -t native
\label{section} Section \ref{section} \label{section} Section \ref{section}
^D ^D
[Para [Span ("",[],[("label","section")]) [Str "[section]"],Space,Str "Section",Space,Link ("",[],[("reference-type","ref"),("reference","section")]) [Str "[section]"] ("#section","")]] [Para [Span ("section",[],[("label","section")]) [Str "[section]"],Space,Str "Section",Space,Link ("",[],[("reference-type","ref"),("reference","section")]) [Str "[section]"] ("#section","")]]
``` ```