Another issue with my magazine

["Mikoláš Štrajt" <strajt9@seznam.cz>]

% Hello All!
%
% In the folowing style, I need to do some whitespace tweaks. Unfortunately, I didn't found solutions in manual, so I am asking here.
%
% I need:
%
% - make first paragraph after author name noindented, i tried to put some \nointdent here, but without any effect
% - make vertical space between article head and author name shorter (also in general : modify vertical spaces of heads)
%
% Regards Mikoláš Štrajt
%
% PS: You can use this e-mail as source code of my solution. :-D


%%%
%%% FOLLOWING IS STYLE AS IS USED IN REAL LIFE %%%
%%%

% Čeština
\enableregime[utf]

% Fonty
\definetypeface [iwona] [ss] [sans] [iwona] [default] [encoding=ec]
\definetypeface [antykwa] [rm] [serif] [antykwa-torunska] [default] [encoding=ec]
\usetypescript[modern][ec]
\setupbodyfont[ss,10pt]

% Papír a číslování řádek

\mainlanguage[cz]

\setuppapersize[A4][A4]
\setuppagenumbering[location={footer,middle}]

% Struktura

\definehead[kochapter][chapter]
\setuphead[title][style=\antykwa, number=no]
\setuphead[kochapter][placehead=empty,before=,after=,number=no]
\setuphead[section][page=no,style=\tfb\iwona\grave,number=no]

\def\rubrika #1{\kochapter{#1}}

\def\prispevek #1#2{
\section{#2}
{\noindent \rm \sc #1} \noindent \endgraf \noindent
}

% Hlavička a patička

\setupheadertexts[]
\setupheadertexts[\setups{hlavicka}][][][\setups{hlavicka}]

\startsetups[hlavicka]
  \zanrO{\getmarking[kochapter]}
\stopsetups


% Odstavce
\setupindenting[yes, small]
\setupheads[indentnext=no]

% Záložky a PDF
\placebookmarks[kochapter,section][force=yes]
\setupinteractionscreen[option=bookmark]
\setupinteraction[state=start,
  title={Neslyšný kočkopes},
  author={Psanci}]

% TOC

\setupcombinedlist[content][list={kochapter,section,subsection}]
\setuplist[kochapter][interaction=text,color=green,textcommand=\WORD]
\setuplist[section][interaction=text,color=green]

% Barvy

\setupcolors[state=start]
\definecolor[indigo][r=.0, g=0.0, b=0.5]
\definecolor[green][r=0, g=0.5, b=0]
\definecolor[ruda][r=0.5, g=0, b=0]
\definecolor[grave][r=0.5, g=0.5, b=0.5]

% Makra

\def\citat #1#2{
{\it
#1
\blank[1*halfline]
\rightaligned{--- #2}
}}

\def\trojtecka {
{\bf \ruda \tt...}
}

\def \robotitulka{
\startstandardmakeup
\title{Neslyšný kočkopes - \getvariable[cislo]}
\placecontent
\stopstandardmakeup
\page
}

\def\zanrO #1{
\framed[
  background=color,
  backgroundcolor=grave,
  foreground=color,
  foregroundcolor=white,
  frame=off.
  width=\hsize
  ]{\antykwa \rightaligned{\WORD{#1}~~}}
}

\setupdelimitedtext[blockquote][style=\slx,before={\setupinterlinespace[line=2.4ex]}]

%%%
%%% FOLLOWING IS EXAMPLE TEXT %%%
%%%

%%% `rubrika` is section of magazine
\rubrika{Example}

%%% `pripevek` is article
%%% syntax is \prispevek{author name}{article name}

\prispevek{Steve W. Hawking}{The Universe in a Nutshell}

\dorecurse{10}{\input hawking\par}
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________