Source Browser ?

1
%D \module
2
%D   [       file=lang-spa,
3
%D        version=2002.04.17,
4
%D          title=\CONTEXT\ Language Macros,
5
%D       subtitle=Spacing,
6
%D         author=Hans Hagen,
7
%D           date=\currentdate,
8
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9
%C
10
%C This module is part of the \CONTEXT\ macro||package and is
11
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12
%C details.
13
14
\writestatus
{
loading
}{
ConTeXt
 
Language
 
Macros
 
/
 
Spacing
}
15
16
%D This module was created in the process of enhancing
17
%D support for French (with the help of Daniel Flipo).
18
%D
19
%D This will (or already has) become obsolete!
20
21
\unprotect
22
23
\definehspace
 
[
\s!fr
]
 
[
quotation
]
      
[
\flexiblespaceamount
{
.
8
}{
.
3
}{
.
8
}
]
24
\definehspace
 
[
\s!fr
]
 
[
sentence
]
       
[
\fixedspaceamount
{
1
}
]
25
26
%definehspace [\s!fr] [quote]          [\flexiblespaceamount{.8}{.3}{.8}]
27
%definehspace [\s!fr] [speech]         [\flexiblespaceamount{.8}{.3}{.8}]
28
29
\definehspace
 
[
\s!fr
]
 
[
interquotation
]
 
[
\zeropoint
]
30
\definehspace
 
[
\s!fr
]
 
[
intersentence
]
  
[
\zeropoint
]
31
32
\definehspace
         
[
\string
 
:
]
 
[
\zeropoint
]
33
\definehspace
         
[
\string
 
;
]
 
[
\zeropoint
]
34
\definehspace
         
[
\string
 
!
]
 
[
\zeropoint
]
35
\definehspace
         
[
\string
 
?
]
 
[
\zeropoint
]
36
37
\definehspace
 
[
\s!fr
]
 
[
\string
 
:
]
 
[
\spaceamount
]
38
\definehspace
 
[
\s!fr
]
 
[
\string
 
;
]
 
[
.
1
6
6
6
7
em
]
39
\definehspace
 
[
\s!fr
]
 
[
\string
 
!
]
 
[
.
1
6
6
6
7
em
]
40
\definehspace
 
[
\s!fr
]
 
[
\string
 
?
]
 
[
.
1
6
6
6
7
em
]
41
42
%D Alternative discretionary handlers:
43
44
%definetextmodediscretionary : {\removeunwantedspaces\prewordbreak\kern\hspaceamount\currentlanguage{:}:}
45
%definetextmodediscretionary ; {\removeunwantedspaces\prewordbreak\kern\hspaceamount\currentlanguage{;};}
46
%definetextmodediscretionary ? {\removeunwantedspaces\prewordbreak\kern\hspaceamount\currentlanguage{?}?}
47
%definetextmodediscretionary ! {\removeunwantedspaces\prewordbreak\kern\hspaceamount\currentlanguage{!}!}
48
49
\definetextmodediscretionary
 
:
 
{
\removeunwantedspaces
\wordboundary\kern
\hspaceamount
\currentlanguage
{
:
}
:
}
50
\definetextmodediscretionary
 
;
 
{
\removeunwantedspaces
\wordboundary\kern
\hspaceamount
\currentlanguage
{
;
}
;
}
51
\definetextmodediscretionary
 
?
 
{
\removeunwantedspaces
\wordboundary\kern
\hspaceamount
\currentlanguage
{
?
}
?
}
52
\definetextmodediscretionary
 
!
 
{
\removeunwantedspaces
\wordboundary\kern
\hspaceamount
\currentlanguage
{
!
}
!
}
53
54
%D \startbuffer
55
%D \mainlanguage[en] \quotation{test \quotation{test} test}\par
56
%D \mainlanguage[nl] \quotation{test \quotation{test} test}\par
57
%D \mainlanguage[fr] \quotation{test \quotation{test} test}\par
58
%D
59
%D \mainlanguage[en] \quotation{\quotation{test} test}\par
60
%D \mainlanguage[nl] \quotation{\quotation{test} test}\par
61
%D \mainlanguage[fr] \quotation{\quotation{test} test}\par
62
%D
63
%D \mainlanguage[en] |<|test |<|test|>| test|>| \par
64
%D \mainlanguage[nl] |<|test |<|test|>| test|>| \par
65
%D \mainlanguage[fr] |<|test |<|test|>| test|>| \par
66
%D
67
%D \mainlanguage[en] |<||<|test|>| test|>| \par
68
%D \mainlanguage[nl] |<||<|test|>| test|>| \par
69
%D \mainlanguage[fr] |<||<|test|>| test|>| \par
70
%D \stopbuffer
71
%D
72
%D \typebuffer {\getbuffer}
73
74
\protect
 
\endinput
75