new context package context-fixme (16jun09)

git-svn-id: svn://tug.org/texlive/trunk@13788 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 182 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/context/third/fixme/t-fixme.tex b/Master/texmf-dist/tex/context/third/fixme/t-fixme.tex
new file mode 100644
index 00000000000..6fac8eb9a17
--- /dev/null
+++ b/Master/texmf-dist/tex/context/third/fixme/t-fixme.tex
@@ -0,0 +1,182 @@
+%D \module
+%D   [      file=t-fixme,
+%D        version=2009.05.03,
+%D          title=\CONTEXT\ User Module,
+%D       subtitle=Fixme,
+%D         author=Wolfgang Schuster,
+%D           date=\currentdate,
+%D      copyright=Wolfgang Schuster,
+%D          email=schuster.wolfgang@googlemail.com,
+%D        license=Public Domain]
+
+\writestatus{loading}{Context User Module / Fixme}
+
+\unprotect
+
+%D Logo
+
+\def\fixmelogo{{\ss FiXme}} \logo[FIXME]{\fixmelogo}
+
+\startinterface all
+  \setinterfaceconstant {version} {version}
+\stopinterface
+
+\startinterface all
+  \setinterfacevariable {fixme}     {fixme}
+  \setinterfacevariable {fixmes}    {fixmes}
+  \setinterfacevariable {fatal}     {fatal}
+  \setinterfacevariable {note}      {note}
+  \setinterfacevariable {warning}   {warning}
+  \setinterfacevariable {error}     {error}
+  \setinterfacevariable {total}     {total}
+  \setinterfacevariable {draft}     {draft}
+  \setinterfacevariable {fxnote}    {fxnote}
+  \setinterfacevariable {fxwarning} {fxwarning}
+  \setinterfacevariable {fxerror}   {fxerror}
+\stopinterface
+
+%D Messages
+
+\definemessageconstant {fixme}
+
+\startinterface all
+  \setinterfacemessage{fixme}{title}{FiXme}
+  \setinterfacemessage{fixme}{1}    {Number of notes: --}
+  \setinterfacemessage{fixme}{2}    {Number of warnings: --}
+  \setinterfacemessage{fixme}{3}    {Number of errors:}
+  \setinterfacemessage{fixme}{4}    {Number of fatal errors: --}
+  \setinterfacemessage{fixme}{5}    {Total: --}
+\stopinterface
+
+%D Namespace and setup command
+
+\def\????fx{@@@@fx} % FiXme
+
+\def\setupfixme
+  {\dosingleargument\dosetupfixme}
+
+\def\dosetupfixme[#1]%
+  {\doifassignmentelse{#1}
+     {\getparameters[\????fx][#1]}
+     {\setvalue{\????fx\c!version}{#1}}}
+
+%D Lists
+
+\definelist[\v!fixme][\c!width=\zeropoint]
+
+\setvalue{\e!place   \e!listof\v!fixmes}{\dodoubleempty\doplacelist     [\v!fixme]}
+\setvalue{\e!complete\e!listof\v!fixmes}{\dotripleempty\dodocompletelist[\v!fixme][\v!fixmes]}
+
+%D Commands
+
+\makecounter{\????fx\v!note   } % \pluscounter is not so
+\makecounter{\????fx\v!warning} % clever as \increment 
+\makecounter{\????fx\v!error  } % and I have to define
+\makecounter{\????fx\v!fatal  } % the counters before
+\makecounter{\????fx\v!total  } % I can use them
+
+\def\dofixme[#1][#2]#3%
+  {\removeunwantedspaces
+   \bgroup
+   \ifsecondargument
+     \setvalue{\????fx\c!location}{#2}%
+   \fi
+   \expanded{\writetolist[\v!fixme]{}{\labeltext{fixme#1}#3}}%
+   \pluscounter{\????fx\v!total}%
+   \pluscounter{\????fx      #1}%
+   \doif\@@@@fxversion\v!draft{\processcommacommand[\@@@@fxlocation]{\dofixmelocation{#1}{#3}}}%
+   \egroup}
+
+\def\dofixmelocation#1#2#3{\executeifdefined{@@fixme@@#3}\gobbleoneargument{\labeltext{fixme#1}#2}}
+
+\setvalue{@@fixme@@\v!text    }#1{\ifhmode\normalspace\fi#1}
+\setvalue{@@fixme@@\v!margin  }#1{\inright {#1}}
+\setvalue{@@fixme@@\v!footnote}#1{\footnote{#1}}
+
+\def\dostartfixme[#1][#2]%
+  {\bgroup
+   \setupfixme[\c!list=,#2]%
+   \doifsomething\@@@@fxlist{\expanded{\writetolist[\v!fixme]{}{\labeltext{fixme#1}\@@@@fxlist}}}%
+   \pluscounter{\????fx\v!total}%
+   \pluscounter{\????fx      #1}%
+   \@@@@fxbefore}
+
+\def\dostopfixme
+  {\@@@@fxafter
+   \egroup}
+
+\def\definefixme
+  {\dodoubleargument\dodefinefixme}
+
+\def\dodefinefixme[#1][#2]%
+  {\setvalue        {#1}{\dodoubleempty\dofixme     [#2]}%
+   \setvalue{\e!start#1}{\dodoubleempty\dostartfixme[#2]}%
+   \setvalue{\e!stop #1}{\dostopfixme}}
+
+\definefixme[\v!fixme    ][\v!fatal  ]
+\definefixme[\v!fxnote   ][\v!note   ]
+\definefixme[\v!fxwarning][\v!warning]
+\definefixme[\v!fxerror  ][\v!error  ]
+
+\appendtoks
+    \showmessage\m!fixme{1}{\countervalue{\????fx\v!note   }}%
+    \showmessage\m!fixme{2}{\countervalue{\????fx\v!warning}}%
+    \showmessage\m!fixme{3}{\countervalue{\????fx\v!error  }}%
+    \showmessage\m!fixme{4}{\countervalue{\????fx\v!fatal  }}%
+    \showmessage\m!fixme{5}{\countervalue{\????fx\v!total  }}%
+\to\everynotabene
+
+%D Labels
+
+\setupheadtext[\s!en][fixmes=List of Corrections]
+\setupheadtext[\s!de][fixmes=Verzeichnis der Korrekturen]
+\setupheadtext[\s!fr][fixmes=Liste des Corrections]
+\setupheadtext[\s!it][fixmes=Corrigenda]
+\setupheadtext[\s!es][fixmes=Lista de Correcciones]
+\setupheadtext[\s!da][fixmes=Rettelser]
+\setupheadtext[\s!hr][fixmes=Popis korekcija]
+
+\setuplabeltext[\s!en][fixmenote=\fixmelogo~Note: ]
+\setuplabeltext[\s!en][fixmewarning=\fixmelogo~Warning: ]
+\setuplabeltext[\s!en][fixmeerror=\fixmelogo~Error: ]
+\setuplabeltext[\s!en][fixmefatal=\fixmelogo: ]
+
+\setuplabeltext[\s!de][fixmenote=\fixmelogo~Anm.: ]
+\setuplabeltext[\s!de][fixmewarning=\fixmelogo~Warnung: ]
+\setuplabeltext[\s!de][fixmeerror=\fixmelogo~Fehler: ]
+\setuplabeltext[\s!de][fixmefatal=\fixmelogo]
+
+\setuplabeltext[\s!fr][fixmenoteprefix=\fixmelogo~Note: ]
+\setuplabeltext[\s!fr][fixmewarningprefix=\fixmelogo~Attention: ]
+\setuplabeltext[\s!fr][fixmeerrorprefix=\fixmelogo~Erreur: ]
+\setuplabeltext[\s!fr][fixmefatalprefix=\fixmelogo: ]
+
+\setuplabeltext[\s!it][fixmenoteprefix=\fixmelogo~Nota: ]
+\setuplabeltext[\s!it][fixmewarningprefix=\fixmelogo~Avviso: ]
+\setuplabeltext[\s!it][fixmeerrorprefix=\fixmelogo~Errore: ]
+\setuplabeltext[\s!it][fixmefatalprefix=\fixmelogo: ]
+
+\setuplabeltext[\s!es][fixmenoteprefix=\fixmelogo~Nota: ]
+\setuplabeltext[\s!es][fixmewarningprefix=\fixmelogo~Aviso: ]
+\setuplabeltext[\s!es][fixmeerrorprefix=\fixmelogo~Error: ]
+\setuplabeltext[\s!es][fixmefatalprefix=\fixmelogo: ]
+
+\setuplabeltext[\s!da][fixmenoteprefix=\fixmelogo~Note: ]
+\setuplabeltext[\s!da][fixmewarningprefix=\fixmelogo~Advarsel: ]
+\setuplabeltext[\s!da][fixmeerrorprefix=\fixmelogo~Fejl: ]
+\setuplabeltext[\s!da][fixmefatalprefix=\fixmelogo: ]
+
+\setuplabeltext[\s!hr][fixmenoteprefix=\fixmelogo~Poruka: ]
+\setuplabeltext[\s!hr][fixmewarningprefix=\fixmelogo~Upozorenje: ]
+\setuplabeltext[\s!hr][fixmeerrorprefix=\fixmelogo~Gre\scaron ska: ]
+\setuplabeltext[\s!hr][fixmefatalprefix=\fixmelogo: ]
+
+%D Defaults
+
+\setupfixme
+  [\c!before=\startquotation,
+   \c!after=\stopquotation,
+   \c!location=\v!margin,
+   \c!version=\v!draft]
+
+\protect \endinput