blob: 769c3d059046fa5b21324e63ddbc22f7e7df3079 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
%D \module
%D [ file=s-languages-hyphenation, % s-lan-04,
%D version=2011.05.01,
%D title=\CONTEXT\ Style File,
%D subtitle=Language Hyphenation,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
%D For Mojca.
\startmodule[languages-hyphenation]
\registerctxluafile{s-languages-hyphenation}{}
\unprotect
\unexpanded\def\startcomparepatterns
{\dosingleempty\module_languages_hyphenation_start}
\unexpanded\def\module_languages_hyphenation_start[#1]%
{\begingroup
\par
% \language\zerocount
\setupalign[\v!nothyphenated]%
\ctxlua{moduledata.languages.hyphenation.startcomparepatterns("#1")}}
\unexpanded\def\stopcomparepatterns
{\par
\ctxlua{moduledata.languages.hyphenation.stopcomparepatterns()}%
\endgroup}
\installmodulecommandluasingle \showcomparepatternslegend {moduledata.languages.hyphenation.showcomparelegend}
\protect
\definecolor[hyphenation:1] [r=.8]
\definecolor[hyphenation:2] [g=.8]
\definecolor[hyphenation:3] [b=.8]
\definecolor[hyphenation:4] [r=.4,g=.4]
\definecolor[hyphenation:en] [hyphenation:1]
\definecolor[hyphenation:de] [hyphenation:2]
\definecolor[hyphenation:nl] [hyphenation:3]
\definecolor[hyphenation:fr] [hyphenation:4]
\stopmodule
\continueifinputfile{s-languages-hyphenation.mkiv}
\usemodule[art-01]
\starttext
\startsubject{Normal text}
\input tufte
\stopsubject
\startsubject{Compare hyphenation points of \showcomparepatternslegend[en,de]}
\startcomparepatterns
\input tufte \quad (\showcomparepatternslegend)
\stopcomparepatterns
\stopsubject
\startsubject{Compare hyphenation points}
\startcomparepatterns[de,nl,en,fr]
\input tufte \quad (\showcomparepatternslegend)
\stopcomparepatterns
\stopsubject
\stoptext
|
