Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

ZimWiki writer: allow links and emphasis in headers

Browse source 
The latest version of ZimWiki supports this.

Closes: #6605
This commit is contained in:
Albert Krewinkel 2021-05-20 10:48:28 +02:00
parent 5736b331d8
commit b6239f4150
No known key found for this signature in database
GPG key ID: 388DC0B21F631124
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/ZimWiki.hs
View file

@ -116,7 +116,7 @@ blockToZimWiki opts b@(RawBlock f str)
blockToZimWiki _ HorizontalRule = return "\n----\n" blockToZimWiki _ HorizontalRule = return "\n----\n"
blockToZimWiki opts (Header level _ inlines) = do blockToZimWiki opts (Header level _ inlines) = do
contents <- inlineListToZimWiki opts $ removeFormatting inlines -- emphasis, links etc. not allowed in headers contents <- inlineListToZimWiki opts inlines
let eqs = T.replicate ( 7 - level ) "=" let eqs = T.replicate ( 7 - level ) "="
return $ eqs <> " " <> contents <> " " <> eqs <> "\n" return $ eqs <> " " <> contents <> " " <> eqs <> "\n"

6
test/writer.zimwiki
View file

@ -8,9 +8,9 @@ This is a set of tests for pandoc. Most of them are adapted from John Gruber’s
====== Headers ====== ====== Headers ======
===== Level 2 with an embedded link ===== ===== Level 2 with an [[url|embedded link]] =====
==== Level 3 with emphasis ==== ==== Level 3 with //emphasis// ====
=== Level 4 === === Level 4 ===
@ -18,7 +18,7 @@ This is a set of tests for pandoc. Most of them are adapted from John Gruber’s
====== Level 1 ====== ====== Level 1 ======
===== Level 2 with emphasis ===== ===== Level 2 with //emphasis// =====
==== Level 3 ==== ==== Level 3 ====