Posted By: demagog (saman) on 'CZTeX'
Title:     Re: Jak psat zdrojaky ? :)
Date:      Mon Oct 22 17:16:33 2001

> Ahojda, no rad bych to psal asi v tom latexu, ale nebranim se v zasade ani 
> plainu. Nejlepsi by bylo, kdybych nemusel rucne sazet obsah a treba index 
> slov a treba i odkazy na literaturu nebo tak neco. 
> Zkousel jste to nekdo ? 
> Zdravi Michal

Nerikam, ze je to idealni, ale nekdy v historicky ne uplne davne dobe jsem 
delal toto. Pouzity myslenky z knih: Libor Olsak - TeXbook naruby, Donald 
Knuth - The TeXbook.

%%%%%% obsah

defcvak{ifdimdimen0<6pt dimen0=9pt else dimen0=3pt fi}

defkaptocline#1#2{%
  bigskip
  line{bf #1 hfil #2}}

defpodkaptocline#1#2{%
  line{qquad #1 leadershbox to12pt{kerndimen0.hss}hfil #2}cvak}

newboxobsbox
setboxobsboxvbox{begingroupcatcode`@=11input jobname.tocendgroup}

defobsah{bgroupdimen0=3ptrelaxunvboxobsboxegroup}

newwritetoc
immediateopenouttoc=jobname.toc

%%%%%% titulkovani kapitol atd.

newboxodsazeni
defneodsad{globaleverypar={setboxodsazenilastboxunhboxodsazeniunskip
                               globaleverypar={}}}

newcountkapcount
newcountpodkapcount
kapcount=0
podkapcount=0

newtokspagetoks pagetoks={thepageno}

defnalevo{hyphencharfont=-1rightskip0pt plus2em relax}

defkap#1par{%
   advancekapcount by 1
   podkapcount=0
   vetnum=0
   dfnum=0
   writetoc{stringkaptocline{thekapcount #1}{folio}}
   {BiGGbfnalevonoindentthekapcount #1}parnobreakbigskipneodsad}

defkapnecis#1par{%
   writetoc{stringkaptocline{#1}{folio}}
   {raggedrightnoindentBiGGbf #1}parnobreakbigskipneodsad}

defpodkap#1par{
   advancepodkapcount by 1
   bigbreak
   edefact{writetoc{noexpandstringnoexpandpodkaptocline
   {thekapcount.thepodkapcount #1}{thepagetoks}}}act
   {noindentbigbfthekapcount.thepodkapcount #1}par
   nobreakmedskipneodsad}

%%%%%% seznam literatuuuuury

input jobname.ref
newwriteref
immediateopenoutref=jobname.ref

newcountliteranum
literanum=0

defbeglit#1{begingroup
  setbox0=hbox{[#1] }
  advanceleftskip by wd0
  parskip=smallskipamount
  defodr##1##2par{%
  advanceliteranum by 1
  noindentllap{[theliteranum] }ignorespaces ##2par
  immediatewriteref
    {stringexpandafterstringedefstringcsnamespace
    lit:##1endcsname{theliteranum}}}}

defendlit{endgroup}

deflitodkaz#1{csname lit:#1endcsname}