summaryrefslogtreecommitdiff
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
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.
-rw-r--r--MANUAL.txt2
-rw-r--r--src/Text/Pandoc/Writers/EPUB.hs5
2 files changed, 2 insertions, 5 deletions
diff --git a/MANUAL.txt b/MANUAL.txt
index b87b75368..808e853b1 100644
--- a/MANUAL.txt
+++ b/MANUAL.txt
@@ -6857,8 +6857,6 @@ The following fields are recognized:
Defaults to
- "alternativeText"
- - "ARIA"
- - "MathML"
- "readingOrder"
- "structuralNavigation"
- "tableOfContents"
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