dotfiles/texmf/tex/latex/frank_tex/blindtext.sty

320 lines
12 KiB
Text
Raw Normal View History

2014-01-02 22:55:00 +00:00
%%
%% This is file `blindtext.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% blindtext.dtx (with options: `package')
%% ----------------------------------------------------------------------
%% The original file is loadable from CTAN on:
%% macros/latex/contrib/supported/minutes
%%
%% Name of contribution: minutes
%% Name and email: Knut Lickert <knut.lickert@gmx.de>
%% Location on CTAN: tex-archive/macros/latex/contrib/supported/lickert
%% Summary description: Package for writing text
%% License type: Free
%%
%% Announcement text:
%% blindtext.sty:
%% Style to create text.
%% Can be used to create examples with a lot text to become a feeling
%% for the look of classes, packages...
%% ----------------------------------------------------------------------
\def\fileversion{V1.4}
\def\filedate{2003/12/14}
%%
%% \CharacterTable
%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%% Digits \0\1\2\3\4\5\6\7\8\9
%% Exclamation \! Double quote \" Hash (number) \#
%% Dollar \$ Percent \% Ampersand \&
%% Acute accent \' Left paren \( Right paren \)
%% Asterisk \* Plus \+ Comma \,
%% Minus \- Point \. Solidus \/
%% Colon \: Semicolon \; Less than \<
%% Equals \= Greater than \> Question mark \?
%% Commercial at \@ Left bracket \[ Backslash \\
%% Right bracket \] Circumflex \^ Underscore \_
%% Grave accent \` Left brace \{ Vertical bar \|
%% Right brace \} Tilde \~}
%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{blindtext}[\filedate\space\fileversion\space%
blindtext-Package]
\typeout{Minutes-Package}
\RequirePackage{xspace}
\providecommand{\frqq}{}
\providecommand{\flqq}{}
\newcounter{blindtext}\setcounter{blindtext}{1}
\newcounter{Blindtext}\setcounter{Blindtext}{5}
\newcount\blind@countxx
\newcommand{\blindtext}[1][\value{blindtext}]{
\blind@countxx=1
\loop
\blindtext@text
\ifnum\blind@countxx<#1\advance\blind@countxx by 1
\repeat
}
\newcount\blindtext@numBlindtext
\newcommand{\Blindtext}[1][\value{Blindtext}]{
\blindtext@numBlindtext=#1
\blind@Blindtext}
\newcount\blind@countyy
\newcommand{\blind@Blindtext}[1][\value{blindtext}]{
\blind@countyy=1
\loop
{\blindtext@parstart\blindtext[#1]\blindtext@parend\par}
\ifnum\blind@countyy<\blindtext@numBlindtext\advance\blind@countyy by 1
\repeat
}
\newcommand{\blindtext@parstart}{} %Text at start of paragraph
\newcommand{\blindtext@parend}{} %Text at end of paragraph
\newcommand{\parstart}[1]{\renewcommand{\blindtext@parstart}{#1}}
\newcommand{\parend}[1]{\renewcommand{\blindtext@parend}{#1}}
\newif\ifblind@long\blind@longfalse
\newif\ifblind@optional\blind@optionalfalse
\newcounter{blindlist}
\newcounter{blindlistlevel}%Up tu X level
\newcounter{blindlist@level}%internal counter
\newcount\blind@listitem
%% ^^A-----------------------------------------------------------
\newcommand{\blindlist}[1]{
\def\blind@listtype{#1}
\setcounter{blind@levelcount}{1}
\blind@list
}
\newcommand{\blind@list}[1][5]{
\setcounter{blindlist}{#1}
\addtocounter{blindlist@level}{1}%depth of list
\blind@listitem=1
\begin{\blind@listtype}
\blind@items
\end{\blind@listtype}
\blind@longfalse
\blind@optionalfalse
}
\newcommand{\blindlistlist}[2][4]{
\setcounter{blindlistlevel}{#1}
\setcounter{blindlist@level}{0}%deepest reached level
\setcounter{blind@levelcount}{1}%actual level for printout
\def\blind@listtype{#2}
\blind@list
}
\newcommand{\blindlistlistoptional}{
\blind@optionaltrue
\blindlistlist
}
\newcommand{\blinditemize}{\blindlist{itemize}}
\newcommand{\blindenumerate}{\blindlist{enumerate}}
\newcommand{\Blindlist}[1]{
\blind@longtrue
\blindlist{#1}
}
\newcommand{\Blinditemize}{\Blindlist{itemize}}
\newcommand{\Blindenumerate}{\Blindlist{enumerate}}
\newcommand{\blindlistoptional}[1]{
\blind@optionaltrue
\blindlist{#1}
}
\newcommand{\Blindlistoptional}[1]{
\blind@optionaltrue
\blind@longtrue
\blindlist{#1}
}
\newcommand{\blinddescription}{\blindlistoptional{description}}
\newcommand{\Blinddescription}{\Blindlistoptional{description}}
\newcounter{listcount}
\newcounter{blind@levelcount}
\newcommand{\blind@items}{
\setcounter{listcount}{1}
\loop
\ifblind@optional
\ifblind@long
\item[\blindtext@countitem] \blindtext@text
\else
\item[\blindtext@count] \blindtext@item
\fi
\else%\blind@optionalfalse
\ifblind@long
\item \blindtext@text
\else
\item \blindtext@countitem
\fi
\fi%\ifblind@optional
{\loop
\ifnum\value{blindlistlevel}>\value{blindlist@level}
\addtocounter{blind@levelcount}{1}
\blind@list[\value{blindlist}]\relax
\addtocounter{blind@levelcount}{-1}
\setcounter{listcount}{1}
\repeat}
\ifnum\value{listcount}<\value{blindlist}\addtocounter{listcount}{1}
\repeat
}
%% ^^A-----------------------------------------------------------
\newcommand{\blinddocument}{
\@ifundefined{chapter}{}{%
\chapter{\blindtext@heading 0 (chapter)}\blindtext%
}
\section{ \blindtext@heading 1 (section)} \blindtext
\subsection{ \blindtext@heading 2 (subsection)} \blindtext
\subsubsection{ \blindtext@heading 3 (subsubsection)} \blindtext
\paragraph{ \blindtext@heading 4 (paragraph)} \blindtext
\section{\blindtext@list}
\subsection{\blindtext@listEx (itemize)}
\blinditemize
\subsubsection{\blindtext@listEx (4*itemize)}
\blindlistlist{itemize}[2]
\subsection{\blindtext@listEx (enumerate)}
\blindenumerate
\subsubsection{\blindtext@listEx (4*enumerate)}
\blindlistlist{enumerate}[2]
\subsection{\blindtext@listEx (description)}
\blinddescription
\subsubsection{\blindtext@listEx (4*description)}
\blindlistlistoptional{description}[2]
}
\newcommand{\Blinddocument}{
\@ifundefined{chapter}{}{%
\chapter{\blindtext@heading 0 (chapter)}\blindtext%
}
\section{ \blindtext@heading 1 (section)} \Blindtext
\subsection{ \blindtext@heading 2 (subsection)} \Blindtext
\subsubsection{ \blindtext@heading 3 (subsection)} \Blindtext
\paragraph{ \blindtext@heading 4 (paragraph)} \Blindtext
\section{\blindtext@list}
\subsection{\blindtext@listEx (itemize)}
\Blinditemize
\subsubsection{\blindtext@listEx (4*itemize)}
\blind@longtrue
\blindlistlist{itemize}[2]
\subsection{\blindtext@listEx (enumerate)}
\Blindenumerate
\subsubsection{\blindtext@listEx (4*enumerate)}
\blind@longtrue
\blindlistlist{enumerate}[2]
\subsection{\blindtext@listEx (description)}
\Blinddescription
\subsubsection{\blindtext@listEx (4*description)}
\blind@longtrue
\blindlistlistoptional{description}[2]
}
%% ^^A-----------------------------------------------------------
\@ifundefined{addto}{
\@ifpackageloaded{babel}{}{
\PackageWarning{blindtext}{%
You are not using babel.sty -> Language by random\MessageBreak
Kein babel.sty verwendet -> Zufallssprache}}
\newcommand{\addto}[2]{#2}
}{}
\def\blindtext@text{Text}
\def\blindtext@count{\ifcase\blind@listitem\or
First\or Second %...
\else Last\blind@listitem=0\fi
\global\advance\blind@listitem by 1
}%\blindtext@count}
\def\blindtext@item{itemtext}
\def\blindtext@countitem{\blindtext@count\ \blindtext@item}
\def\blindtext@heading{Heading on level\xspace}
\def\blindtext@list{Lists}
\def\blindtext@listEx{Example for list\xspace}
\addto\extrasenglish{
\def\blindtext@text{
Hello, here is some text without a meaning. This text should show,
how a printed text will look like at this place. If you read this
text, you will get no information. Really? Is there no
information? Is there a difference between this text and some
nonsense like \frqq Huardest gefburn\flqq? Kjift -- Never mind! A
blind text like this gives you information about the selected
font, how the letters are written and the impression of the look.
This text should contain all letters of the alphabet and it should
be written in of the original language. There is no need for a
special contents, but the length of words should match to the
language.}%\blindtext@text
}
\addto\extrasenglish{
\def\blindtext@count{\ifcase\value{listcount}\or
First\or Second \or Third \or Fourth\or Fivth\or
Sixth\or Seventh\or Eighth \or Ninth\or Tenth\or
Eleventh\or Twelfth
\else Another
\fi
}%\blindtext@count
\def\blindtext@item{item in a list} %, level~\arabic{blindlist@level}}
} %\addto\extrasenglish
\addto\extrasenglish{
\def\blindtext@heading{Heading on level\xspace}
\def\blindtext@list{Lists}
\def\blindtext@listEx{Example for list\xspace}
} %\addto\extrasenglish
\addto\extrasgerman{
\def\blindtext@text{
Dies hier ist ein Blindtext zum Testen von Textausgaben. Wer
diesen Text liest, ist selbst schuld. Der Text gibt lediglich den
Grauwert der Schrift an. Ist das wirklich so? Ist es
gleich\-g\"ul\-tig ob ich schreibe: \frqq Dies ist ein
Blindtext\flqq\ oder \frqq Huardest gefburn\flqq? Kjift --
mitnichten! Ein Blindtext bietet mir wichtige Informationen. An
ihm messe ich die Lesbarkeit einer Schrift, ihre Anmutung, wie
harmonisch die Figuren zueinander stehen und pr\"u\-fe, wie breit
oder schmal sie l\"auft. Ein Blindtext sollte m\"og\-lichst viele
verschiedene Buchstaben enthalten und in der Originalsprache
gesetzt sein. Er mu\ss\ keinen Sinn ergeben, sollte aber lesbar
sein. Fremdsprachige Texte wie \frqq Lorem ipsum\flqq\ dienen
nicht dem eigentlichen Zweck, da sie eine
falsche Anmutung vermitteln.}%\blindtext@text
}
\addto\extrasgerman{
\def\blindtext@count{\ifcase\value{listcount}\or
Erster\or Zweiter \or Dritter \or Vierter \or F{\"u}nfter \or
Sechster \or Siebter\or Achter \or Neunter \or Zehnter\or
Elfter \or Zw{\"o}lfter \or Dreizehnter \or Vierzehnter
\else Noch ein\fi
}%\blindtext@count
\def\blindtext@item{Listenpunkt, Stufe~\arabic{blind@levelcount}}
}% %\addto\extrasgerman
\addto\extrasgerman{
\def\blindtext@heading{{\"U}berschrift auf Ebene\xspace}
\def\blindtext@list{Listen}
\def\blindtext@listEx{Beispiel einer Liste\xspace}
} %\addto\extrasgerman
\@ifpackageloaded{german}{\selectlanguage{german}}{}
\addto\extrasngerman{
\def\blindtext@text{
Dies hier ist ein Blindtext zum Testen von Textausgaben. Wer
diesen Text liest, ist selbst schuld. Der Text gibt lediglich den
Grauwert der Schrift an. Ist das wirklich so? Ist es
gleich\-g\"ul\-tig ob ich schreibe: \frqq Dies ist ein
Blindtext\flqq\ oder \frqq Huardest gefburn\flqq? Kjift --
mitnichten! Ein Blindtext bietet mir wichtige Informationen. An
ihm messe ich die Lesbarkeit einer Schrift, ihre Anmutung, wie
harmonisch die Figuren zueinander stehen und pr\"u\-fe, wie breit
oder schmal sie l\"auft. Ein Blindtext sollte m\"og\-lichst viele
verschiedene Buchstaben enthalten und in der Originalsprache
gesetzt sein. Er mu\ss\ keinen Sinn ergeben, sollte aber lesbar
sein. Fremdsprachige Texte wie \frqq Lorem ipsum\flqq\ dienen
nicht dem eigentlichen Zweck, da sie eine
falsche Anmutung vermitteln.}%\blindtext@text
}
\addto\extrasngerman{
\def\blindtext@count{\ifcase\value{listcount}\or
Erster\or Zweiter \or Dritter \or Vierter \or F{\"u}nfter \or
Sechster \or Siebter\or Achter \or Neunter \or Zehnter\or
Elfter \or Zw{\"o}lfter \or Dreizehnter \or Vierzehnter
\else Noch ein\fi
}%\blindtext@count
\def\blindtext@item{Listenpunkt, Stufe~\arabic{blind@levelcount}}
}% %\addto\extrasgerman
\addto\extrasngerman{
\def\blindtext@heading{{\"U}berschrift auf Ebene\xspace}
\def\blindtext@list{Listen}
\def\blindtext@listEx{Beispiel einer Liste\xspace}
} %\addto\extrasngerman
\@ifpackageloaded{ngerman}{\selectlanguage{ngerman}}{}
\let\alotoftext=\blindtext
\endinput
%%
%% End of file `blindtext.sty'.