Experimental csplain-like format for LuaTeX

diff --git a/ucw-luacsplain.ini b/ucw-luacsplain.ini
new file mode 100644 (file)
index 0000000..a8564cb
--- /dev/null
+++ b/ucw-luacsplain.ini
@@ -0,0 +1,55 @@
+%% Czech format for LuaTeX + ucwmac
+%%
+%% This is a cousin of Petr Olšák's csplain/luaplain living in LuaTeX land.
+%% It is based on ε-TeX
+%%
+%% Written by Martin Mareš <mj@ucw.cz> in 2017 and placed into public domain
+
+\catcode`\{=1 \catcode`\}=2  \catcode`\#=6  \catcode9=10
+
+\input luatexiniconfig.tex             % Enable LuaTeX primitives
+
+% We will skip font section of plain.tex, which sets up CM fonts.
+% Later, we will load Unicode LM fonts instead.
+% This hack is inspired by luaplain.ini.
+\let\orifont=\font
+\long\def\font#1\ttfam=\tentt{}
+\let\rm=\relax \let\tenex=\relax
+\def\mit{\fam1 } \def\cal{\fam2 }
+\def\it{\fam\itfam\tenit} \def\sl{\fam\slfam\tensl}
+\def\bf{\fam\bffam\tenbf} \def\tt{\fam\ttfam\tentt}
+\def\oldstyle{\fam1 \the\textfont1 }
+
+% Disarm \outer
+\let\outer=\relax
+
+\input etex.src                                % ε-TeX macros (includes plain.tex)
+
+% Bring \font back
+\let\font=\orifont
+\let\orifont=\undefined
+
+\input luatex-unicode-letters.tex      % Set properties of Unicode characters
+\input ltluatex.tex                    % LuaTeX support for plain TeX
+\input luatex85.sty                    % Backward compatibility with pdfTeX
+\input pdftexconfig.tex                        % Initialize PDF output parameters
+\input pdftexmagfix.tex                        % Fix \magnification
+\input plaina4.tex                     % Set paper size to A4
+\input ucode.tex                       % \uv and similar macros for Czech typesetting
+\input luaotfload.sty                  % OTF loader
+
+% Ask csplain to load LM fonts
+\def\fontfeatures{mode=base;script=latn;+tlig}
+\let\luafonts=\relax                   % Avoid inclusion of csplain's luafonts.tex
+\input lmfonts.tex
+\let\fontfeatures=\undefined
+
+\everyjob={%
+   \message{Loaded ucw-luacsplain 2017-10}%
+   % Set resolution of bitmap fonts
+   \directlua{kpse.init_prog("luatex", 600, "ljfour")}%
+   % We need to reload the OTF loader
+   \input luaotfload.sty
+}
+
+\dump