e61d1d0 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Asciidoc writer: Render Spans using `[#id .class]#contents#`.

e61d1d0John MacFarlane8 years ago

src/Text/Pandoc/Writers/AsciiDoc.hs+7−3

@@ -479,7 +479,11 @@ inlineToAsciiDoc opts (Note [Plain inlines]) = do

479 return $ text "footnote:[" <> contents <> "]"

480-- asciidoc can't handle blank lines in notes

481inlineToAsciiDoc _ (Note _) = return "[multiblock footnote omitted]"

482−inlineToAsciiDoc opts (Span (ident,_,_) ils) = do

482+inlineToAsciiDoc opts (Span (ident,classes,_) ils) = do

483− let identifier = if null ident then empty else "[[" <> text ident <> "]]"

484 contents <- inlineListToAsciiDoc opts ils

483 contents <- inlineListToAsciiDoc opts ils

485− return $ identifier <> contents

484+ if null ident && null classes

485+ then return contents

486+ else do

487+ let modifier = brackets $ text $ unwords $

488+ [ '#':ident | not (null ident)] ++ map ('.':) classes

489+ return $ modifier <> "#" <> contents <> "#"

test/command/5080.mdnew file+6

@@ -0,0 +1,6 @@

1+```

2+pandoc -t asciidoc

3+[foo *bar*]{.small .red key=val}

4+^D

5+[.small .red]#foo _bar_#

6+```