aboutsummaryrefslogtreecommitdiff
path: root/test/Tests
diff options
context:
space:
mode:
authorAnders Waldenborg <anders@0x63.nu>2018-07-16 00:14:40 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2018-07-15 15:14:40 -0700
commitec30fb37c12fc5d1a248971831414891cf6dcbe7 (patch)
tree9b41353a8f3678381a09cdcfdf15ea0190461ca6 /test/Tests
parentef07db6cefb34b5a6d89fc7d40e0144b6d6440b6 (diff)
downloadpandoc-ec30fb37c12fc5d1a248971831414891cf6dcbe7.tar.gz
Wrap emojis in span nodes (#4759)
Text.Pandoc.Emoji now exports `emojiToInline`, which returns a Span inline containing the emoji character and some attributes with metadata (class `emoji`, attribute `data-emoji` with emoji name). Previously, emojis (as supported in Markdown and CommonMark readers, e.g ":smile:") were simply translated into the corresponding unicode code point. By wrapping them in Span nodes, we make it possible to do special handling such as giving them a special font in HTML output. We also open up the possibility of treating them differently when the `--ascii` option is selected (though that is not part of this commit). Closes #4743.
Diffstat (limited to 'test/Tests')
-rw-r--r--test/Tests/Readers/Markdown.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/test/Tests/Readers/Markdown.hs b/test/Tests/Readers/Markdown.hs
index e44c7fc19..bc8e55615 100644
--- a/test/Tests/Readers/Markdown.hs
+++ b/test/Tests/Readers/Markdown.hs
@@ -199,7 +199,9 @@ tests = [ testGroup "inline code"
]
, testGroup "emoji"
[ test markdownGH "emoji symbols" $
- ":smile: and :+1:" =?> para (text "😄 and 👍")
+ ":smile: and :+1:" =?> para (spanWith ("", ["emoji"], [("data-emoji", "smile")]) "😄" <>
+ space <> str "and" <> space <>
+ spanWith ("", ["emoji"], [("data-emoji", "+1")]) "👍")
]
, "unbalanced brackets" =:
"[[[[[[[[[[[[hi" =?> para (text "[[[[[[[[[[[[hi")