Projekt: Hesla Jednoty bratrské/2024/hesla24.tex

Přidat odkazy
Z Wikiverzity

Projekt: Hesla Jednoty bratrské/2024/hesla24.tex[editovat]

Příklad zdrojového souboru pro PlainTeX

Příklad použití: 

pdfcsplain hesla24.tex

%% Hesla Jednoty bratrské 2024                     %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%                                
%% formát: csplain, kódování: UTF8                 %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% /dvojversi

%% věci okolo pdf
\ifx\pdfoutput\undefined
\else
  \pdfpagewidth=105mm \pdfpageheight=148.5mm
   \pdfinfo{
     /Author (Petr Heřman)
     /Title (Hesla Jednoty bratrské 2024)
     /Subject ()
     /Keywords ()
     /Creator(TeX)
   }
  \pdfcompresslevel=9
\fi

% fonty
\input ofs [sjannon] \loadingenc=1  % Olšákův fontový systém, ke stáhnutí na:
% \input ofs [sjbasker]             % ftp://math.feld.cvut.cz/pub/olsak/ofs/
\setfonts [JannonTextModerne/10pt]  % základní font
% \setfonts [JBaskervilleText/10pt]
% \setfonts [ComputerModern/10pt]

\fontdef\mesf [-bf/14pt]           % font pro měsíce
\fontdef\dencf [-bf/]              % font pro čísla dnů
\fontdef\denf [-bf/]               % font pro dny

\fontdef\pisenf [-it/8.5pt]          % font pro písně
\fontdef\cislopisnef [-rm/8.5pt]     % font pro číslo písně
\fontdef\svatf [-bf/]              % font pro svátky
\fontdef\vyznamf [-it/]            % font pro významné dny
\fontdef\zdrojf [-it/]             % font pro zdroj 
\fontdef\vysf [-rm/]               % font pro vysvětlivky
\fontdef\vyrocif [-it/8pt]         % font pro výročí
\fontdef\reklf [-it/]              % font pro ``řekl...''
\fontdef\nadf [-bf/14pt]           % font pro nadpisy
\fontdef\adrif [-it/]              % font pro italiku v adresáři
\fontdef\tirf [/8.5pt]               % font pro tiraz
\fontdef\smallf [/8.5pt]             % font pro drobné písmo
\fontdef\citatf [-it/8.5pt]          % font pro citáty
\fontdef\autorf [-it/8.5pt]          % font pro autory citátů
%\fontdef\monof [-tt/8.5pt]           % monospaced font pro URL
%\fontdef\monof [CMTypewriter/10pt]    % monospaced font pro URL
\fontdef\monof [-rm/]       % monospaced font pro URL – nechám normální
\fontdef\muf [-it/9pt]          % font pro misijné území


%% přeškrtnutí - obšlohnuto z:
%% https://github.com/kstep/vimwiki-vim-plugin/blob/master/misc/Vimwiki1.1.1QR.tex
%% akorát problém, že to přeškrtne jen jedno písmeno a ne celý blok
\def\strikethrough#1{{%
\setbox0=\hbox{#1}%
\dimen0 0.5ex\dimen1\dimen0\advance\dimen1 by0.4pt%
\rlap{\leaders\hrule height \dimen1 depth -\dimen0\hskip\wd0}%
\box0
}}


%% dělení slov
\chyph
\righthyphenmin=2
%\overfullrule=0pt

\hyphenation{roz-hně-val truch-lí-cí aby-chom do-oprav-dy Čes-ko-bra-trs-ké}

%% uvozovky můžeme zapisovat "takto"
\catcode`\"=13
\def"{\begingroup\clqq \def"{\crqq\endgroup}}
\catcode`\'=13
\def'{\begingroup\clq \def'{\crq\endgroup}}

%% všeliké velikosti všeličehos
\baselineskip=11.5pt % vzdálenost účaří
\parindent=0pt     % odstavcová zarážka
\parskip=0pt       % vertikální mezera mezi odstavci
\topskip=10pt      % první účaří

%% velikosti mezer
\spaceskip=.33333em plus .16667em minus .13333em
\let\,=\thinspace % zúžená mezera
\emergencystretch=2em
\bigskipamount=11.5pt plus6pt minus6pt
\medskipamount=.5\baselineskip
\let\n=\enspace

% vynechá daný počet řádků i na začátku strany
\def\skiplines #1{\par\hbox{}\nobreak\vskip-\baselineskip 
     \vskip #1\baselineskip}
