From cbaeded86ee193677fe0cae364b564616557449d Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Fri, 31 Jul 2020 11:03:33 +0200
Subject: 2020-07-31 10:01:00

---
 tex/context/base/mkiv/strc-con.mkvi | 41 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 40 insertions(+), 1 deletion(-)

(limited to 'tex/context/base/mkiv/strc-con.mkvi')

diff --git a/tex/context/base/mkiv/strc-con.mkvi b/tex/context/base/mkiv/strc-con.mkvi
index 1f5a1629f..66ff3097b 100644
--- a/tex/context/base/mkiv/strc-con.mkvi
+++ b/tex/context/base/mkiv/strc-con.mkvi
@@ -418,6 +418,8 @@
    %
    \dostoptagged % tag
    \dostarttagged\t!constructioncontent\empty
+  %\freezeparagraphproperties
+   \updateparagraphshapes
    \ignorespaces} % args not needed
 
 \unexpanded\setvalue{\??constructionstophandler\v!construction}%
@@ -433,7 +435,7 @@
    \dorechecknextindentation}
 
 \unexpanded\def\boxedconstructionhead#1%
-  {\vtop
+  {\doifelse{\constructionalternativeparameter\c!alignbottom}{\v!yes}\vbox\vtop
      {\hsize\constructionsheadwidth
       \edef\p_strc_constructions_headalign{\constructionparameter\c!headalign}%
       \ifx\p_strc_constructions_headalign\empty \else
@@ -919,6 +921,43 @@
     \endgroup
 \stopsetups
 
+\ifcase\contextlmtxmode \else
+    % just an empty check so that we can grep for contextlmtxmode in mkiv files
+\fi
+
+% \definedescription[whatever][alternative=right:bottom]
+%
+% \startwhatever{just a small\\example}
+%     \input ward
+% \stopwhatever
+
+\defineconstructionalternative
+  [\v!right:\v!bottom]
+  [%\c!width=7em,
+   %\c!distance=1em,
+   \c!alignbottom=\v!yes,
+   \c!renderingsetup=\??constructionrenderings:\v!right:\v!bottom]
+
+\startsetups[\??constructionrenderings:\v!right:\v!bottom]
+    \let\\=\crlf
+    \noindent
+    \leftskip\leftconstructionskip
+    \rightskip\dimexpr\rightconstructionskip+\constructionsheadwidth+\constructionsheaddistance\relax
+    \parfillskip\zeropoint
+    \strc_constructions_set_pure_box\v!flushright
+    \directparwrapper \relax {%
+      \hfilll
+      \rlap
+        {\kern\constructionsheaddistance
+         \copy\constructionheadbox}%
+    }%
+    \useconstructionstyleandcolor\c!style\c!color
+    \ignorespaces
+\stopsetups
+
+%D This next feature will get an lmtx implementation (probably by using a new generic
+%D close mechanism).
+
 % you can use \placeclosesymbol or \qed to place a symbol at the end of a
 % construction
 
-- 
cgit v1.2.3