49.1 g-brief

<..g-brief.4ht..>
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % g-brief.4ht                            2014-07-12-22:36 %
 % Copyright (C) 2004--2009       Eitan M. Gurari         %
 <.TeX4ht copyright.>
   <.g-brief hooks.>
 \Hinput{g-brief}
 \endinput
 -_-_-

<..g-brief hooks..>
 \def\ps@firstpage{%
   \ifcase \@ptsize\relax \normalsize \or \small \or \footnotesize \fi
   \def\@oddhead{<.g-brief head.>}
   \def\@oddfoot{<.g-brief foot.>}}
 \NewConfigure{letterfoot}{3}
 \NewConfigure{letterhead}{5}
 -_-_-

<..g-brief head..>
 \a:letterhead
   \ifklassisch \textsl{\quad\name}\else \textsc{\quad\name}\fi
 \b:letterhead
   \normalsize
   \ifklassisch
      \begin{tabular}{r} \textsl{\strasse} \quad \\
        \ifx \zusatz\empty \else \textsl{\zusatz}\quad \\\fi
        \textsl{\ort}\quad
        \ifx \land\empty \else \\ \textsl{\land}\quad \fi
      \end{tabular}
   \else
      \begin{tabular}{r}
        \textsc{\strasse}\quad \\
        \ifx \zusatz\empty \else \textsc{\zusatz}\quad \\ \fi
        \textsc{\ort}\quad
        \ifx \land\empty \else \\ \textsc{\land}\quad \fi
      \end{tabular}%
   \fi
 \c:letterhead
  \bgroup
  \scriptsize \ifx \retouradresse\empty
           \textrm{\name\ $\cdot$\ \strasse\ $\cdot$\ \ort \ifx
               \land\empty \else \ $\cdot$\ \land \fi } \else
             \textrm{\retouradresse} \fi
  \egroup
 \d:letterhead
  \ifx \postvermerk\empty
           \else \textbf{\postvermerk} \par  \fi
 \adresse
 \e:letterhead
 -_-_-

<..g-brief foot..>
 \def\istsprache{german}
 \a:letterfoot
 \bgroup   \footnotesize
    \begin{tabular}{ll}
      \ifx \telefon\empty \else \telefontex & \telefon \\ \fi \ifx
      \telefax\empty \else \telefaxtext & \telefax \\ \fi \ifx
      \telex\empty \else \telextext & \telex \\ \fi \ifx
      \email\empty \else \emailtext & \email \\ \fi \ifx
      \http\empty \else \httptext & \http \\ \fi \
    \end{tabular}%
 \egroup
 \b:letterfoot
    \begin{tabular}{ll}
      \ifx \bank\empty \else \ifx \blz\empty \else \ifx
      \konto\empty \else \banktext & \bank \\ & \blztext \space \blz
      \\ & \kontotext \space \konto \\ \ \fi \fi \fi
    \end{tabular}%
 \c:letterfoot
 -_-_-

<..insert g-brief head..>
 \ifx\zusatz\empty\else
    \pend:def\zusatz{\a:zusatz}
    \append:def\zusatz{\b:zusatz}
 \fi
 \ifx\land\empty\else
    \pend:def\land{\a:land}
    \append:def\land{\b:land}
 \fi
 \ifx\strasse\empty\else
    \pend:def\strasse{\a:strasse}
    \append:def\strasse{\b:strasse}
 \fi
 
 \ifx\ort\empty\else
    \pend:def\ort{\a:ort}
    \append:def\ort{\b:ort}
 \fi
 
 \ifx\postvermerk\empty\else
    \pend:def\postvermerk{\a:postvermerk}
    \append:def\postvermerk{\b:postvermerk}
 \fi
 \ifx\retouradresse\empty\else
    \pend:def\retouradresse{\a:retouradresse}
    \append:def\retouradresse{\b:retouradresse}
 \fi
 \par \ps@firstpage \@oddhead \let\@oddhead=\empty
 -_-_-

