%D \module
%D   [       file=m-gimmicks,
%D        version=2022.08.25
%D          title=\CONTEXT\ Extra Modules,
%D       subtitle=Whatever comes up,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

\def\MacScale    {.7}%
\def\MacRule     {.05}%
\def\MacDistance {.05}%
\def\MacKern     {0}%

\protected\def\Mac
  {\dontleavehmode
   \begingroup
   \scratchwidth   \scaledfontcharwd\font`M\relax
   \scratchdistance\MacScale\scaledfontcharwd\font`c\relax
   \scratchoffset  \dimexpr\scaledfontcharht\font`M -\MacScale\scaledfontcharht\font`c\relax
   \scratchdepth   \MacRule\exheight
   \kern\scratchwidth
   \vrule
     width  \scratchdistance
     height \dimexpr \scratchoffset- \scratchdepth-\MacDistance\exheight\relax
     depth  \dimexpr-\scratchoffset+2\scratchdepth+\MacDistance\exheight\relax
   \relax
   \kern-\dimexpr\scratchwidth+\scratchdistance\relax
   M%
   \glyphscale\numexpr\numericscale\MacScale*\glyphyscale/\plusthousand\relax
   \glyph
     yoffset \scratchoffset `c
   \kern\MacKern\emwidth
   \endgroup}

\continueifinputfile{m-gimmicks.mkxl}

% Question on mailing list:

\chardef\MacAnulty = \privatecharactercode{MacAnulty}

\startsetups [box:mcanulty:\number\MacAnulty]
    \Mac Anulty
\stopsetups

\registerboxglyph category {mcanulty} unicode \MacAnulty \relax

\startluacode
    fonts.handlers.otf.addfeature {
        name    = "mcanulty",
        type    = "ligature",
        nocheck = true,
        data    = {
         -- [\number\MacAnulty]                         = {
         -- [fonts.constructors.privateslots.MacAnulty] = {
            [fonts.helpers.privateslot("MacAnulty")]    = {
                "M", "c", "A", "n", "u", "l", "t", "y",
            },
        }
    }
\stopluacode

\definefontfeature[whatever][default][box=mcanulty,mcanulty=yes]
\definefontfeature[default][default][box=mcanulty,mcanulty=yes]

\startTEXpage [offset=10dk]
%     \def\Test#1{%
%         \begingroup
%         #1%
%         \dostepwiserecurse{5}{8}{1}{
%             \def\MacScale{.##1}%
%             \Mac Anulty
%             \par
%         }
%         \endgroup
%     }
%     \Test\tf
%     \Test\bf
%     \Test\it
%     \Test\sl
%     \Test\bfb
%     \def\MacScale{.6}
%     \def\MacKern {-.1}
%     \Mac Anulty

{\definedfont[Serif*whatever]     McAnulty\quad \MacAnulty\par}
{\definedfont[SerifBold*whatever] McAnulty\quad \MacAnulty\par}

{\tf McAnulty\quad \MacAnulty\par}
{\bf McAnulty\quad \MacAnulty\par}

\stopTEXpage
