[PATCH 6/8] mdoc_html: Add accessible description to crosslinks

["Anna “CyberTailor”" <cyber@sysrq.in>]

Never hear "mdoc, left parenthesis, 7, right parenthesis" again.
---
 html.c      |  3 +++
 mdoc_html.c | 25 +++++++++++++++++--------
 2 files changed, 20 insertions(+), 8 deletions(-)

diff --git a/html.c b/html.c
index 4710bab7..3239a09b 100644
--- a/html.c
+++ b/html.c
@@ -709,6 +709,9 @@ print_otag(struct html *h, enum htmltag tag, const char *fmt, ...)
 		case 'i':
 			attr = "id";
 			break;
+		case 'l':
+			attr = "aria-label";
+			break;
 		case 'r':
 			attr = "role";
 			break;
diff --git a/mdoc_html.c b/mdoc_html.c
index 076a6bac..cf2e8804 100644
--- a/mdoc_html.c
+++ b/mdoc_html.c
@@ -667,26 +667,35 @@ mdoc_nm_pre(MDOC_ARGS)
 static int
 mdoc_xr_pre(MDOC_ARGS)
 {
+	char	*name = NULL, *section = NULL, *label = NULL;
+
 	if (NULL == n->child)
 		return 0;
 
+	name = n->child->string;
+	label = name;
+	if (NULL != n->child->next)
+		section = n->child->next->string;
+
+	if (NULL != section)
+		mandoc_asprintf(&label, "%s, section %s", name, section);
+
 	if (h->base_man1)
-		print_otag(h, TAG_A, "chM", "Xr",
-		    n->child->string, n->child->next == NULL ?
-		    NULL : n->child->next->string);
+		print_otag(h, TAG_A, "clhM", "Xr", label, name, section);
 	else
-		print_otag(h, TAG_A, "c", "Xr");
+		print_otag(h, TAG_A, "cl", "Xr", label);
 
-	n = n->child;
-	print_text(h, n->string);
+	free(label);
+
+	print_text(h, name);
 
-	if (NULL == (n = n->next))
+	if (NULL == section)
 		return 0;
 
 	h->flags |= HTML_NOSPACE;
 	print_text(h, "(");
 	h->flags |= HTML_NOSPACE;
-	print_text(h, n->string);
+	print_text(h, section);
 	h->flags |= HTML_NOSPACE;
 	print_text(h, ")");
 	return 0;
-- 
2.35.1

--
 To unsubscribe send an email to tech+unsubscribe@mandoc.bsd.lv