<..insert g-brief foot..>
 \ifx\email\empty\else
    \pend:def\email{\a:email}
    \append:def\email{\b:email}
 \fi
 \ifx\telefon\empty\else
    \pend:def\telefon{\a:telefon}
    \append:def\telefon{\b:telefon}
 \fi
 \ifx\telefax\empty\else
    \pend:def\telefax{\a:telefax}
    \append:def\telefax{\b:telefax}
 \fi
 \ifx\telex\empty\else
    \pend:def\telex{\a:telex}
    \append:def\telex{\b:telex}
 \fi
 \ifx\http\empty\else
    \pend:def\http{\a:http}
    \append:def\http{\b:http}
 \fi
 \ifx\bank\empty\else
    \pend:def\bank{\a:bank}
    \append:def\bank{\b:bank}
 \fi
 \ifx\blz\empty\else
    \pend:def\blz{\a:blz}
    \append:def\blz{\b:blz}
 \fi
 \ifx\konto\empty\else
    \pend:def\konto{\a:konto}
    \append:def\konto{\b:konto}
 \fi
 \par \ps@firstpage \@oddfoot\let\@oddfoot=\empty
 -_-_-

<..g-brief hooks..>+
 \expandafter\pend:def\csname g-brief\endcsname{%
  \bgroup <.insert g-brief head.>\egroup
    \csname a:g-brief\endcsname
    \ifx \betreff\empty \else
       \pend:def\betreff{\a:betreff}%
       \append:def\betreff{\b:betreff}%
    \fi
    \ifx \anrede\empty \else
       \pend:def\anrede{\a:anrede}%
       \append:def\anrede{\b:anrede}%
    \fi
 }
 \expandafter\append:def\csname g-brief\endcsname{%
    \csname b:g-brief\endcsname
 }
 -_-_-

<..g-brief hooks..>+
 \expandafter\pend:def\csname endg-brief\endcsname{%
    \csname c:g-brief\endcsname
    <.hooks for g-brief tail.>}
 \expandafter\append:def\csname endg-brief\endcsname{%
    \csname d:g-brief\endcsname
    \bgroup <.insert g-brief foot.>\egroup
 }
 \NewConfigure{g-brief}{4}
 -_-_-

<..hooks for g-brief tail..>
 \ifx\gruss\empty \else
    \pend:def\gruss{\a:gruss}%
    \append:def\gruss{\b:gruss}%
 \fi
 \ifx\unterschrift\empty \else
    \pend:def\unterschrift{\a:unterschrift}%
    \append:def\unterschrift{\b:unterschrift}%
 \fi
 \ifx\anlagen\empty \else
    \pend:def\anlagen{\a:anlagen}%
    \append:def\anlagen{\b:anlagen}%
 \fi
 \ifx\verteiler\empty \else
    \pend:def\verteiler{\a:verteiler}%
    \append:def\verteiler{\b:verteiler}%
 \fi
 -_-_-

