blob: b306d87f496dbf84d3f00850599fb2b2584296cf (
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
|
%D \module
%D [ file=regi-ini,
%D version=2005.04.25,
%D title=\CONTEXT\ Regime Macros,
%D subtitle=Regime Support,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright=PRAGMA]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
\unprotect
%D First some initialization code:
\registerctxluafile{regi-ini}{1.001}
%D \macros
%D {currentregime}
\def\currentregime{utf}
%D \macros
%D {defineregimesynonym,trueregimename}
\unexpanded\def\defineregimesynonym % more or less obsolete
{\dodoubleargument\dodefineregimesynonym}
\def\dodefineregimesynonym[#1][#2]%
{\ctxlua{regimes.setsynonym("#1","#2")}}
\def\trueregimename#1%
{\ctxlua{regimes.truename("#1")}}
%D \macros
%D {useregime}
\def\useregime[#1]%
{\processcommalist[#1]\douseregime}
\def\douseregime#1%
{\ctxlua{regimes.load("#1")}}
%D \macros
%D {enableregime,disableregime}
\def\enableregime[#1]%
{\edef\currentregime{\ctxlua{regimes.load("#1") regimes.enable("#1") regimes.truename()}}}
\def\disableregime
{\edef\currentregime{\ctxlua{regimes.disable()}}}
\protect \endinput
|
