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
___________________________________________________________________________________

Reply via email to