<..g-brief hooks..>+
 \pend:def\datumtext{\a:datumtext}
 \append:def\datumtext{\b:datumtext}
 \NewConfigure{datumtext}{2}
 
 \pend:def\datum{\a:datum}
 \append:def\datum{\b:datum}
 \NewConfigure{datum}{2}
 
 \NewConfigure{anrede}{2}
 \NewConfigure{betreff}{2}
 
 \pend:def\sprache{\a:sprache}
 \append:def\sprache{\b:sprache}
 
 \NewConfigure{gruss}{2}
 \NewConfigure{unterschrift}{2}
 \NewConfigure{anlagen}{2}
 \NewConfigure{verteiler}{2}
 
 \NewConfigure{sprache}{2}
 
 \pend:def\telefontex{\a:telefontex}
 \append:def\telefontex{\b:telefontex}
 \NewConfigure{telefontex}{2}
 
 \pend:def\telefaxtext{\a:telefaxtext}
 \append:def\telefaxtext{\b:telefaxtext}
 \NewConfigure{telefaxtext}{2}
 
 \pend:def\telextext{\a:telextext}
 \append:def\telextext{\b:telextext}
 \NewConfigure{telextext}{2}
 
 \pend:def\emailtext{\a:emailtext}
 \append:def\emailtext{\b:emailtext}
 \NewConfigure{emailtext}{2}
 
 \pend:def\httptext{\a:httptext}
 \append:def\httptext{\b:httptext}
 \NewConfigure{httptext}{2}
 
 \pend:def\banktext{\a:banktext}
 \append:def\banktext{\b:banktext}
 \NewConfigure{banktext}{2}
 
 \pend:def\blztext{\a:blztext}
 \append:def\blztext{\b:blztext}
 \NewConfigure{blztext}{2}
 
 \pend:def\betrefftext{\a:betrefftext}
 \append:def\betrefftext{\b:betrefftext}
 \NewConfigure{betrefftext}{2}
 
 \pend:def\ihrzeichentext{\a:ihrzeichentext}
 \append:def\ihrzeichentext{\b:ihrzeichentext}
 \NewConfigure{ihrzeichentext}{2}
 
 \pend:def\ihrschreibentext{\a:ihrschreibentext}
 \append:def\ihrschreibentext{\b:ihrschreibentext}
 \NewConfigure{ihrschreibentext}{2}
 
 \pend:def\meinzeichentext{\a:meinzeichentext}
 \append:def\meinzeichentext{\b:meinzeichentext}
 \NewConfigure{meinzeichentext}{2}
 
 \pend:def\unserzeichentext{\a:unserzeichentext}
 \append:def\unserzeichentext{\b:unserzeichentext}
 \NewConfigure{unserzeichentext}{2}
 
 \NewConfigure{anlagen}{2}
 \NewConfigure{adresse}{2}
 \NewConfigure{bank}{2}
 \NewConfigure{blz}{2}
 \NewConfigure{email}{2}
 \NewConfigure{gruss}{2}
 \NewConfigure{grussskip}{2}
 \NewConfigure{http}{2}
 \NewConfigure{ihrschreiben}{2}
 \NewConfigure{ihrzeichen}{2}
 \NewConfigure{konto}{2}
 \NewConfigure{land}{2}
 \NewConfigure{meinzeichen}{2}
 \NewConfigure{name}{2}
 \NewConfigure{ort}{2}
 \NewConfigure{postvermerk}{2}
 \NewConfigure{retouradresse}{2}
 \NewConfigure{strasse}{2}
 \NewConfigure{telefax}{2}
 \NewConfigure{telefon}{2}
 \NewConfigure{telex}{2}
 \NewConfigure{unterschrift}{2}
 \NewConfigure{verteiler}{2}
 \NewConfigure{zusatz}{2}
 
 \pend:def\name{\a:name}
 \append:def\name{\b:name}
 -_-_-

<..???..>
    \pend:def\meinzeichen{\a:meinzeichen}
    \append:def\meinzeichen{\b:meinzeichen}
 
    \pend:def\ihrzeichen{\a:ihrzeichen}
    \append:def\ihrzeichen{\b:ihrzeichen}
 
 
 \ifx\anlagen\empty\else
    \pend:def\anlagen{\a:anlagen}
    \append:def\anlagen{\b:anlagen}
 \fi
 
 
 \ifx\adresse\empty\else
    \pend:def\adresse{\a:adresse}
    \append:def\adresse{\b:adresse}
 \fi
 
 \ifx\gruss\empty\else
    \pend:def\gruss{\a:gruss}
    \append:def\gruss{\b:gruss}
 \fi
 
 \ifx\grussskip\empty\else
    \pend:def\grussskip{\a:grussskip}
    \append:def\grussskip{\b:grussskip}
 \fi
 
 
 
 \ifx\ihrschreiben\empty\else
    \pend:def\ihrschreiben{\a:ihrschreiben}
    \append:def\ihrschreiben{\b:ihrschreiben}
 \fi
 
 
 
 
 
 
 
 
 
 
 
 \ifx\unterschrift\empty\else
    \pend:def\unterschrift{\a:unterschrift}
    \append:def\unterschrift{\b:unterschrift}
 \fi
 \ifx\verteiler\empty\else
    \pend:def\verteiler{\a:verteiler}
    \append:def\verteiler{\b:verteiler}
 \fi
 -_-_-