diff options
| author | Hans Hagen <pragma@wxs.nl> | 2014-10-07 11:14:00 +0530 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2014-10-07 11:14:00 +0530 |
| commit | ccdd2d9e98ac3bbf794eefd5a42ed063832a61b3 (patch) | |
| tree | 6d4ce4ebf4876b443cdb40cfa74caf7970c61ebe /tex/context/base/supp-box.mkiv | |
| parent | 2b89b4ede02fd02fe66597e9c314dbfcfa4c0ecb (diff) | |
| download | context-ccdd2d9e98ac3bbf794eefd5a42ed063832a61b3.tar.gz | |
beta 2014.10.07 11:14
Diffstat (limited to 'tex/context/base/supp-box.mkiv')
| -rw-r--r-- | tex/context/base/supp-box.mkiv | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/tex/context/base/supp-box.mkiv b/tex/context/base/supp-box.mkiv index 66f373b72..bc1e30749 100644 --- a/tex/context/base/supp-box.mkiv +++ b/tex/context/base/supp-box.mkiv @@ -1063,7 +1063,7 @@ %D \showhyphens{dohyphenatedword} %D \stoptyping -\def\doshowhyphenatednextbox +\unexpanded\def\doshowhyphenatednextbox {\ctxcommand{showhyphenatedinlist(tex.box[\number\nextbox].list)}} \unexpanded\def\showhyphens{\dowithnextboxcs\doshowhyphenatednextbox\hbox} @@ -1076,7 +1076,7 @@ %D \hyphenatedfile{tufte} %D \stoptyping -\def\dohyphenatednextbox +\unexpanded\def\dohyphenatednextbox {\ctxcommand{hyphenatedlist(tex.box[\number\nextbox].list)}% \unhbox\nextbox} @@ -1084,6 +1084,20 @@ \unexpanded\def\hyphenatedpar {\dowithnextboxcs\dohyphenatednextbox\hbox} \unexpanded\def\hyphenatedfile#1{\dowithnextboxcs\dohyphenatednextbox\hbox{\readfile{#1}\donothing\donothing}} +% D \starttyping +% D \hyphenatedhack{\kern-.25em_}{alongword} +% D \stoptyping +% +% \unexpanded\def\dohyphenatedhackbox +% {\ctxcommand{hyphenatedhack(tex.box[\number\nextbox].list,tex.box[\number\scratchbox].list)}% +% \unhbox\nextbox +% \endgroup} +% +% \unexpanded\def\hyphenatedhack#1% the result of a test, not that useful +% {\begingroup +% \setbox\scratchbox\hbox{#1}% only chars and kerns ! +% \dowithnextboxcs\dohyphenatedhackbox\hbox} + %D \macros %D {processtokens} %D |