% WWWVERN - kvazi podpora HTML tagov v TeXu (cvicenie v plainTeXu)
% Podporovane tagy: <h1>...<h3>,<b>, <i>; <u> nie ;-); <tt>
% <br>, <hr>, 
% --------
% 12. 03. 2003, Robert Novotny, r.novotny@szm.sk

%nech < uvadza kontrolslova
\catcode`\<=0
%znak > bude aktivny, bude kvazi uzatvarat sekvenciu, ale nebude robit nic
\catcode`\>=13
\let>=\relax
\def<b#1</b>{{\bf #1}}
\def<i#1</i>{{\it #1}}
%
\font\fonthone=csbx12 at 16 pt 
\font\fonthtwo=csbx12 at 14 pt 
\font\fonththree=csbx12 at 12 pt 
%takto nemozeme vsak dalej robit <h1>,...</h2>, lebo 1 nie je pismeno
%do kontrolslova...zeby cislo islo ako parameter?
\def\vytlacnadpis#1#2{\unskip\par\bigskip{#1 #2}\par\medskip\nobreak}
\def<h#1>#2</h#3>{
%zistime, ci su rovnake nadpisy v pociatocnych i koncovych tagoch
\ifx#1#3
  %ak ano, podla cisla urovne priradime font
  \ifcase#1
    \nadpisid=\nullfont
    \errmessage{Zero-th level header?}
  \or
    \let\nadpisid=\fonthone
  \or
    \let\nadpisid=\fonthtwo
  \or
    \let\nadpisif=\fonththree
  \fi
  %vytlacime nadpis s danym fontom a textom
  \vytlacnadpis{\nadpisid}{#2}
\else
  %chyba, nezodpovedaju si urovne v zaciatocnych a koncovych tagoch
  %(napr. <h1>...</h3>  
  \errmessage{wwwern error: Title levels do not match.}%
\fi
}
\def<br{\hfil\break}
\def<hr{\hbox to \hsize{\hrulefill}}


%
%odlozime si povodny TeXovy vyznam \tt, lebo <tt je vlastne \tt
\let\teletype=\tt
\def<tt#1</tt>{{\teletype #1}}

\parindent=0pt
%-------------------------------------------------------------