diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-11-24 14:47:00 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-11-24 14:47:00 -0800 |
| commit | 7726b69cd351b890b299402450f8d14747f0898a (patch) | |
| tree | 0a206322032a3eea087b8b02649420aacffdd678 | |
| parent | 6072bdcec95df9f537b22fb7df4a5f8ea7958189 (diff) | |
| download | pandoc-7726b69cd351b890b299402450f8d14747f0898a.tar.gz | |
LaTeX reader: omit visible content for `\label{...}`.
Previously we included the text of the label in square brackets,
but this is undesirable in many cases.
See discussion in
<https://github.com/jgm/pandoc/issues/813#issuecomment-978232426>.
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX/Inline.hs | 3 | ||||
| -rw-r--r-- | test/command/refs.md | 4 |
2 files changed, 2 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX/Inline.hs b/src/Text/Pandoc/Readers/LaTeX/Inline.hs index 0b49fd6c3..5938096fd 100644 --- a/src/Text/Pandoc/Readers/LaTeX/Inline.hs +++ b/src/Text/Pandoc/Readers/LaTeX/Inline.hs @@ -56,8 +56,7 @@ dolabel = do let refstr = untokenize v updateState $ \st -> st{ sLastLabel = Just refstr } - return $ spanWith (refstr,[],[("label", refstr)]) - $ inBrackets $ str $ untokenize v + return $ spanWith (refstr,[],[("label", refstr)]) mempty doref :: PandocMonad m => Text -> LP m Inlines doref cls = do diff --git a/test/command/refs.md b/test/command/refs.md index 34e51d219..c6457be4c 100644 --- a/test/command/refs.md +++ b/test/command/refs.md @@ -287,9 +287,7 @@ Figure \ref{fig:Logo3} illustrated the SVG logo \label{section} Section \ref{section} ^D [ Para - [ Span - ( "section" , [] , [ ( "label" , "section" ) ] ) - [ Str "[section]" ] + [ Span ( "section" , [] , [ ( "label" , "section" ) ] ) [] , Space , Str "Section" , Space |