[NTG-context] Left hanging hyphen

[Wolfgang Schuster]

On Wed, 4 Mar 2020 19:28:49 +0100
Tomas Hala <tomas.hala at mendelu.cz> wrote:

> Hi Wolfgang,
> 
> Mon, Mar 02, 2020 ve 05:38:35PM +0100 Wolfgang Schuster napsal(a):
> # On Mon, 2 Mar 2020 12:22:26 +0100
> # Tomas Hala <tomas.hala at mendelu.cz> wrote:
> # 
> # > Hi all,
> # > 
> # > in composed words in Czech and Slovak languages, the hyphen must be repeated 
> # > at the beginning of the new line. How can I make it hanging at the left margin?
> # 
> # 1. You have to enable hanging punctuation which is missing in your example.
> 
> I used it, it was a miscopying... sorry.
>  
> # 2. You have to create your own protrusion vector because the predefined vectors set hanging for hyphens only for the right margin.
> 
> Thanks, it works for Czech language. But what has happened is that the
> repeated hyphen appears also with languages which do not use it (or for
> which it has not been set).
> 
> How can I assign the definition only to the selected language?
> (I discovered only to put {\mainlanguage[cz]text} into a group...)
> 
> %% only a note:
> I tried:
> \def\mylanguage{cs} \appendtoks \ifx\mylanguage\currentlanguage \setbreakpoints[czcompound] \else \resetbreakpoints \fi \to\everylanguage
> 
> \let\ORIGmainlanguage=\mainlanguage 
> \def\mainlanguage[#1]{\def\langpar{#1}
>   \def\langpom{cz}\ifx\langpom\langpar\gdef\mylanguage{cs}\else\gdef\mylanguage{\langpar}\fi 
>   \ORIGmainlanguage[\langpar]
> }
> 
> which repeats only the Czech hyphen but with a side effect -- hyphenated words are not broken anymore in other languages.
> What am I doing wrong? Or is there any system solution?
> %%
> 
> Best wishes,
> 
> Tomáš
> 
> 
> %%%% begin example
> 
> \startluacode
> 
> [...]
> 
> \startsetups [czech]
>   \setbreakpoints [czcompound]
> \stopsetups
> 
> \setuplanguage
>   [cz]
>   [setups=czech]

You can use the default language for the reset:

\startsetups [language:czech]
  \setbreakpoints [czcompound]
\stopsetups

\startsetups [language:other]
  \resetbreakpoints
\stopsetups

\setuplanguage
  [cz]
  [setups=language:czech]

\setuplanguage
  [default]
  [setups=language:other]

Wolfgang