From e5004bcff040a2bc85d7ed6acb42425d265f1bd2 Mon Sep 17 00:00:00 2001
From: claremacrae <github@cfmacrae.fastmail.co.uk>
Date: Tue, 6 Aug 2013 07:43:32 +0100
Subject: [PATCH] Implement strikeout in dokuwiki writer (#386)

---
 src/Text/Pandoc/Writers/DokuWiki.hs | 2 +-
 tests/writer.dokuwiki               | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs
index b172741de..db02bde89 100644
--- a/src/Text/Pandoc/Writers/DokuWiki.hs
+++ b/src/Text/Pandoc/Writers/DokuWiki.hs
@@ -378,7 +378,7 @@ inlineToDokuWiki opts (Strong lst) = do
 
 inlineToDokuWiki opts (Strikeout lst) = do
   contents <- inlineListToDokuWiki opts lst
-  return $ "<s>" ++ contents ++ "</s>"
+  return $ "<del>" ++ contents ++ "</del>"
 
 inlineToDokuWiki opts (Superscript lst) = do
   contents <- inlineListToDokuWiki opts lst
diff --git a/tests/writer.dokuwiki b/tests/writer.dokuwiki
index 27fb29007..9063ab917 100644
--- a/tests/writer.dokuwiki
+++ b/tests/writer.dokuwiki
@@ -435,7 +435,7 @@ So is **//this//** word.
 
 This is code: <code>&gt;</code>, <code>$</code>, <code>\</code>, <code>\$</code>, <code>&lt;html&gt;</code>.
 
-<s>This is //strikeout//.</s>
+<del>This is //strikeout//.</del>
 
 Superscripts: a<sup>bc</sup>d a<sup>//hello//</sup> a<sup>hello there</sup>.