diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-08-09 09:14:52 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-09 09:15:50 -0700 |
commit | 09b7df472dbc171e6130090dfec0f7b71d1d955e (patch) | |
tree | 2d0765f315c9adaad787da290b7bf76a347aadb6 | |
parent | db55f7c1b243cbc82c70276c7dfb9c0403e369b0 (diff) | |
download | pandoc-09b7df472dbc171e6130090dfec0f7b71d1d955e.tar.gz |
LaTeX reader: Use `label` instead of `data-label` for label in caption.
See d441e656db576f266c4866e65ff9e4705d376381, #3639.
-rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 2 | ||||
-rw-r--r-- | test/command/2118.md | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index e51f797af..0f0e71b93 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -1632,7 +1632,7 @@ setCaption = do try $ spaces >> controlSeq "label" >> (Just <$> tok) let ils' = case mblabel of Just lab -> ils <> spanWith - ("",[],[("data-label", stringify lab)]) mempty + ("",[],[("label", stringify lab)]) mempty Nothing -> ils updateState $ \st -> st{ sCaption = Just ils' } return mempty diff --git a/test/command/2118.md b/test/command/2118.md index d640e2e2b..27b3723d3 100644 --- a/test/command/2118.md +++ b/test/command/2118.md @@ -7,5 +7,5 @@ \label{fig:setminus} \end{figure} ^D -[Para [Image ("",[],[("width","80%")]) [Str "Set",Space,Str "subtraction",Span ("",[],[("data-label","fig:setminus")]) []] ("setminus.png","fig:")]] +[Para [Image ("",[],[("width","80%")]) [Str "Set",Space,Str "subtraction",Span ("",[],[("label","fig:setminus")]) []] ("setminus.png","fig:")]] ``` |