diff options
| author | John MacFarlane <[email protected]> | 2025-07-27 11:17:06 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2025-07-27 11:17:06 -0700 |
| commit | bfbf67ca5daad4d0f04315e5233c748e65082fae (patch) | |
| tree | 2f2aceb9bde2e252c4e7b71713da18103bfeb997 /src | |
| parent | 8735bc03d8b9da1663f696dc348342c0e424a141 (diff) | |
Org writer: don't wrap link descriptions.
Org doesn't reliable display these as links if they have hard breaks.
Closes #9000.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index 50fd10cc9..0a1137744 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -547,7 +547,7 @@ inlineToOrg (Link _ txt (src, _)) = case txt of [Str x] | escapeURI x == src -> -- autolink return $ "[[" <> literal (orgPath x) <> "]]" - _ -> do contents <- inlineListToOrg txt + _ -> do contents <- nowrap <$> inlineListToOrg txt return $ "[[" <> literal (orgPath src) <> "][" <> contents <> "]]" inlineToOrg (Image _ _ (source, _)) = return $ "[[" <> literal (orgPath source) <> "]]" |