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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
%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}
\appendtoks
\clf_storelanguagestate % global
\to \everylanguage
\clf_storelanguagestate % initialize
\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:5] [r=.4,b=.4]
\definecolor[hyphenation:en] [hyphenation:1]
\definecolor[hyphenation:de] [hyphenation:2]
\definecolor[hyphenation:nl] [hyphenation:3]
\definecolor[hyphenation:fr] [hyphenation:4]
\definecolor[hyphenation:sl] [hyphenation:5]
\stopmodule
\continueifinputfile{s-languages-hyphenation.mkiv}
\usemodule[art-01]
\starttext
\startcomparepatterns[en,sl]
{For Mojca Miklavec}
{For Mojca Miklavec}
\stopcomparepatterns
\startcomparepatterns[en]
{For Mojca Miklavec}
{For Mojca Miklavec}
\stopcomparepatterns
\startcomparepatterns[sl]
{For Mojca Miklavec}
{For Mojca Miklavec}
\stopcomparepatterns
\startcomparepatterns[en,sl]
{For Mojca Miklavec}\crlf
{For Mojca Miklavec}\crlf
{\de For Mojca Miklavec}\crlf
{For Mojca Miklavec}\crlf
{\fr For Mojca Miklavec}
\stopcomparepatterns
\page
\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
|
