diff options
author | Hans Hagen <pragma@wxs.nl> | 2021-10-24 22:24:55 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-10-24 22:24:55 +0200 |
commit | a23982bf3c6cc3c7e34c89a67004e2ef4c6103eb (patch) | |
tree | c555edf1938a2779764b257555e52364272f94bc /tex/context/base/mkxl/spac-ali.mkxl | |
parent | 29a395d2b545159c97df693e59187ce61218233c (diff) | |
download | context-a23982bf3c6cc3c7e34c89a67004e2ef4c6103eb.tar.gz |
2021-10-24 21:44:00
Diffstat (limited to 'tex/context/base/mkxl/spac-ali.mkxl')
-rw-r--r-- | tex/context/base/mkxl/spac-ali.mkxl | 44 |
1 files changed, 30 insertions, 14 deletions
diff --git a/tex/context/base/mkxl/spac-ali.mkxl b/tex/context/base/mkxl/spac-ali.mkxl index d6043b4da..e196b0c03 100644 --- a/tex/context/base/mkxl/spac-ali.mkxl +++ b/tex/context/base/mkxl/spac-ali.mkxl @@ -1081,6 +1081,28 @@ {\normalexpanded{\spac_word_right_indeed{#1}{\hpack{\thebox\nextbox}}}} \hbox} +% \protected\def\spac_word_right_indeed#1#2% +% {\registerparwrapper +% {\v!word:\v!right} +% {\begingroup +% \frozen\parfillskip \zeropoint +% \frozen\finalhyphendemerits\zerocount +% \endgroup} +% {\doifelseparwrapper{\v!word:\v!right}% +% {\doifelse{#1}\v!right{\kern-\rightskip}{\doifsomething{#1}{\kern-#1}}% +% \strut \removeunwantedspaces +% \hfill +% \allowbreak % changed back from \hskip\zeropoint +% \quad}% +% {\allowbreak % changed back from \hskip\zeropoint +% \break}% +% \unregisterparwrapper{\v!word:\v!right}% +% \strut +% \hfill +% \nobreak +% #2% +% \allowbreak}} + \protected\def\spac_word_right_indeed#1#2% {\registerparwrapper {\v!word:\v!right} @@ -1088,20 +1110,14 @@ \frozen\parfillskip \zeropoint \frozen\finalhyphendemerits\zerocount \endgroup} - {\doifelseparwrapper{\v!word:\v!right}% - {\doifelse{#1}\v!right{\kern-\rightskip}{\doifsomething{#1}{\kern-#1}}% - \strut \removeunwantedspaces - \hfill - \allowbreak % changed back from \hskip\zeropoint - \quad}% - {\allowbreak % changed back from \hskip\zeropoint - \break}% - \unregisterparwrapper{\v!word:\v!right}% - \strut - \hfill - \nobreak - #2% - \allowbreak}} + {\doifelseparwrapper{\v!word:\v!right}{\unregisterparwrapper{\v!word:\v!right}}\donothing + \removeunwantedspaces + \doifelse{#1}\v!right{\kern-\rightskip}{\doifsomething{#1}{\kern-#1}}% + \hfilll + \discretionary{\strut}{\strut}{\strut}% \allowbreak % changed back from \hskip\zeropoint + \hfilll + \quad % decent spacing + #2}} % \dorecurse{5}{something} \wordright{--someone} \endgraf % \dorecurse{6}{something} \wordright{--someone} \endgraf |