summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/m-punk.mkiv
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/m-punk.mkiv')
-rw-r--r--Master/texmf-dist/tex/context/base/m-punk.mkiv8
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/texmf-dist/tex/context/base/m-punk.mkiv b/Master/texmf-dist/tex/context/base/m-punk.mkiv
index 71158d2a638..23b477cb677 100644
--- a/Master/texmf-dist/tex/context/base/m-punk.mkiv
+++ b/Master/texmf-dist/tex/context/base/m-punk.mkiv
@@ -5,7 +5,7 @@
%D subtitle=Punk Support,
%D author=Hans Hagen,
%D date=\currentdate,
-%D copyright=PRAGMA]
+%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
@@ -174,7 +174,7 @@ fonts.definers.methods.install( "punkboldslanted", {
{ "metafont", "mfplain", "punkfont-boldslanted.mp", 10 },
} )
-typesetters.cases.actions[99] = function(current)
+typesetters.cases.register("RandomPunk", function(current)
local used = fontdata[current.font].variants
if used then
local f = math.random(1,#used)
@@ -183,7 +183,7 @@ typesetters.cases.actions[99] = function(current)
else
return current, false
end
-end
+end)
metapost.characters.flusher = flusher
@@ -206,7 +206,7 @@ statistics.register("metapost font loading",function()
end)
\stopluacode
-\unexpanded\def\EnableRandomPunk {\setcharactercasing[99]}
+\unexpanded\def\EnableRandomPunk {\setcharactercasing[RandomPunk]}
\unexpanded\def\RandomPunk {\groupedcommand\EnableRandomPunk\donothing}
\unexpanded\def\StartRandomPunk {\begingroup\EnableRandomPunk}
\unexpanded\def\StopRandomPunk {\endgroup}