summaryrefslogtreecommitdiff
path: root/obsolete/macros/context/contrib/context-fixme
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /obsolete/macros/context/contrib/context-fixme
Initial commit
Diffstat (limited to 'obsolete/macros/context/contrib/context-fixme')
-rw-r--r--obsolete/macros/context/contrib/context-fixme/tex/context/third/fixme/t-fixme.mkii216
-rw-r--r--obsolete/macros/context/contrib/context-fixme/tex/context/third/fixme/t-fixme.mkiv263
2 files changed, 479 insertions, 0 deletions
diff --git a/obsolete/macros/context/contrib/context-fixme/tex/context/third/fixme/t-fixme.mkii b/obsolete/macros/context/contrib/context-fixme/tex/context/third/fixme/t-fixme.mkii
new file mode 100644
index 0000000000..4a3b898831
--- /dev/null
+++ b/obsolete/macros/context/contrib/context-fixme/tex/context/third/fixme/t-fixme.mkii
@@ -0,0 +1,216 @@
+%D \module
+%D [ file=t-fixme,
+%D version=2013.03.03,
+%D title=\CONTEXT\ User Module,
+%D subtitle=FiXme,
+%D author=Wolfgang Schuster,
+%D date=\currentdate,
+%D copyright=Wolfgang Schuster,
+%D email=schuster.wolfgang@gmail.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 \macros
+%D {setupfixme}
+%D
+%D Namespace and setup command
+
+\def\????fx{@@@@fx} % FiXme
+
+\def\fixmeparameter#1{\csname\????fx\currentfixme#1\endcsname}
+
+\def\setupfixme
+ {\dodoubleempty\dosetupfixme}
+
+\def\dosetupfixme[#1][#2]%
+ {\ifsecondargument
+ \dodoubleargumentwithset\dodosetupfixme[#1][#2]%
+ \else
+ \dodosetupfixme[][#1]%
+ \fi}
+
+\def\dodosetupfixme[#1][#2]%
+ {\edef\currentfixme{#1}%
+ \getparameters[\????fx\currentfixme][#2]}
+
+%D Lists
+
+\definelist[\v!fixme][\c!width=\zeropoint]
+
+\setvalue{\e!place \e!listof\v!fixmes}{\placelist [\v!fixme]}
+\setvalue{\e!complete\e!listof\v!fixmes}{\completelist[\v!fixme]}
+
+%D \macros
+%D {fixme,fxnote,fxwarning,fxerror,
+%D definefixme,definefixmelocation}
+%D
+%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
+ \setupfixme[#1][\c!location={#2}]
+ \expanded{\writetolist[\v!fixme]{}{\labeltext{fixme\fixmeparameter\c!type}#3}}%
+ \pluscounter{\????fx\v!total }%
+ \pluscounter{\????fx\fixmeparameter\c!type}%
+ \doif{\fixmeparameter\c!version}\v!draft
+ {\processcommacommand[\fixmeparameter\c!location]{\expanded{\dofixmelocation{\fixmeparameter\c!type}}{#3}}}%
+ \egroup}
+
+\def\dofixmelocation#1#2#3{\executeifdefined{@@fixme@@#3}\gobbleoneargument{\labeltext{fixme#1}#2}}
+
+\def\definefixmelocation
+ {\dodoubleargument\dodefinefixmelocation}
+
+\def\dodefinefixmelocation[#1][#2]%
+ {\setvalue{@@fixme@@#1}{#2}}
+
+\definefixmelocation [\v!text ] [\ifhmode\normalspace\fi]
+\definefixmelocation [\v!margin ] [\inright ]
+\definefixmelocation [\v!footnote] [\footnote ]
+\definefixmelocation [\v!left ] [\inleft ]
+\definefixmelocation [\v!right ] [\inright ]
+\definefixmelocation [\v!inner ] [\ininner ]
+\definefixmelocation [\v!outer ] [\inouter ]
+
+\def\dostartfixme[#1][#2]%
+ {\bgroup
+ \setupfixme[#1][\c!list=,#2]%
+ \doifelse{\fixmeparameter\c!version}\v!draft
+ {\doifsomething{\fixmeparameter\c!list}{\expanded{\writetolist[\v!fixme]{}{\labeltext{fixme\fixmeparameter\c!type}\fixmeparameter\c!list}}}%
+ \pluscounter{\????fx\v!total }%
+ \pluscounter{\????fx\fixmeparameter\c!type}%
+ \fixmeparameter\c!before}
+ {\egroup\@EA\gobbleuntil\csname\e!stop#1\endcsname}}
+
+\def\dostopfixme
+ {\fixmeparameter\c!after
+ \egroup}
+
+\def\definefixme
+ {\dodoubleargument\dodefinefixme}
+
+\def\dodefinefixme[#1][#2]%
+ {\getparameters
+ [\????fx#1]
+ [\c!before=\@@@@fxbefore,
+ \c!after=\@@@@fxafter,
+ \c!location=\@@@@fxlocation,
+ \c!version=\@@@@fxversion,
+ \c!type=\v!fatal,
+ #2]%
+ \setvalue {#1}{\dodoubleempty\dofixme [#1]}%
+ \setvalue{\e!start#1}{\dodoubleempty\dostartfixme[#1]}%
+ \setvalue{\e!stop #1}{\dostopfixme}}
+
+\definefixme [\v!fixme ] [\c!type=\v!fatal ]
+\definefixme [\v!fxnote ] [\c!type=\v!note ]
+\definefixme [\v!fxwarning] [\c!type=\v!warning]
+\definefixme [\v!fxerror ] [\c!type=\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][fixme=List of Corrections]
+\setupheadtext[\s!de][fixme=Verzeichnis der Korrekturen]
+\setupheadtext[\s!fr][fixme=Liste des Corrections]
+\setupheadtext[\s!it][fixme=Corrigenda]
+\setupheadtext[\s!es][fixme=Lista de Correcciones]
+\setupheadtext[\s!da][fixme=Rettelser]
+\setupheadtext[\s!hr][fixme=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][fixmenote=\fixmelogo~Note: ]
+\setuplabeltext[\s!fr][fixmewarning=\fixmelogo~Attention: ]
+\setuplabeltext[\s!fr][fixmeerror=\fixmelogo~Erreur: ]
+\setuplabeltext[\s!fr][fixmefatal=\fixmelogo: ]
+
+\setuplabeltext[\s!it][fixmenote=\fixmelogo~Nota: ]
+\setuplabeltext[\s!it][fixmewarning=\fixmelogo~Avviso: ]
+\setuplabeltext[\s!it][fixmeerror=\fixmelogo~Errore: ]
+\setuplabeltext[\s!it][fixmefatal=\fixmelogo: ]
+
+\setuplabeltext[\s!es][fixmenote=\fixmelogo~Nota: ]
+\setuplabeltext[\s!es][fixmewarning=\fixmelogo~Aviso: ]
+\setuplabeltext[\s!es][fixmeerror=\fixmelogo~Error: ]
+\setuplabeltext[\s!es][fixmefatal=\fixmelogo: ]
+
+\setuplabeltext[\s!da][fixmenote=\fixmelogo~Note: ]
+\setuplabeltext[\s!da][fixmewarning=\fixmelogo~Advarsel: ]
+\setuplabeltext[\s!da][fixmeerror=\fixmelogo~Fejl: ]
+\setuplabeltext[\s!da][fixmefatal=\fixmelogo: ]
+
+\setuplabeltext[\s!hr][fixmenote=\fixmelogo~Poruka: ]
+\setuplabeltext[\s!hr][fixmewarning=\fixmelogo~Upozorenje: ]
+\setuplabeltext[\s!hr][fixmeerror=\fixmelogo~Gre\scaron ska: ]
+\setuplabeltext[\s!hr][fixmefatal=\fixmelogo: ]
+
+%D Defaults
+
+\setupfixme
+ [\c!before=\startquotation,
+ \c!after=\stopquotation,
+ \c!location=\v!margin,
+ \c!version=\v!draft]
+
+\protect \endinput
diff --git a/obsolete/macros/context/contrib/context-fixme/tex/context/third/fixme/t-fixme.mkiv b/obsolete/macros/context/contrib/context-fixme/tex/context/third/fixme/t-fixme.mkiv
new file mode 100644
index 0000000000..f770846ab6
--- /dev/null
+++ b/obsolete/macros/context/contrib/context-fixme/tex/context/third/fixme/t-fixme.mkiv
@@ -0,0 +1,263 @@
+%D \module
+%D [ file=t-fixme,
+%D version=2013.03.03,
+%D title=\CONTEXT\ User Module,
+%D subtitle=FiXme,
+%D author=Wolfgang Schuster,
+%D date=\currentdate,
+%D copyright=Wolfgang Schuster,
+%D email=schuster.wolfgang@gmail.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 \macros
+%D {setupfixme}
+%D
+%D Namespace and setup command
+
+\installnamespace {fixme}
+\installnamespace {fixmecounter}
+\installnamespace {fixmelocation}
+\installnamespace {fixmerenderings}
+
+\installcommandhandler \????fixme {fixme} \????fixme
+\installcommandhandler \????fixmelocation {fixmelocation} \????fixmelocation
+
+%D \starttyping
+%D \def\setupfixme
+%D {\dosingleargument\dosetupfixme}
+%D
+%D \def\dosetupfixme[#1]%
+%D {\doifassignmentelse{#1}
+%D {\getparameters[\????fx][#1]}
+%D {\setvalue{\????fx\c!version}{#1}}}
+%D \stoptyping
+
+%D Lists
+
+\definelist[\v!fixme][\c!width=\zeropoint]
+
+\setvalue{\e!place \e!listof\v!fixmes}{\placelist [\v!fixme]}
+\setvalue{\e!complete\e!listof\v!fixmes}{\completelist[\v!fixme][\v!fixmes]}
+
+%D \macros
+%D {fixme,fxnote,fxwarning,fxerror,
+%D definefixme,definefixmelocation}
+%D
+%D Commands
+
+\appendtoks
+ \setuevalue {\currentfixme}{\fixme_direct{\currentfixme}}%
+ \setuevalue{\e!start\currentfixme}{\fixme_start {\currentfixme}}%
+ \setuevalue{\e!stop \currentfixme}{\fixme_stop }%
+\to \everydefinefixme
+
+\definecounter[\????fixmecounter\v!note ]
+\definecounter[\????fixmecounter\v!warning]
+\definecounter[\????fixmecounter\v!error ]
+\definecounter[\????fixmecounter\v!fatal ]
+\definecounter[\????fixmecounter\v!total ]
+
+\unexpanded\def\fixme_direct#1%
+ {\edef\currentfixme{#1}%
+ \dosingleempty\fixme_direct_indeed}
+
+\def\fixme_direct_indeed[#1]#2%
+ {\removeunwantedspaces
+ \begingroup
+ \setupcurrentfixme[\c!location={#1},\c!text={#2}]%
+ \edef\p_fixme_version {\fixmeparameter\c!version }%
+ \edef\p_fixme_type {\fixmeparameter\c!type }%
+ \edef\p_fixme_location{\fixmeparameter\c!location}%
+ \edef\p_fixme_text {\fixmeparameter\c!text }%
+ \ifx\p_fixme_location\empty
+ \let\p_fixme_location\v!margin
+ \fi
+ \ifx\p_fixme_version\v!draft
+ \normalexpanded{\writetolist[\v!fixme]{}{\fixmetext{\p_fixme_type}\p_fixme_text}}%
+ \incrementcounter[\????fixmecounter\v!total ]%
+ \incrementcounter[\????fixmecounter\p_fixme_type]%
+ \processcommacommand[\p_fixme_location]\fixme_location
+ \fi
+ \endgroup}
+
+\def\fixme_location#1%
+ {\edef\currentfixmelocation{#1}%
+ \ifcsname\currentfixmelocationhash\s!parent\endcsname \else
+ \let\currentfixmelocation\v!margin
+ \fi
+ \edef\p_fixme_renderingsetup{\fixmelocationparameter\c!renderingsetup}%
+ \texsetup\p_fixme_renderingsetup}
+
+\unexpanded\def\fixme_start#1%
+ {\begingroup
+ \edef\currentfixme{#1}%
+ \dosingleempty\fixme_start_indeed}
+
+\def\fixme_start_indeed[#1]%
+ {\iffirstargument
+ \setupcurrentfixme[#1]%
+ \fi
+ \grabbufferdatadirect\v!fixme{\e!start\currentfixme}{\e!stop\currentfixme}}
+
+\unexpanded\def\fixme_stop
+ {\edef\p_fixme_version{\fixmeparameter\c!version}%
+ \edef\p_fixme_list {\fixmeparameter\c!list }%
+ \edef\p_fixme_type {\fixmeparameter\c!type }%
+ \ifx\p_fixme_version\v!draft
+ \ifx\p_fixme_list\empty \else
+ \normalexpanded{\writetolist[\v!fixme]{}{\fixmetext\p_fixme_type\p_fixme_list}}%
+ \fi
+ \incrementcounter[\????fixmecounter\v!total ]%
+ \incrementcounter[\????fixmecounter\p_fixme_type]%
+ \fixmeparameter\c!before
+ \getbufferdata[\v!fixme]%
+ \fixmeparameter\c!after
+ \fi
+ \endgroup}
+
+\definefixmelocation [\v!text] [\c!renderingsetup=\????fixmerenderings:\v!text]
+
+\startsetups[\????fixmerenderings:\v!text]
+ \ifhmode\normalspace\fi
+ \fixmetext\p_fixme_type
+ \p_fixme_text
+\stopsetups
+
+\definefixmelocation [\v!command] [\c!renderingsetup=\????fixmerenderings:\v!command]
+\definefixmelocation [\v!margin] [\v!command] [\c!command=\inright]
+\definefixmelocation [\v!footnote] [\v!command] [\c!command=\footnote]
+\definefixmelocation [\v!left] [\v!command] [\c!command=\inleft]
+\definefixmelocation [\v!right] [\v!command] [\c!command=\inright]
+\definefixmelocation [\v!inner] [\v!command] [\c!command=\ininner]
+\definefixmelocation [\v!outer] [\v!command] [\c!command=\inouter]
+
+\startsetups[\????fixmerenderings:\v!command]
+ \edef\p_fixme_command{\fixmelocationparameter\c!command}%
+ \normalexpanded{\p_fixme_command{\fixmetext{\p_fixme_type}\p_fixme_text}}
+\stopsetups
+
+\definefixmelocation [\v!none] [\c!renderingsetup=\????fixmerenderings:\v!none]
+
+\startsetups[\????fixmerenderings:\v!none]
+ % EMPTY
+\stopsetups
+
+%D \starttyping
+%D \def\definefixme
+%D {\dodoubleargument\dodefinefixme}
+%D
+%D \def\dodefinefixme[#1][#2]%
+%D {\setvalue {#1}{\dodoubleempty\dofixme [#2]}%
+%D \setvalue{\e!start#1}{\dodoubleempty\dostartfixme[#2]}%
+%D \setvalue{\e!stop #1}{\dostopfixme}}
+%D \stoptyping
+
+\appendtoks
+ \showmessage\m!fixme{1}{\rawcountervalue[\????fixmecounter\v!note ]}%
+ \showmessage\m!fixme{2}{\rawcountervalue[\????fixmecounter\v!warning]}%
+ \showmessage\m!fixme{3}{\rawcountervalue[\????fixmecounter\v!error ]}%
+ \showmessage\m!fixme{4}{\rawcountervalue[\????fixmecounter\v!fatal ]}%
+ \showmessage\m!fixme{5}{\rawcountervalue[\????fixmecounter\v!total ]}%
+\to \everynotabene
+
+% Labels
+
+\definelabelclass[fixme]
+
+\setupheadtext [\s!en] [\v!fixme=List of Corrections]
+\setupheadtext [\s!de] [\v!fixme=Verzeichnis der Korrekturen]
+\setupheadtext [\s!fr] [\v!fixme=Liste des Corrections]
+\setupheadtext [\s!it] [\v!fixme=Corrigenda]
+\setupheadtext [\s!es] [\v!fixme=Lista de Correcciones]
+\setupheadtext [\s!da] [\v!fixme=Rettelser]
+\setupheadtext [\s!hr] [\v!fixme=Popis korekcija]
+
+\setupfixmetext [\s!en] [\v!note=\fixmelogo~Note: ]
+\setupfixmetext [\s!en] [\v!warning=\fixmelogo~Warning: ]
+\setupfixmetext [\s!en] [\v!error=\fixmelogo~Error: ]
+\setupfixmetext [\s!en] [\v!fatal=\fixmelogo: ]
+
+\setupfixmetext [\s!de] [\v!note=\fixmelogo~Anm.: ]
+\setupfixmetext [\s!de] [\v!warning=\fixmelogo~Warnung: ]
+\setupfixmetext [\s!de] [\v!error=\fixmelogo~Fehler: ]
+\setupfixmetext [\s!de] [\v!fatal=\fixmelogo]
+
+\setupfixmetext [\s!fr] [\v!note=\fixmelogo~Note: ]
+\setupfixmetext [\s!fr] [\v!warning=\fixmelogo~Attention: ]
+\setupfixmetext [\s!fr] [\v!error=\fixmelogo~Erreur: ]
+\setupfixmetext [\s!fr] [\v!fatal=\fixmelogo: ]
+
+\setupfixmetext [\s!it] [\v!note=\fixmelogo~Nota: ]
+\setupfixmetext [\s!it] [\v!warning=\fixmelogo~Avviso: ]
+\setupfixmetext [\s!it] [\v!error=\fixmelogo~Errore: ]
+\setupfixmetext [\s!it] [\v!fatal=\fixmelogo: ]
+
+\setupfixmetext [\s!es] [\v!note=\fixmelogo~Nota: ]
+\setupfixmetext [\s!es] [\v!warning=\fixmelogo~Aviso: ]
+\setupfixmetext [\s!es] [\v!error=\fixmelogo~Error: ]
+\setupfixmetext [\s!es] [\v!fatal=\fixmelogo: ]
+
+\setupfixmetext [\s!da] [\v!note=\fixmelogo~Note: ]
+\setupfixmetext [\s!da] [\v!warning=\fixmelogo~Advarsel: ]
+\setupfixmetext [\s!da] [\v!error=\fixmelogo~Fejl: ]
+\setupfixmetext [\s!da] [\v!fatal=\fixmelogo: ]
+
+\setupfixmetext [\s!hr] [\v!note=\fixmelogo~Poruka: ]
+\setupfixmetext [\s!hr] [\v!warning=\fixmelogo~Upozorenje: ]
+\setupfixmetext [\s!hr] [\v!error=\fixmelogo~Gre\scaron ska: ]
+\setupfixmetext [\s!hr] [\v!fatal=\fixmelogo: ]
+
+% Default commands and settings
+
+\definefixme [\v!fixme ] [\c!type=\v!fatal ]
+\definefixme [\v!fxnote ] [\c!type=\v!note ]
+\definefixme [\v!fxwarning] [\c!type=\v!warning]
+\definefixme [\v!fxerror ] [\c!type=\v!error ]
+
+\setupfixme
+ [ \c!before=\startquotation,
+ \c!after=\stopquotation,
+ \c!location=\v!margin,
+ \c!version=\v!draft,
+ \c!type=\v!fatal]
+
+\protect \endinput