summaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2024-01-27 10:57:50 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2024-01-27 10:57:50 -0800
commitbc1caab557aacee60b80dc4faad2e1e9a49a2fb4 (patch)
tree53f87d85625ff97b3cb3c685418fa3bc3cb40aad /src/Text
parent6fe94a316a950bd2d1176dc4337f312e6e8e7b4a (diff)
EPUB writer: change default accessibilityFeatures.
Don't include ARIA and MathML in general; they won't apply for epub2 or documents without math.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/EPUB.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs
index ab1ce4bfc..9fdd8637a 100644
--- a/src/Text/Pandoc/Writers/EPUB.hs
+++ b/src/Text/Pandoc/Writers/EPUB.hs
@@ -413,9 +413,8 @@ metadataFromMeta opts meta = EPUBMetadata{
accessibilityFeatures =
case lookupMeta "accessibilityFeatures" meta of
Just (MetaList xs) -> map metaValueToString xs
- _ -> ["alternativeText","ARIA","MathML",
- "readingOrder", "structuralNavigation",
- "tableOfContents"]
+ _ -> ["alternativeText", "readingOrder",
+ "structuralNavigation", "tableOfContents"]
accessibilityHazards =
case lookupMeta "accessibilityHazards" meta of
Just (MetaList xs) -> map metaValueToString xs