% pokusí se zkrátit odstavec o řádku
\def\stahni #1*{{\spaceskip=.2em plus .1em minus .1em \looseness=-1 #1}\heslonum=1}

%% penalty
\clubpenalty =10000
\widowpenalty=10000
\hbadness=2000
\vbadness=2000

%% největší rozměry písma
\newbox\pismobox
\setbox\pismobox=\hbox{ÁÉÍČĚŘjyg}
\def\podpera{\vrule height\ht\pismobox depth\dp\pismobox width0pt}

%% záhlaví
\headline={{\rm \parindent=0pt \par \podpera
  \ifodd\pageno \the\pageno\hfill \firstmark
  \else \firstmark \hfill \the\pageno
  \fi}
}
\newdimen\zahskip \zahskip=1pt % mezera mezi záhlavím a čárou pod ním
\newdimen\linkaw  \linkaw=.4pt % tloušťka linky v záhlaví

%% zrcadlo stránky
\vsize=28\baselineskip    % výška sazby
\advance\vsize by\topskip
\hsize=80mm               % šířka sazby
\voffset=-1in
\advance\voffset by 10mm  % horní okraj
\newdimen\oddpagehoffset  \oddpagehoffset=-1in
\newdimen\evenpagehoffset \evenpagehoffset=-1in
\advance\oddpagehoffset  by 15mm % vnitřní okraj
\advance\evenpagehoffset by 10mm % vnější okraj
% vysuneme záhlaví pryč ze zrcadla
\advance\voffset by-\ht\pismobox
\advance\voffset by-\dp\pismobox
\advance\voffset by-\zahskip

%% makra pro sazbu jednotlivých částí hesel
\def\mesic #1§{\heslonum=0 \cteninum=0
  \vfill\eject
  \skiplines1
  {\lineskiplimit=-\maxdimen
  \centerline{\mesf #1}
  \par}\nobreak\vskip12pt plus3pt minus3pt
  \mark{#1}
}

\newcount\heslonum \newcount\cteninum % počet hesel a čtení 

%\def\den #1. #2§{\heslonum=0 \cteninum=0 \vskip12pt plus3pt minus6pt{\dencf #1.\kern.25em\denf \lowercase{#2}}\enspace}
\def\den #1. #2§{\heslonum=0 \cteninum=0 \vskip10pt plus3pt minus6pt{\dencf #1.\kern.25em\denf \lowercase{#2}}\enspace}

\def\densvatek #1. #2§{\heslonum=0 \cteninum=0 {\dencf #1.\kern.25em\denf \lowercase{#2}}\enspace} %% jako \den, jen bez mezery

%\def\heslo #1§{\cteninum=0 \ifnum\heslonum=0 {\rm #1}\else\vskip6pt plus6pt minus3pt {\rm #1}\fi \advance\heslonum by1}
%\def\heslo #1§{\cteninum=0 \ifnum\heslonum=0 {\rm #1}\else\vskip4pt plus4pt minus2pt {\rm #1}\fi \advance\heslonum by1}
\def\heslo #1§{\cteninum=0 \ifnum\heslonum=0 {\rm #1}\else\vskip4pt plus2pt minus2pt {\rm #1}\fi \advance\heslonum by1}

\def\zdroj #1§{\unskip
  \nobreak\hfill\penalty71\hskip.5em\hbox{}\nobreak\hfill
  \hbox{\zdrojf #1\/}\par
        }
\def\Zdroj #1§{\par\nobreak\rightline{\zdrojf #1}} % náhradní makro pro \zdroj

%\def\citat #1§{\removelastskip\vskip6pt plus3pt minus3pt
%  {\leftskip=1.5em\citatf #1}
%}

\def\citat #1§{\removelastskip\vskip6pt plus3pt minus3pt
  {\citatf #1}
}

\def\trojversia #1§#2§#3§{\removelastskip\vskip6pt plus3pt minus3pt
  {\citatf #1 \break #2 \break #3}
}

\def\autor #1§{\unskip
  \nobreak\hfill\penalty71\hskip.5em\hbox{}\nobreak\hfill
  \hbox{\autorf #1\/}\par
        }

\def\\{\hfil\break}

{\catcode`\^^M=\active   % these lines must end with %
  \gdef\zalom{\catcode`\^^M=\active \let^^M=\\}%
  \global\let^^M=\\} % this is in case ^^M in a \write

\def\odsad #1{\leavevmode\hbox to 2.5em{#1\hfill}}
\def\oodsad #1{\leavevmode\hbox to 4em{#1\hfill}}

