Project Aon Git Repositories
/
project-aon.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
93b6ee1
)
Handle apostrophes sligtly smarter
author
Jonathan Blake
<jonathan.blake@projectaon.org>
Sun, 8 Sep 2019 00:16:09 +0000
(17:16 -0700)
committer
Jonathan Blake
<jonathan.blake@projectaon.org>
Sun, 8 Sep 2019 00:16:09 +0000
(17:16 -0700)
common/scripts/xmlize.pl
patch
|
blob
|
history
diff --git
a/common/scripts/xmlize.pl
b/common/scripts/xmlize.pl
index
063bd05
..
d78bd94
100755
(executable)
--- 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/\&(?=[[: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;
$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;