[XeTeX] [off-topic] proper OpenType tag for hanging diacritics

[Benct Philip Jonsson]

On 2009-10-07 John Was wrote:
> Great!  Very impressive.  Must dig out my Perl book...
> 
> 
> John

Thanks.  It would have been a lot harder without the
work done by the person(s) who wrote the
Unicode::Normalize module, the internals of which are
surely way above my head.  Being able to break up the
composite characters into something analysable is
key to it all!

/BP

> ----- Original Message ----- From: "Benct Philip Jonsson" 
> <bpj at melroch.se>
> To: "Unicode-based TeX for Mac OS X and other platforms" 
> <xetex at tug.org>
> Sent: Wednesday, October 07, 2009 10:57 AM
> Subject: Re: [XeTeX] [off-topic] proper OpenType tag for 
> hanging diacritics
> 
> 
> > On 2009-10-06 Pablo Rodríguez wrote:
> >> John Was wrote:
> >> > > Hello Pablo
> >>
> >> Hi, John. Thanks for your reply.
> >>
> >> > > Until this can be fixed properly from within the 
> font
> >> itself, you might
> >> > > try the following approach (this takes as its 
> example
> >> Unicode character
> >> > > 1F1D, viz. asper acute in front of capital 
> epsilon):
> >> > >
> >> > > \catcode"1F1D=\active
> >> > >
> >> > > \def 
{\leavevmode \hbox to 0.2em{\hfill
> >> \char"1FDE\hfill}\char"0395}
> >>
> >> Thanks also for thinking that I was the one composing 
> such beautiful
> >> texts. I wish I could ;-). I'm afraid I can't.
> >>
> >> I guess that your fix would take so much time as 
> fixing the font itself
> >> (as it is released under the Open Font License).
> >
> > Not quite as much.  Since it's a repetetive task it's a
> > task for a computer, and so I couldn't resist the
> > temptation to write a Perl script which generates the
> > TeX code for the fix -- or at least the part of it
> > without the poetry conditional.  Since it was more
> > about how it could be done rather than actually
> > doing it I have checked the output only cursorily
> > and not tested it at all.  I put the width of the
> > \hbox in a new dimen, so that one can change that in
> > only one place.  Hope I did it right and that it works!
> > Time wasted: 20 min! ;-) Script and output are below.
> >
> > /BP
> >
> > #!/usr/bin/perl
> > use strict;
> > use warnings;
> > use utf8;
> > use open ':utf8';
> > use open ':std';
> > use Unicode::Normalize;
> > use Unicode::UCD 'charinfo'; 

[snip]