1 files changed, 166 insertions, 0 deletions
diff --git a/tex/context/base/mkiv/typo-krn.mkiv b/tex/context/base/mkiv/typo-krn.mkiv
new file mode 100644
index 000000000..6d6126542
--- /dev/null
+++ b/tex/context/base/mkiv/typo-krn.mkiv
@@ -0,0 +1,166 @@
+%D \module
+%D   [       file=typo-krn,
+%D        version=2009.03.27, % code moved from core-spa.mkiv
+%D          title=\CONTEXT\ Typesetting Macros,
+%D       subtitle=Spacing,
+%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.
+
+\writestatus{loading}{ConTeXt Typesetting Macros / Kerning}
+
+\unprotect
+
+\registerctxluafile{typo-krn}{1.001}
+
+\definesystemattribute[kern][public]
+
+% more
+%
+% {\setcharacterkerning[extrakerning]\input davis\relax}
+
+\installcorenamespace{characterkerning}
+
+\installcommandhandler \??characterkerning {characterkerning} \??characterkerning
+
+\unexpanded\def\setcharacterkerning[#1]%
+  {\edef\currentcharacterkerning{#1}%
+   \ifx\currentcharacterkerning\s!reset
+     \resetcharacterkerning
+   \else
+     \typo_kerning_set
+   \fi}
+
+\def\typo_kerning_set
+  {\usecharacterkerningstyleandcolor\c!style\c!color % goodie, maybe also strut
+   \useaddfontfeatureparameter\characterkerningparameter
+   \clf_setcharacterkerning{\characterkerningparameter\c!factor}}
+
+\unexpanded\def\resetcharacterkerning % fast one
+  {\attribute\kernattribute\attributeunsetvalue}
+
+\appendtoks
+    \resetcharacterkerning
+\to \everyresettypesetting
+
+\definecharacterkerning [extrakerning] [\c!factor=.125] % used in manuals
+
+%D Added after discussion on list (posted by WS, adapted abit by HH)
+%D \unknown\ this needs to be interfaced (\type {\v!kerncharacters}).
+%D
+%D \starttyping
+%D \setuphead[section][style=\sca,textstyle={\kerncharacters[.5]}] \section{Section}
+%D \stoptyping
+%D
+%D We could combine this with the previous definition command but
+%D then we always would get a command defined which is not beforehand
+%D a good idea.
+
+% Here we need to keep the groupedcommand solution as it is
+% used as modifier.
+
+% \definecharacterkerning [\v!kerncharacters] [\c!factor=.125]
+% \definecharacterkerning [\v!letterspacing ] [\v!kerncharacters] [\c!features=letterspacing]
+%
+% \unexpanded\def\kerncharacters
+%   {\doifnextoptionalcselse\typo_kerning_apply_yes\typo_kerning_apply_nop}
+%
+% \def\typo_kerning_apply_yes[#1]%
+%   {\groupedcommand{\typo_kerning_apply_yes_indeed{#1}}\donothing}
+%
+% \def\typo_kerning_apply_nop
+%   {\groupedcommand\typo_kerning_apply_nop_indeed\donothing}
+%
+% \def\typo_kerning_apply_yes_indeed#1%
+%   {\let\currentcharacterkerning\v!kerncharacters
+%    \setupcurrentcharacterkerning[\c!factor=#1]%
+%    \typo_kerning_set}
+%
+% \def\typo_kerning_apply_nop_indeed
+%   {\let\currentcharacterkerning\v!kerncharacters
+%    \typo_kerning_set}
+
+\appendtoks
+  \setuevalue{\currentcharacterkerning}%
+    {\doifelsenextoptional
+       {\typo_kerning_apply_yes{\currentcharacterkerning}}%
+       {\typo_kerning_apply_nop{\currentcharacterkerning}}}%
+\to \everydefinecharacterkerning
+
+\unexpanded\def\typo_kerning_apply_yes#1[#2]%
+  {\groupedcommand{\typo_kerning_apply_yes_indeed{#1}{#2}}\donothing}
+
+\unexpanded\def\typo_kerning_apply_nop#1%
+  {\groupedcommand{\typo_kerning_apply_nop_indeed{#1}}\donothing}
+
+\def\typo_kerning_apply_yes_indeed#1#2%
+  {\edef\currentcharacterkerning{#1}%
+   \setupcurrentcharacterkerning[\c!factor=#2]%
+   \typo_kerning_set}
+
+\def\typo_kerning_apply_nop_indeed#1%
+  {\edef\currentcharacterkerning{#1}%
+   \typo_kerning_set}
+
+\definecharacterkerning [\v!kerncharacters] [\c!factor=.125]
+\definecharacterkerning [\v!letterspacing ] [\v!kerncharacters] [\c!features=letterspacing]
+
+%D \macros
+%D   {stretched}
+%D
+%D Stretching characters in a word is a sort of typographical
+%D murder. Nevertheless we support this manipulation for use in
+%D for instance titles.
+%D
+%D \starttyping
+%D \hbox to 5cm{\stretched{to the limit}}
+%D \stretched{to the limit}
+%D \stretched[width=10cm]{to the limit}
+%D \stoptyping
+%D
+%D \typebuffer
+%D
+%D or
+%D
+%D \startexample
+%D \getbuffer
+%D \stopexample
+%D
+%D \showsetup{stretched}
+%D
+%D This command replaces the old \MKII\ variant.
+
+\definecharacterkerning
+  [\v!stretched]
+  [\c!factor=\v!max,
+   \c!width=\availablehsize]
+
+\unexpanded\def\setupstretched
+  {\setupcharacterkerning[\v!stretched]}
+
+\unexpanded\def\stretched
+  {\dosingleempty\typo_kerning_stretched}
+
+\unexpanded\def\typo_kerning_stretched[#1]#2%
+  {\begingroup
+   \let\currentcharacterkerning\v!stretched
+   \iffirstargument
+     \setupcurrentcharacterkerning[#1]%
+   \fi
+   \edef\p_width{\characterkerningparameter\c!width}%
+   \ifx\p_width\empty \else
+     \hbox to \p_width
+   \fi
+   \bgroup
+   \usecharacterkerningstyleandcolor\c!style\c!color
+   \useaddfontfeatureparameter\characterkerningparameter
+   \typo_kerning_set
+   #2%
+   \egroup
+   \endgroup}
+
+\protect \endinput