From 99117e1f57f516550e05b653514d5cfe46688cab Mon Sep 17 00:00:00 2001
From: Nick Bowler <nbowler@draconx.ca>
Date: Tue, 23 Feb 2021 20:53:09 -0500
Subject: [PATCH] Try to allow word wrapping to occur in email addresses.

---
 content/style.scss  |  2 ++
 layouts/default.xsl | 24 ++++++++++++++++++++++++
 2 files changed, 26 insertions(+)

diff --git a/content/style.scss b/content/style.scss
index e517d90..5e91c9e 100644
--- a/content/style.scss
+++ b/content/style.scss
@@ -366,6 +366,8 @@ table.filelist {
 #footer p { color: $annotationcolour; }
 #article-info p { font-style: italic; }
 
+.wbr:after { content: "\200b"; }
+
 // "unordered" lists with explicit ordering in content
 ul.ordered > {
     li { list-style: none; }
diff --git a/layouts/default.xsl b/layouts/default.xsl
index f0fddc9..a97f784 100644
--- a/layouts/default.xsl
+++ b/layouts/default.xsl
@@ -179,6 +179,30 @@
   <pre>&#x2060;<code><xsl:value-of select='f:strip-leading(.)' /></code></pre>
 </xsl:template>
 
+<!--
+  Attempt to wrap the first bit of linked email addresses to allow
+  linewrapping to occur after the '@'.
+-->
+<xsl:template match='xhtml:a[starts-with(@href,"mailto:")]/text()'>
+  <xsl:variable name='addr' select='substring-after(../@href, "mailto:")' />
+
+  <xsl:variable name='wrap'
+    select='concat(substring-before($addr, "@"), "@")' />
+
+  <xsl:choose>
+    <xsl:when test='contains(., $wrap)'>
+      <xsl:value-of select='substring-before(., $wrap)' />
+      <span class='wbr'>
+        <xsl:value-of select='$wrap' />
+      </span>
+      <xsl:value-of select='substring-after(., $wrap)' />
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:copy />
+    </xsl:otherwise>
+  </xsl:choose>
+</xsl:template>
+
 <!--
   Add a simple way to reference a document node by ID and include the XHTML
   code listing directly in the document.
-- 
2.43.0