summaryrefslogtreecommitdiff
path: root/tex/context/base/mkiv/spac-ali.mkiv
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2019-12-30 20:42:59 +0100
committerContext Git Mirror Bot <phg@phi-gamma.net>2019-12-30 20:42:59 +0100
commit54732448eb933607bdcb11a457756741dc4e0b44 (patch)
treed0f312dd29af54ee85d89f6d6f242be7ee6b5454 /tex/context/base/mkiv/spac-ali.mkiv
parentede5a2aae42ff502be35d800e97271cf0bdc889b (diff)
downloadcontext-54732448eb933607bdcb11a457756741dc4e0b44.tar.gz
2019-12-30 19:16:00
Diffstat (limited to 'tex/context/base/mkiv/spac-ali.mkiv')
-rw-r--r--tex/context/base/mkiv/spac-ali.mkiv42
1 files changed, 12 insertions, 30 deletions
diff --git a/tex/context/base/mkiv/spac-ali.mkiv b/tex/context/base/mkiv/spac-ali.mkiv
index f80b1a192..8451e2494 100644
--- a/tex/context/base/mkiv/spac-ali.mkiv
+++ b/tex/context/base/mkiv/spac-ali.mkiv
@@ -1153,26 +1153,6 @@
\letvalue{\??alignsimplereverse\v!flushright}\spac_align_simple_left
\letvalue{\??alignsimplereverse\v!middle }\spac_align_simple_middle
-% \unexpanded\def\simplealignedbox#1#2%
-% {\hbox \ifdim#1>\zeropoint to #1
-% \csname\??alignsimple\ifcsname\??alignsimple#2\endcsname#2\else\v!right\fi\expandafter\endcsname
-% \fi}
-
-% \unexpanded\def\simplealignedboxplus#1#2#3%
-% {\hbox #3 \ifdim#1>\zeropoint to #1
-% \csname\??alignsimple\ifcsname\??alignsimple#2\endcsname#2\else\v!right\fi\expandafter\endcsname
-% \fi}
-
-% \unexpanded\def\simplealignedbox#1#2%
-% {\hbox \ifdim#1>\zeropoint to #1
-% \csname\??alignsimple\ifcsname\??alignsimple#2\endcsname#2\else\v!right\fi\expandafter\endcsname
-% \fi}
-%
-% \unexpanded\def\simplealignedboxplus#1#2#3%
-% {\hbox #3 \ifdim#1>\zeropoint to #1
-% \csname\??alignsimple\ifcsname\??alignsimple#2\endcsname#2\else\v!right\fi\expandafter\endcsname
-% \fi}
-
\unexpanded\def\simplealignedbox#1#2%
{\hbox \ifdim#1>\zeropoint to #1
\ifcsname\??alignsimple#2\endcsname
@@ -1202,16 +1182,6 @@
\newconditional\alignsimplelefttoright \settrue\alignsimplelefttoright
-% \unexpanded\def\simplereversealignedbox#1#2%
-% {\hbox \ifdim#1>\zeropoint to #1
-% \csname\??alignsimplereverse\ifcsname\??alignsimplereverse#2\endcsname#2\else\v!left\fi\expandafter\endcsname
-% \fi}
-%
-% \unexpanded\def\simplereversealignedboxplus#1#2#3%
-% {\hbox #3 \ifdim#1>\zeropoint to #1
-% \csname\??alignsimplereverse\ifcsname\??alignsimplereverse#2\endcsname#2\else\v!left\fi\expandafter\endcsname
-% \fi}
-
\unexpanded\def\simplereversealignedbox#1#2%
{\hbox \ifdim#1>\zeropoint to #1
\ifcsname\??alignsimplereverse#2\endcsname
@@ -1253,5 +1223,17 @@
\def\spac_align_definehbox[#1][#2]%
{\setvalue{hbox#1}##1{\hbox to #2{\begstrut##1\endstrut\hss}}}
+%D Some direction related helpers:
+
+\installcorenamespace {reverse}
+
+\setvalue{\??reverse\v!normal }{\ifconditional\inlinelefttoright\else\s!reverse\fi}
+\setvalue{\??reverse\v!reverse}{\ifconditional\inlinelefttoright \s!reverse\fi}
+
+\ifcase\contextlmtxmode
+ \let\usedirectionparameterreverse\gobbleoneargument
+\else
+ \def\usedirectionparameterreverse#1{\begincsname\??reverse#1\c!direction\endcsname}
+\fi
\protect \endinput