Re: two issues with new hyphenator

[Hans Hagen <pragma@wxs.nl>]

On 12/8/2014 5:47 PM, Pablo Rodriguez wrote:
> On 12/06/2014 01:09 PM, Hans Hagen wrote:
>> On 12/6/2014 12:40 PM, Pablo Rodriguez wrote:
>>> On 12/06/2014 12:20 AM, Hans Hagen wrote:
>>>> On 12/5/2014 8:11 PM, Pablo Rodriguez wrote:
>>>>> [...]
>>>>> BTW, in your sample below, how can I get the underscore under the
>>>>> previous character? (Otherwise, the underscore has no use.)
>>>>
>>>> Hm, that was the idea of the example i sent earlier.
>> [...]
>
> Hans,
>
> many thanks for having fixed the issue with zeros and the new hyphenator.
>
> I have discovered that \registerhyphenationexception doesn’t allow names
> with first letter in capitals (only
> \registerhyphenationexception[Nietz-sche] will work).
>
> This differs from the \hyphenation command. Is this intended?
>
> And sorry for asking this again, but I need underscore hyphenation with
> the underscore character from the font and only for the \tex and
> \hyphenatedurl commands (not for the rest of the text).
>
> How could it be implemented in the following sample?
>
> \setupcolor[state=start]
> \setuplayout[backspace=95mm, width=middle]
> \definetype[TeXcode][option=TEX, compact=absolute]
> \unexpanded\def\tex#1{\normalexpanded{\TeXcode{\letterbackslash#1}}}
> \starttext
> \tex{thisisaverylongcommand}
> \hyphenatedurl{http://optimisticwayofthinking.optimist}
> \input knuth
> \stoptext
>
> Many thanks for your help again,

just a variant of the addfunyhyphen:

\startluacode

      function document.addfunnyhyphen(tfmdata)
          local underscore = utf.byte("_")
          local char       = tfmdata.characters[underscore]
       -- logs.report("fonts","adding funny hyphen to font 
%a",tfmdata.properties.fontname)
          tfmdata.characters[0xFE000]   = {
              width    = 0,
              height   = 0,
              depth    = 0,
              commands = {
                  { "right", -char.width },
                  { "down", char.depth },
                  { "slot", 1, underscore },
              }
          }
      end

 
utilities.sequencers.appendaction("aftercopyingcharacters","after","document.addfunnyhyphen")

\stopluacode

\definefontfeature[default][default][funnyhyphen=yes]
\definefontfeature[always] [always] [funnyhyphen=yes]
\definefontfeature[none]   [none]   [funnyhyphen=yes]

\definetype
      [TeXcode]
      [option=TEX,
       compact=absolute,
       lines=hyphenated]

\definehyphenationfeatures
      [whatever]
      [righthyphenchar="FE000]

\setuphyphenation
      [method=traditional]

\unexpanded\def\TexC#1%
      {\dontleavehmode\begingroup
       \sethyphenationfeatures[whatever]%
     % \prehyphenchar"FE000
       \normalexpanded{\TeXcode{\letterbackslash#1}}%
       \endgroup}

\starttext
        \input tufte
        \dorecurse{100}{\TexC{definebodyfont} }
        \input tufte
\stoptext

we can add some of them but first i need to think about what slots to 
use (shouldn't conflict with other private slots)

> Pablo
>
>> \startluacode
>>
>>       local function addfunnyhyphen(tfmdata)
>>           local exheight = tfmdata.parameters.xheight
>>           local emwidth  = tfmdata.parameters.quad
>>           local width    = emwidth
>>           local height   = exheight / 10
>>           local depth    = exheight / 2
>>           tfmdata.characters[0xFE000]   = {
>>               width    = 0,
>>               height   = 0,
>>               depth    = 0,
>>               commands = {
>>                   { "right", -width },
>>                   { "down", depth },
>>                   { "rule", height, width },
>>               }
>>           }
>>       end
>>
>>       fonts.constructors.newfeatures("otf").register {
>>           name        = "funnyhyphen",
>>           description = "funny hyphen",
>>           manipulators = {
>>               base = addfunnyhyphen,
>>               node = addfunnyhyphen,
>>           }
>>       }
>>
>> \stopluacode
>>
>> \definefontfeature[default][default][funnyhyphen=yes]
>>
>> \starttext
>>
>>       \prehyphenchar"FE000
>>
>>       \hsize 1mm
>>
>>       averylongword
>>
>> \stoptext
>>
>>> Many thanks for your help,
>>>
>>>
>>> Pablo
>>>
>>>
>>>>>> \definetype
>>>>>>       [TeXcode]
>>>>>>       [option=TEX,
>>>>>>        compact=absolute,
>>>>>>        lines=hyphenated]
>>>>>>
>>>>>> \definehyphenationfeatures
>>>>>>       [whatever]
>>>>>>       [righthyphenchar=_]
>>>>>>
>>>>>> \setuphyphenation
>>>>>>       [method=traditional]
>>>>>>
>>>>>> \unexpanded\def\TexC#1%
>>>>>>       {\dontleavehmode\begingroup
>>>>>>        \sethyphenationfeatures[whatever]%
>>>>>>        \normalexpanded{\TeXcode{\letterbackslash#1}}%
>>>>>>        \endgroup}
>>>>>>
>>>>>> \starttext
>>>>>>         \input tufte
>>>>>>         \dorecurse{100}{\TexC{definebodyfont} }
>>>>>>         \input tufte
>>>>>> \stoptext


-- 

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
                                              | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________