From 59529e408b87274fb8e0375fa198a6636cb67a11 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 10 Jun 2019 14:47:04 -0700
Subject: Asciidoc writer: use doubled ## when necessary for spans.

Closes #5566.
---
 src/Text/Pandoc/Writers/AsciiDoc.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs
index cf5fec86f..460cce3ae 100644
--- a/src/Text/Pandoc/Writers/AsciiDoc.hs
+++ b/src/Text/Pandoc/Writers/AsciiDoc.hs
@@ -520,9 +520,11 @@ inlineToAsciiDoc opts (Note [Plain inlines]) = do
 inlineToAsciiDoc _ (Note _) = return "[multiblock footnote omitted]"
 inlineToAsciiDoc opts (Span (ident,classes,_) ils) = do
   contents <- inlineListToAsciiDoc opts ils
+  isIntraword <- gets intraword
+  let marker = if isIntraword then "##" else "#"
   if null ident && null classes
      then return contents
      else do
        let modifier = brackets $ text $ unwords $
             [ '#':ident | not (null ident)] ++ map ('.':) classes
-       return $ modifier <> "#" <> contents <> "#"
+       return $ modifier <> marker <> contents <> marker
-- 
cgit v1.2.3