@@ -520,9 +520,11 @@ inlineToAsciiDoc opts (Note [Plain inlines]) = do
520520inlineToAsciiDoc _ (Note _) = return "[multiblock footnote omitted]"
521521inlineToAsciiDoc opts (Span (ident,classes,_) ils) = do
522522 contents <- inlineListToAsciiDoc opts ils
523+ isIntraword <- gets intraword
524+ let marker = if isIntraword then "##" else "#"
523525 if null ident && null classes
524526 then return contents
525527 else do
526528 let modifier = brackets $ text $ unwords $
527529 [ '#':ident | not (null ident)] ++ map ('.':) classes
528− return $ modifier <> "#" <> contents <> "#"
530+ return $ modifier <> marker <> contents <> marker