From 85f996374fe02404eabb740212bd36fe7e86e855 Mon Sep 17 00:00:00 2001
From: Jonathan Blake <jonathan.blake@projectaon.org>
Date: Sat, 7 Sep 2019 17:16:09 -0700
Subject: [PATCH 1/1] Handle apostrophes sligtly smarter

---
 common/scripts/xmlize.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/common/scripts/xmlize.pl b/common/scripts/xmlize.pl
index 063bd05..d78bd94 100755
--- a/common/scripts/xmlize.pl
+++ b/common/scripts/xmlize.pl
@@ -135,6 +135,7 @@ sub xmlize {
     $inline =~ s/\&(?=[[:space:]])/<ch.ampersand\/>/g;
     $inline =~ tr/\"\`/\'/;
     $inline =~ s/[\N{U+2018}\N{U+201C}]/<quote>/g;
+    $inline =~ s|[\N{U+2019}\N{U+201D}]([[:alpha:]])|<ch.apos/>$1|g;
     $inline =~ s/[\N{U+2019}\N{U+201D}]/<\/quote>/g;
     $inline =~ s/[\N{U+2014}]/<ch.endash\/>/g;
     $inline =~ s/[\N{U+2014}]/<ch.emdash\/>/g;
-- 
2.34.1