diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-09-04 14:56:37 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-09-04 14:57:22 -0700 |
| commit | 0e31483d4358a6d2b4ba96c71237e3f7b32979a1 (patch) | |
| tree | 2d7bb24d1784bfccb82fe90ef1ab78aa8b280664 /src/Text/Pandoc | |
| parent | e7b8728ad2f4afd588a1105352d2b5feae044eee (diff) | |
| download | pandoc-0e31483d4358a6d2b4ba96c71237e3f7b32979a1.tar.gz | |
asciidoc writer: don't include `+` in code blocks for regular asciidoc.
This is asciidoctor-specific.
Amends 98ee6ca289ad7117b7336a57bcfc6f4b54463f4e.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/AsciiDoc.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs index 38c9b3bf3..f360aeee1 100644 --- a/src/Text/Pandoc/Writers/AsciiDoc.hs +++ b/src/Text/Pandoc/Writers/AsciiDoc.hs @@ -457,8 +457,13 @@ inlineToAsciiDoc opts (Quoted qt lst) = do DoubleQuote | isAsciidoctor -> [Str "\"`"] ++ lst ++ [Str "`\""] | otherwise -> [Str "``"] ++ lst ++ [Str "''"] -inlineToAsciiDoc _ (Code _ str) = return $ - text "`+" <> text (escapeStringUsing (backslashEscapes "`") str) <> "+`" +inlineToAsciiDoc _ (Code _ str) = do + isAsciidoctor <- gets asciidoctorVariant + let contents = text (escapeStringUsing (backslashEscapes "`") str) + return $ + if isAsciidoctor + then text "`+" <> contents <> "+`" + else text "`" <> contents <> "`" inlineToAsciiDoc _ (Str str) = return $ text $ escapeString str inlineToAsciiDoc _ (Math InlineMath str) = do isAsciidoctor <- gets asciidoctorVariant |