diff options
| author | claremacrae <github@cfmacrae.fastmail.co.uk> | 2013-08-17 11:20:51 +0100 |
|---|---|---|
| committer | claremacrae <github@cfmacrae.fastmail.co.uk> | 2013-08-17 11:20:51 +0100 |
| commit | 573bd1b61b58e66c1e0ecfb4e74928a9d9d27daf (patch) | |
| tree | 6c4acb9799c1e170d22b837c014cb5579846c3ae /src/Text | |
| parent | eb4fe5e82c65b5dc2f5689e4b1bceff0179397b5 (diff) | |
| download | pandoc-573bd1b61b58e66c1e0ecfb4e74928a9d9d27daf.tar.gz | |
Implement <code> blocks in dokuwiki writer (#386)
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/DokuWiki.hs | 3 |
1 files changed, 1 insertions, 2 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 |