%\def\trojversi #1§#2§#3§{\removelastskip\vskip6pt plus3pt minus3pt
%   \bgroup \parindent=1.5em \obeylines \citatf #1\\ \odsad{} #2\\ \oodsad{} #3
%}\

%\def\sbirka #1§{\egroup \vskip-\baselineskip \hfill {\autorf #1} \nobreak\vskip6pt plus3pt minus3pt}
%\def\sbirka #1§{\egroup \vskip-\baselineskip \hfill {} \nobreak\vskip6pt plus3pt minus3pt} % neuvádíme

\def\trojversi #1§#2§#3§{\removelastskip\vskip6pt plus3pt minus3pt
%    {\leftskip=1.5em\citatf
%    {\parindent=1.5em\citatf
%    #1\par\parindent=3em
%    #2\par\parindent=4.5em
%    #3\par}
    {\parindent=4.5em\citatf
    #1\par\parindent=6em
    #2\par\parindent=7.5em
    #3\par}
}

%\def\dvojversi #1§#2§{\removelastskip\vskip6pt plus3pt minus3pt
%    {\leftskip=1.5em\citatf
%    {\parindent=1.5em\citatf
%    #1\par\parindent=3em
%    #2\par}
%    {\baselineskip=9.5pt\parindent=1.5em\citatf
\def\dvojversi #1§#2§{\removelastskip\vskip4pt plus2pt minus2pt
    {\baselineskip=9pt\parindent=1.5em\citatf
    #1\par
    #2\par}
}

\def\sbirka #1§{}

%\def\pisen{\removelastskip\vskip6pt plus3pt minus3pt
%   \bgroup \baselineskip=9.5pt \parindent=1.5em \obeylines \pisenf
\def\pisen{\removelastskip\vskip3pt plus3pt minus3pt
   \bgroup \baselineskip=9pt \parindent=1.5em \obeylines \pisenf
}\

\def\pisennrls{\vskip3pt plus3pt minus3pt
   \bgroup \baselineskip=9pt \parindent=1.5em \obeylines \pisenf
}\

\def\pisenns{
   \bgroup \parindent=1.5em \obeylines \pisenf
}\

\def\poem{\removelastskip\vskip3pt
   \bgroup \parindent=1.1em \obeylines
}\

\def\textoverline#1{$\overline{\hbox{#1}}$}

{\catcode`\^^M=\active   % these lines must end with %
  \gdef\zalom{\catcode`\^^M=\active \let^^M=\\}%
  \global\let^^M=\\} % this is in case ^^M in a \write

\def\pisn{\removelastskip\vskip6pt plus3pt minus3pt
   \bgroup \obeylines \pisenf
}\

{\catcode`\^^M=\active   % these lines must end with %
  \gdef\zalom{\catcode`\^^M=\active \let^^M=\\}%
  \global\let^^M=\\} % this is in case ^^M in a \write

\def\pisnn{\removelastskip\vskip0pt plus3pt minus3pt
   \bgroup \parindent=1.5em \obeylines \pisenf
}\

%\def\cislopisne #1§{\egroup \vskip-\baselineskip \hfill {\cislopisnef #1}\nobreak\vskip6pt plus3pt minus3pt}
\def\cislopisne #1§{\egroup \vskip-\baselineskip \hfill {\cislopisnef #1}\nobreak\vskip2pt plus2pt minus4pt}

\def\cislopisn #1§{\egroup \hfill #1\nobreak\vskip6pt plus3pt minus3pt}   % pod veršem

% \def\autorr #1§{\egroup \vskip-6pt \hfill \autorf #1\nobreak\vskip6pt plus3pt minus3pt}   % pod veršem

\def\siles{\removelastskip\vskip6pt plus3pt minus3pt
   \bgroup \parindent=1.5em \obeylines \pisenf
}\
\def\cislosiles #1§{\egroup \vskip-\baselineskip \hfill #1\nobreak\vskip6pt plus3pt minus3pt}

%\def\cteni #1§{\nobreak \ifnum\cteninum=0 \vskip6pt plus6pt minus3pt #1\else\hfill #1\fi \advance\cteninum by1}
\def\cteni #1§{\nobreak \ifnum\cteninum=0 \vskip4pt plus2pt minus2pt #1\else\hfill #1\fi \advance\cteninum by1}
\def\ctenii #1§{\nobreak \hfill #1}

\def\svatek #1§{\heslonum=0 \cteninum=0 \vskip12pt plus6pt minus6pt \centerline{\svatf #1}\par\nobreak}

\def\svatekvysvetleni #1§#2§{\heslonum=0 \cteninum=0 \vskip12pt plus6pt minus6pt \centerline{{\svatf #1} (#2)}\par\nobreak}

\def\vysvetleni #1§{\heslonum=0 \cteninum=0
  {\leftskip=0pt plus1fill \rightskip=0pt plus1fill 
  \vysf (#1) \nobreak\vskip6pt plus6pt minus0pt}}
  
\def\vysvetlenizdroj #1§#2§{\heslonum=0 \cteninum=0
  {\leftskip=0pt plus1fill \rightskip=0pt plus1fill 
  \vysf (#1 {\it #2}) \nobreak\vskip6pt plus6pt minus0pt}}

%\def\vyznamny #1§{\heslonum=0 \cteninum=0 \vskip12pt plus6pt minus6pt \centerline{\vyznamf #1}\par\nobreak\vskip-6pt}
\def\vyznamny #1§{\heslonum=0 \cteninum=0 \vskip12pt plus6pt minus6pt \centerline{\vyznamf #1}\par\nobreak\vskip-5pt}

\def\<#1>{{\it#1\/}}

%\def\vyroci #1§{\nobreak\medskip {\vyrocif #1}}
%\def\vyroci #1§{\baselineskip=20pt \nobreak\medskip {\vyrocif #1}}
%\def\vyroci #1§{\nobreak\vskip2pt {\baselineskip=9.5pt \leftskip=1.8em \parindent=-1.8em\vyrocif #1\par}}
\def\vyroci #1§{\nobreak\vskip4pt {\baselineskip=9pt \leftskip=1.8em \parindent=-1.8em\vyrocif #1\par}}
\def\vyrocins #1§{\nobreak \vskip-2pt {\vyrocif #1}}

\def\quest #1§{{\bf ?? #1}}


\def\nadpis #1\par{
  \vfill\eject
 {%\lineskiplimit=-\maxdimen
  \baselineskip=16pt
  \rightskip=0pt plus1fill
  \noindent{\nadf #1}
  \par}\nobreak\vskip6pt plus3pt minus3pt
  \mark{\hfil}
}

\def\nadpisuvnitr #1\par{
  \skiplines1
 {%\lineskiplimit=-\maxdimen
%  \baselineskip=16pt
  \rightskip=0pt plus1fill
  \noindent{\nadf #1}
  \par}\nobreak\vskip-6pt plus3pt minus3pt
  \mark{\hfil}
}

%% perikopy
\newbox\datumbox
\setbox\datumbox=\hbox{26.\,12.\,} % box s nejdelsim datem
\def\periden #1§#2§#3§{\hbox to0pt{#1\hss}\enspace\hskip\wd\datumbox #2\ \xleaders\hbox{.\,}\hfil #3\break}
\def\peridenposl #1§#2§#3§{\hbox to0pt{#1\hss}\enspace\hskip\wd\datumbox #2\ \xleaders\hbox{.\,}\hfill #3}

\def\nebo{{\setfonts [-it/8pt]nebo}}

\def\vakat{\vfil\eject{\linkaw=0dd\headline={\hfil}\null\vfil\eject}}

%% zrcadlové okraje
\let\Shipout=\shipout
\def\shipout{\ifodd\pageno
  \hoffset=\oddpagehoffset
\else
  \hoffset=\evenpagehoffset
\fi\Shipout}

%% výstupní rutina
\def\heslaoutput{\shipout\vbox{%
  \the\headline
  \vskip\zahskip
  \hrule height\linkaw
  \vskip\baselineskip
  \vbox to\vsize{\unvbox255}
  \global\advance\pageno by1}
}
\output={\heslaoutput}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%% zde začíná vlastní text %%%%%%%%%%%%%%%%%%%%%%%%%%%

%\tracingpages=1
%\tracingonline=1


\input hes24_01-titul
\input hes24_02-copy
\input hes24_03-uvod
\input hes24_04-vyroci
\input hes24_05-preklady
\input hes24_06-vysvetleni
\input hes24_07-modlitby
\input hes24_08-straz
\input hes24_09-jazyky

\input hes2401
\input hes2402
\input hes2403
\input hes2404
\input hes2405
\input hes2406
\input hes2407
\input hes2408
\input hes2409
\input hes2410    
\input hes2411
\input hes2412

\input hes24per
\input hes24_11-unitas
\input hes24_12-adresy
%\input hes24_13-poznamky
%\input hes24kalendarium
\input hes24_15-tiraz
\bye
Citováno z „https://cs.wikiversity.org/w/index.php?title=Projekt:_Hesla_Jednoty_bratrské/2024/hesla24.tex&oldid=133514“