diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 2 | ||||
| -rw-r--r-- | test/command/9000.md | 14 | ||||
| -rw-r--r-- | test/writer.org | 4 |
3 files changed, 17 insertions, 3 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) <> "]]" diff --git a/test/command/9000.md b/test/command/9000.md new file mode 100644 index 000000000..2c6336394 --- /dev/null +++ b/test/command/9000.md @@ -0,0 +1,14 @@ +``` +% pandoc -t org --wrap=auto --columns=20 +[This is a link with a long description that should not +wrap](http://example.com) and +some regular text after it so we can see how wrapping works. +^D +[[http://example.com][This is a link with a long description that should not wrap]] +and some regular +text after it so we +can see how wrapping +works. + +``` + diff --git a/test/writer.org b/test/writer.org index 48c2080ce..ee081d35d 100644 --- a/test/writer.org +++ b/test/writer.org @@ -571,8 +571,8 @@ a^b c^d, a~b c~d. 'He said, "I want to go."' Were you alive in the 70's? -Here is some quoted '=code=' and a "[[http://example.com/?foo=1&bar=2][quoted -link]]". +Here is some quoted '=code=' and a +"[[http://example.com/?foo=1&bar=2][quoted link]]". Some dashes: one---two --- three---four --- five. |