Portál AbcLinuxu, 8. května 2025 21:00
Jak docílit, aby se místo:
vypisovalo:
? Děkuji
Dekuju moc, pomohl balicek titlesec a
\makeatletter
\renewcommand{\@makechapterhead}[1]{%
\vspace*{50 pt}%
{\setlength{\parindent}{0pt} \raggedright \normalfont
\bfseries\Huge
\ifnum \value{secnumdepth}>1
\if@mainmatter\thechapter.\ \fi%
\fi
#1\par\nobreak\vspace{40 pt}}}
\makeatother
Používat plainTeX a ne Blabla*TeX... :)
Hm, a jak pak udělám hierarchii nadpisů a obsah? Třbeba takhle??
% Kapitoly a sekce:
\def\sub #1 [#2]{\par\goodbreak\bigskip
\advance\secnum by1
\hbox{\aimlink{sc/#2}\outlink{sc/#2}0{#1}}\nobreak \vskip-\parskip
\noindent{\bbf\let\tt=\btt \the\chapnum.\the\secnum. #1\par\nobreak
\write\reffile{\string\secref{#2}\the\chapnum.\the\secnum}
\nadpis={#1}
\edef\act{\write\toc{\nono\subtocline
{\the\chapnum.\the\secnum}{\the\nadpis}{\the\pagenotoks}{#2}}}\act
\let\tt=\relax \let\\=\relax %\def\uv##1{\char254 ##1\char255 }
\mark{\the\chapnum.\the\secnum. #1}}}
\def\kap#1 \par{\vfill\break \linenum=0 \secnum=0
\global\advance\chapnum by1 \xdef\chapmark{\the\chapnum. #1}
\headline={\hfil\starthead}
\hbox{}\nadpis={#1}
\aimlink{kp/\the\chapnum}
\outlink{kp/\the\chapnum}{\expnumber{kap:\the\chapnum}}{#1}
\edef\act{\write\toc{%
\nono\kaptocline{\the\chapnum}{\the\nadpis}{\the\pagenotoks}}}\act
{\lineskiplimit=-20pt {\bigbf \the\chapnum. #1}\par}}
\def\app#1 \par{\vfill\break
\global\advance\chapnum by1 \xdef\chapmark{\the\chapnum. #1}
\headline={\hfil\starthead}
\hbox{}\nadpis={#1}
\aimlink{app/\the\chapnum}
\outlink{app/\the\chapnum}{\expnumber{app:\the\chapnum}}{#1}
\edef\act{\write\toc{%
\nono\apptocline{\the\chapnum}{\the\nadpis}{\the\pagenotoks}}}\act
{\lineskiplimit=-20pt {\bigbf \the\chapnum. #1}\par}}
\def\subpar{\leavevmode$\bullet$\bf\space}
\def\subnapis #1\par{\par\goodbreak\bigskip
\noindent{\bbf\let\tt=\btt #1\par\nobreak
\let\tt=\relax \let\\=\relax }}
\def\napis#1\par{\vfill\break
\hbox{} {\lineskiplimit=-20pt {\bigbf #1}\par}}
% Výpočet stromu záložek pro PDF
\def\expnumber#1{\expandafter \ifx\csname#1\endcsname \relax 0%
\else \csname#1\endcsname \fi}
\def\advancenumber#1{\tempnum=\expnumber{#1}\relax
\advance\tempnum by1
\expandafter\xdef\csname#1\endcsname{\the\tempnum}}
\def\extractkapnum#1.#2:{#1}
% Obsah
\def\nono{\noexpand\noexpand\noexpand}
\def\maketoc{\napis Obsah\par
\aimlink{/obsah}\outlink{/obsah}0{OBSAH}
\bigskip \dimen0=9pt
\softinput \jobname.toc
\immediate\openout\toc=\jobname.toc
}
\def\cvak{\ifdim\dimen0<6pt \dimen0=9pt \else \dimen0=3pt \fi}
\def\puntiky{\leaders\hbox to12pt{\kern\dimen0.\hss}\hfil}
\def\kaptocline #1#2#3{\medskip\line{#1.\enskip #2\hfil \pglink{#3}}\medskip}
\def\apptocline #1#2#3{\cvak \line{#1.\enskip #2\puntiky\ \pglink{#3}}}
\def\subtocline #1#2#3#4{
\advancenumber{kap:\extractkapnum#1:}
\line{\qquad #1\quad
\hbox{\beglink{sc/#4}#2\endlink}%
\puntiky\hbox to2em{\hfil\pglink{#3}}}\cvak}
\def\partline #1#2#3{\cvak
\bigskip\line{\bf Část #1: #2 \puntiky\ #3}\cvak}
\output{\def~{ } \let\TeX=\relax \let\\=\relax \let\tt=\relax \let\uv=\relax
\plainoutput}
(TeXBook naruby)
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.