source: trunk/documents/theses/dstn/numberparagraphs.sty @ 12308

% http://www.tex.ac.uk/cgi-bin/texfaq2html?label=subverttoks
\let\mypkg@@everypar\everypar
\newtoks\mypkg@everypar
\mypkg@everypar\expandafter{\the\everypar}
%\mypkg@@everypar{\mypkgs@ownstuff\the\mypkg@everypar}
\mypkg@@everypar{\ifdonumberparagraphs\mypkgs@ownstuff\fi\the\mypkg@everypar}

\newif\ifdonumberparagraphs
%\newif\ifsavenumberparagraphs
\donumberparagraphsfalse
\newcommand{\numberparagraphs}{\global\donumberparagraphstrue}
\newcommand{\nonumberparagraphs}{\global\donumberparagraphsfalse}

\newcounter{parcounter}[chapter]
\newcommand\thepara{\thechapter.\@arabic\c@parcounter}



\def\mypkgs@ownstuff{%
  %\ifdonumberparagraphs\marginpar{hello}\fi%
  \donumberparagraphsfalse%
  \refstepcounter{parcounter}%
  \marginpar{hello \thepara}%
  \donumberparagraphstrue%
}

\let\everypar\mypkg@everypar


% don't do it for \section...
%\let\mypkg@@section\section
%\newtoks\mypkg@section
%\mypkg@section\expandafter{\the\section}
%\mypkg@@section{\ifdonumberparagraphs\donumberparagraphsfalse\the\mypkg@section\donumberparagraphstrue\else\the\mypkg@section\fi}
%\let\section\mypkg@section

%\newcommand{\oldsection}[1]{\section{#1}}
%\renewcommand{\section}{\nonumberparagraphs\oldsection\numberparagraphs}

%\let\mypkg@@section\section
%\renewcommand{\section}[1]{\ifdonumberparagraphs%
%  \nonumberparagraphs%
%  \mypkg@@section{#1}%
%  \numberparagraphs%
%  \else%
%  \mypkg@@section{#1}%
%  \fi}

%\renewcommand{\section}[1]{\ifdonumberparagraphs%
%  \nonumberparagraphs%
%  \@ifstar\mypkg@@section*{#1}\mypkg@@section{#1}%
%  \numberparagraphs%
%  \else%
%  \@ifstar\mypkg@@section*{#1}\mypkg@@section{#1}%
%  \fi}

\usepackage{ifthen}

\let\mypkg@@section\section

\renewcommand{\section}[2]{\ifthenelse{\equal{#1}{*}}%
  {\mysectionstar{*}{#2}}%
  {\mysection{#1}}%
}

\newcommand{\mysectionstar}[2]{%
  \ifdonumberparagraphs%
  \nonumberparagraphs%
  \mypkg@@section*{#2}%
  \numberparagraphs%
  \else%
  \mypkg@@section*{#2}%
  \fi}

\newcommand{\mysection}[1]{%
  \ifdonumberparagraphs%
  \nonumberparagraphs%
  \mypkg@@section{#1}%
  \numberparagraphs%
  \else%
  \mypkg@@section{#1}%
  \fi}




\let\mypkg@@chapter\chapter
\renewcommand{\chapter}[1]{\ifdonumberparagraphs%
  \nonumberparagraphs%
  \mypkg@@chapter{#1}%
  \numberparagraphs%
  \else%
  \mypkg@@chapter{#1}%
  \fi}