From 573bd1b61b58e66c1e0ecfb4e74928a9d9d27daf Mon Sep 17 00:00:00 2001
From: claremacrae <github@cfmacrae.fastmail.co.uk>
Date: Sat, 17 Aug 2013 11:20:51 +0100
Subject: Implement <code> blocks in dokuwiki writer (#386)

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

diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs
index 76fe2fa36..97b1705d1 100644
--- a/src/Text/Pandoc/Writers/DokuWiki.hs
+++ b/src/Text/Pandoc/Writers/DokuWiki.hs
@@ -32,7 +32,6 @@ DokuWiki:  <https://www.dokuwiki.org/dokuwiki>
 
 {-
     [ ] Don't generate <blockquote>...
-    [ ] Don't generate <pre>...
     [ ] Implement definition lists
     [ ] Don't generate lists using <ol> and <ul>
     [ ] Don't generate <div>
@@ -142,7 +141,7 @@ blockToDokuWiki _ (CodeBlock (_,classes,_) str) = do
                        "smalltalk", "smarty", "sql", "tcl", "", "thinbasic", "tsql", "vb", "vbnet", "vhdl",
                        "visualfoxpro", "winbatch", "xml", "xpp", "z80"]
   let (beg, end) = if null at
-                      then ("<pre" ++ if null classes then ">" else " class=\"" ++ unwords classes ++ "\">", "</pre>")
+                      then ("<code" ++ if null classes then ">" else " class=\"" ++ unwords classes ++ "\">", "</code>")
                       else ("<source lang=\"" ++ head at ++ "\">", "</source>")
   return $ beg ++ escapeString str ++ end
 
diff --git a/tests/writer.dokuwiki b/tests/writer.dokuwiki
index 9063ab917..b9a8a3c05 100644
--- a/tests/writer.dokuwiki
+++ b/tests/writer.dokuwiki
@@ -50,9 +50,9 @@ E-mail style:
 </blockquote>
 <blockquote>Code in a block quote:
 
-<pre>sub status {
+<code>sub status {
     print &quot;working&quot;;
-}</pre>
+}</code>
 A list:
 
   - item one
@@ -75,18 +75,18 @@ And a following paragraph.
 
 Code:
 
-<pre>---- (should be four hyphens)
+<code>---- (should be four hyphens)
 
 sub status {
     print &quot;working&quot;;
 }
 
-this code block is indented by one tab</pre>
+this code block is indented by one tab</code>
 And:
 
-<pre>    this code block is indented by two tabs
+<code>    this code block is indented by two tabs
 
-These should not be escaped:  \$ \\ \&gt; \[ \{</pre>
+These should not be escaped:  \$ \\ \&gt; \[ \{</code>
 
 ----
 
@@ -276,7 +276,7 @@ Multiple blocks with italics:
 <p>contains seeds, crisp, pleasant to taste</p></dd>
 <dt>//orange//</dt>
 <dd><p>orange fruit</p>
-<pre>{ orange code block }</pre>
+<code>{ orange code block }</code>
 <blockquote><p>orange block quote</p></blockquote></dd></dl>
 
 Multiple definitions, tight:
@@ -352,12 +352,12 @@ foo
 
 This should be a code block, though:
 
-<pre>&lt;div&gt;
+<code>&lt;div&gt;
     foo
-&lt;/div&gt;</pre>
+&lt;/div&gt;</code>
 As should this:
 
-<pre>&lt;div&gt;foo&lt;/div&gt;</pre>
+<code>&lt;div&gt;foo&lt;/div&gt;</code>
 Now, nested:
 
 <div>
@@ -386,14 +386,14 @@ Blah
 
 Code block:
 
-<pre>&lt;!-- Comment --&gt;</pre>
+<code>&lt;!-- Comment --&gt;</code>
 Just plain comment, with trailing spaces on the line:
 
 <!-- foo -->   
 
 Code:
 
-<pre>&lt;hr /&gt;</pre>
+<code>&lt;hr /&gt;</code>
 Hr’s:
 
 <hr>
@@ -588,7 +588,7 @@ Indented [[url|thrice]].
 
 This should [not][] be a link.
 
-<pre>[not]: /url</pre>
+<code>[not]: /url</code>
 Foo [[url/|bar]].
 
 Foo [[url/|biz]].
@@ -617,7 +617,7 @@ An e-mail address: [[mailto:nobody@nowhere.net|nobody@nowhere.net]]
 </blockquote>
 Auto-links should not occur here: <code>&lt;http://example.com/&gt;</code>
 
-<pre>or here: &lt;http://example.com/&gt;</pre>
+<code>or here: &lt;http://example.com/&gt;</code>
 
 ----
 
@@ -639,7 +639,7 @@ Here is a footnote reference,((Here is the footnote. It can go anywhere after th
 
 Subsequent blocks are indented to show that they belong to the footnote (as with list items).
 
-<pre>  { &lt;code&gt; }</pre>
+<code>  { &lt;code&gt; }</code>
 If you want, you can indent every line, but you can also be lazy and just indent the first line of each block.
 )) This should //not// be a footnote reference, because it contains a space.[^my note] Here is an inline note.((This is //easier// to type. Inline notes may contain [[http://google.com|links]] and <code>]</code> verbatim characters, as well as [bracketed text].
 ))
-- 
cgit v1.2.3