blob: 813535089338ae8d4a68252e4cf50ce4d9dbbca6 (
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
|
\ProvidesFile{fdtxttex.tex}[2011/08/23 txt to TeX by dialogue (UL)]
\RequirePackage{fddial0g}
%% Dialogue settings:
\newcommand\CorrectionFile{\def\mdoc_corr}
%% Default settings (modify for your own):
\input{fdtxttex.cfg}
%% Screen:
\Announce{ *fdtxttex.tex* txt to TeX by dialogue^^J
(apply \string\MakeDocCorrectHook)^^J}
{fdtxttex.cfg}
\newcommand*{\Dialogue}{%
\FD_dialogue_screen{%
\string\CorrectionFile{\mdoc_corr}
\space (define \BackslashChar MakeDocCorrectHook)^^J%
\string\InputFile \space\space\space\space\space
{\input_file_name}^^J%
\string\ResultFile\space\space\space\space
{\result_file_dialogue}
\space\space\space
\string\toscreen\iftoscreen true\else false\fi
}%
}%
\newcommand*{\RunWithSettings}{%
\run_with_settings_gen{%
\input{\mdoc_corr}%
\WriteProvides
\ProcessFileWith{\input_file_name}{%
\WriteResult{\FD_corrected_input_line}%
\iftoscreen
\typeout{\FD_corrected_input_line}%
\else
\message{.}%
\fi}%
}%
}
\errorcontextlines=4
\Dialogue
\stop
|