usecommands.tex
`
`
\documentclass[a4paper]{article}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[ngerman]{babel}
\usepackage{filecontents}
\usepackage{usecommands}
\title{\jobname}
\begin{document}
\maketitle
%\usecommands `%Diesen Befehl kommentiert man ein, wenn man eine Legende und einen Zeiger für die Befehle erhalten will.
Viel Text. Viel Text. Viel Text. Viel Text. Viel Text. Viel Text. Viel
Text. Viel Text. Viel Text. Viel Text. \myfatletter{Viel Text.} Viel Text. Viel Text. \minitab
Viel Text. Viel Text. Viel Text. Viel Text. Viel Text. Viel Text. Viel
Text. \myitem Viel Text. Viel Text. Viel Text. Viel Text. Viel Text\mytext Viel Text.
\end{document}
usecommands.sty
\begin{filecontents*}{usecommands.sty}
%Eine Sammlung von paketunabhängigen Befehlen
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% ****************************************
% * USECOMMANDS
% ****************************************
%
%% This file may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.2
%% of this license or (at your option) any later version.
%% The lambe version of this license is in
%% http://www.latex-project.org/lppl.txt
%% and version 1.2 or later is part of all distributions of LaTeX
%% version 1999/12/01 or later.
%%ab hier nicht verändern
\ProvidesPackage{usecommands}
\RequirePackage{xcolor}
%Dies ist eine Sammlung von Befehlen, für die es sich nicht lohnt, ein eigenes
%Paket zu erstellen.
\newcounter{usecommands}
\newcommand{\tb}{\textbackslash}%
\newcommand{\usecommands}{\setcounter{usecommands}{1}}%
\newcommand{\origin}{usecommands.sty:\ }%
\newcommand\newnotestype[1]{%
\newcounter{#1note}%
\expandafter\newwrite\csname the#1notes\endcsname%
\expandafter\immediate\expandafter\openout%
\csname the#1notes\endcsname=\jobname.#1\relax%
\expandafter\newcommand\csname #1note\endcsname[1]{%
\refstepcounter{#1note}%
{%
\textcolor{red}{\small\textsuperscript{%
\raisebox{1ex}{\hbox{\kern-0.0em c\csname
the#1note\endcsname\kern-0.0em}}%
}}%
}%
\expandafter\immediate\expandafter\write\csname the#1notes\endcsname
{c\csname the#1note\endcsname\ \unexpanded{##1 \parskip=0pt \par}}%
}%
%
\expandafter\newcommand\csname display#1notes\endcsname[1]{%
\vspace{1\baselineskip}%
\expandafter\immediate\expandafter\closeout%
\csname the#1notes\endcsname%
\par\small\textbf{##1}\par%
\input\jobname.#1%
}%
}%
\newnotestype{use}%
\AtEndDocument{\ifnum\theusecommands=1\displayusenotes{usecommands} \fi}%
%%bis hierhin nicht verändern
\newcommand{\minitab}{%
\parskip=1\baselineskip%
\par%
\begin{tabular}[c]{ccc}%
Äpfel&Orangen&Pflaumen\\%
Limonen&Mandarinen&Bananen\\%
\end{tabular}%
\ifnum\theusecommands=1 \usenote{\origin \textit{unknown} Kleine Tabelle}\fi \par}%
\newcommand{\mytext}{%
\parskip=1\baselineskip%
\par%
\begin{quote}{``Ein Zitat''}\end{quote}%
\ifnum\theusecommands=1 \usenote{\origin \textit{unknown} mytext}\fi \par}%
\newcommand{\myitem}{%
\parskip=1\baselineskip%
\par%
\begin{itemize}
\item Äpfel
\item Bohnen
\end{itemize}%
\ifnum\theusecommands=1 \usenote{\origin \textit{unknown} myitem}\fi \par}%
\newcommand{\myfatletter}[1]{%
\parskip=1\baselineskip%
\par%
\textbf{#1}
\ifnum\theusecommands=1 \usenote{\origin \textit{ctansearch} myfatletter}\fi
\par}%
\endinput%
\endinput%
\end{filecontents*}
\begin{document}
\usecommands
Viel Text. Viel Text. Viel Text. Viel Text. Viel Text. Viel Text. Viel
Text. Viel Text. Viel Text. Viel Text. \myfatletter{Viel Text.} Viel Text. Viel Text. \minitab
Viel Text. Viel Text. Viel Text. Viel Text. Viel Text. Viel Text. Viel
Text. \myitem Viel Text. Viel Text. Viel Text. Viel Text. Viel Text\mytext Viel Text.\myitem
\end{document}