Re: Switching to righttoleft without changing margins of delimited text

[Hans Hagen via ntg-context <ntg-context@ntg.nl>]

On 12/13/2021 5:25 PM, Denis Maier via ntg-context wrote:
> Hi,
> 
> I have the following example:
> 
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> 
> \setupdelimitedtext[blockquote]
> 
>                  [leftmargin=1.5em,rightmargin=0em,]
> 
> \starttext
> 
> \input knuth
> 
> \startblockquote
> 
> \input knuth
> 
> \stopblockquote
> 
> \startblockquote
> 
> \righttoleft
> 
> \input knuth
> 
> \stopblockquote
> 
> \input knuth
> 
> \stoptext
> 
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> 
> \righttext seems to change the locations of the margins, i.e. leftmargin 
> becomes rightmargin and vice-versa. That may be nice in some situations, 
> but I need to keep the margins where they are. Is there a way to do 
> this? (Maybe \righttoleft is the wrong command?) I thought I could 
> define a new rtlblockquote with appropriate settings, like so:
> 
> \definedelimitedtext[rtlblockquote]
> 
> \setupdelimitedtext[rtlblockquote]
> 
>                  [leftmargin=0em,rightmargin=1.5em,before={\righttoleft}]
> 
> But maybe there’s a better way. Any hints?
You switch directions when we're still in vertical mode, so you need:

\startblockquote
     \dontleavehmode\righttoleft\ignorespaces
     \input knuth
\stopblockquote

I can add this:

\permanent\protected\def\rtltext
 
{\groupedcommand{\dontleavehmode\righttoleft\ignorespaces}\removeunwantedspaces}

\permanent\protected\def\ltrtext
 
{\groupedcommand{\dontleavehmode\lefttoright\ignorespaces}\removeunwantedspaces}

but only when you wikify it

\startblockquote
     \rtltext{\input{knuth}}
\stopblockquote


-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________