From 7647d87657b324b268e7d1bf1b6fe9056312d55e Mon Sep 17 00:00:00 2001 From: Clare Macrae Date: Wed, 2 Jul 2014 22:26:11 +0100 Subject: DokuWiki writer: Add new test showing that span swallows content. --- tests/dokuwiki.inline_formatting.dokuwiki | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 tests/dokuwiki.inline_formatting.dokuwiki (limited to 'tests/dokuwiki.inline_formatting.dokuwiki') diff --git a/tests/dokuwiki.inline_formatting.dokuwiki b/tests/dokuwiki.inline_formatting.dokuwiki new file mode 100644 index 000000000..2faf49eec --- /dev/null +++ b/tests/dokuwiki.inline_formatting.dokuwiki @@ -0,0 +1,9 @@ +Regular text //italics// **bold //bold italics//**. + +This is Small Caps, and this is strikethrough. + +Some people use . + +Above the line is superscript and below the line is subscript. + +A line\\ break. -- cgit v1.2.3 From 0c6f06b8a493bf9bc578a0b882939bac130e16f0 Mon Sep 17 00:00:00 2001 From: Clare Macrae Date: Wed, 2 Jul 2014 22:40:34 +0100 Subject: DokuWiki writer: Span no longer swallows text --- src/Text/Pandoc/Writers/DokuWiki.hs | 8 ++------ tests/dokuwiki.inline_formatting.dokuwiki | 2 +- 2 files changed, 3 insertions(+), 7 deletions(-) (limited to 'tests/dokuwiki.inline_formatting.dokuwiki') diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs index 76a0463eb..ea56ac393 100644 --- a/src/Text/Pandoc/Writers/DokuWiki.hs +++ b/src/Text/Pandoc/Writers/DokuWiki.hs @@ -31,7 +31,6 @@ DokuWiki: -} {- - [ ] Correct handling of Span [ ] Implement nested blockquotes (currently only ever does one level) [ ] Implement alignment of text in tables [ ] Implement comments @@ -348,12 +347,9 @@ inlineListToDokuWiki opts lst = mapM (inlineToDokuWiki opts) lst >>= return . co -- | Convert Pandoc inline element to DokuWiki. inlineToDokuWiki :: WriterOptions -> Inline -> State WriterState String -inlineToDokuWiki _opts (Span _attrs _ils) = do - return "" - {- +inlineToDokuWiki opts (Span _attrs ils) = do contents <- inlineListToDokuWiki opts ils - return $ render Nothing (tagWithAttrs "span" attrs) ++ contents ++ "" - -} + return contents inlineToDokuWiki opts (Emph lst) = do contents <- inlineListToDokuWiki opts lst diff --git a/tests/dokuwiki.inline_formatting.dokuwiki b/tests/dokuwiki.inline_formatting.dokuwiki index 2faf49eec..e02596e6c 100644 --- a/tests/dokuwiki.inline_formatting.dokuwiki +++ b/tests/dokuwiki.inline_formatting.dokuwiki @@ -2,7 +2,7 @@ Regular text //italics// **bold //bold italics//**. This is Small Caps, and this is strikethrough. -Some people use . +Some people use single underlines for //emphasis//. Above the line is superscript and below the line is subscript. -- cgit v1.2.3