From bc1caab557aacee60b80dc4faad2e1e9a49a2fb4 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 27 Jan 2024 10:57:50 -0800
Subject: EPUB writer: change default accessibilityFeatures.

Don't include ARIA and MathML in general; they won't apply for
epub2 or documents without math.
---
 MANUAL.txt                      | 2 --
 src/Text/Pandoc/Writers/EPUB.hs | 5 ++---
 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
-- 
cgit v1.2.3