src/patches/lltjp-microtype.sty

   1 %
   2 % lltjp-microtype.sty 2019-10-29
   3 %
   4 % (Work in Progress)
   5 %
   6 \NeedsTeXFormat{LaTeX2e}
   7
   8 \RequirePackage{etoolbox}
   9 \makeatletter
  10 \begingroup
  11   \catcode`\/=\z@
  12   /MT@map@tlist@n{/\LτJCHAREX}/@makeother /lccode`/τ=`/t
  13   /lowercase{%
  14     /def/x{/endgroup
  15       /def/MT@charstring{\CHAR"}%
  16       /def/MT@is@char##1\CHAR"##2##3##4/relax{%
  17                 %/message{MIC <##1><##2><##3><##4>}%
  18         /ifx/relax##4/relax
  19             /expandafter/MT@is@char@ltja/MT@strip@prefix##1>/relax\LτJALCHAR\LτJALCHAR/relax
  20         /else
  21           /ifx/relax##1/relax
  22             /if##3\/relax
  23               /edef/MT@char@{/number"##2}%
  24               /MT@ifstreq/MT@charstring{##3##4}/relax/MT@norestfalse
  25             /else
  26               /edef/MT@char@{/number"##2##3}%
  27               /MT@ifstreq/MT@charstring{##4}/relax
  28                 {/MT@is@xchar##2##3|##4\CHAR"/relax}%
  29             /fi
  30           /fi
  31         /fi
  32       }%
  33       /def/MT@ltjs@drop@##1>##2/relax{##1}%
  34       /def/MT@is@char@ltja##1\LτJALCHAR##2\LτJALCHAR##3/relax{%
  35         %/typeout{MICLTJA <##1><##2><##3>}%
  36         /ifx/relax##1/relax
  37           /ifx/relax##2/relax/else
  38             /edef/MT@char@{/expandafter/number/MT@ltjs@drop@##2>/relax}%
  39           /fi
  40         /fi
  41       }%
  42     }%
  43   }
  44 /x
  45 \endinput