5df812f · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Merge branch 'claremacrae-dokuwiki'.

5df812fJohn MacFarlane12 years ago

src/Text/Pandoc/Writers/DokuWiki.hs+4−2

@@ -21,7 +21,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

22 License : GNU GPL, version 2 or above

24− Maintainer : John MacFarlane <jgm@berkeley.edu>

24+ Maintainer : Clare Macrae <clare.macrae@googlemail.com>

25 Stability : alpha

26 Portability : portable

@@ -126,7 +126,9 @@ blockToDokuWiki _ (RawBlock f str)

126blockToDokuWiki _ HorizontalRule = return "\n----\n"

127

128blockToDokuWiki opts (Header level _ inlines) = do

129+ -- emphasis, links etc. not allowed in headers, apparently,

130+ -- so we remove formatting:

129− contents <- inlineListToDokuWiki opts inlines

131+ contents <- inlineListToDokuWiki opts $ removeFormatting inlines

130 let eqs = replicate ( 7 - level ) '='

132 let eqs = replicate ( 7 - level ) '='

131 return $ eqs ++ " " ++ contents ++ " " ++ eqs ++ "\n"

133 return $ eqs ++ " " ++ contents ++ " " ++ eqs ++ "\n"

132

134

tests/writer.dokuwiki+3−3

@@ -5,9 +5,9 @@ This is a set of tests for pandoc. Most of them are adapted from John Gruber’s

6====== Headers ======

8−===== Level 2 with an [[url|embedded link]] =====

8+===== Level 2 with an embedded link =====

10−==== Level 3 with //emphasis// ====

10+==== Level 3 with emphasis ====

12=== Level 4 ===

@@ -15,7 +15,7 @@ This is a set of tests for pandoc. Most of them are adapted from John Gruber’s

16====== Level 1 ======

18−===== Level 2 with //emphasis// =====

18+===== Level 2 with emphasis =====

20==== Level 3 ====