[examples] further Context demo

2 files changed, 24 insertions, 2 deletions

diff --git a/doc/context/third/enigma/examples/enigma-example-context.tex b/doc/context/third/enigma/examples/enigma-example-context.tex
index 21baf4c..846fa17 100644
--- a/doc/context/third/enigma/examples/enigma-example-context.tex
+++ b/doc/context/third/enigma/examples/enigma-example-context.tex
@@ -2,6 +2,16 @@
 \usetypescript [iwona]
 \setupbodyfont [iwona,20pt]
 
+\defineenigma [nilsettings]
+\setupenigma  [nilsettings] [ %% a machine with vanilla settings
+  other_chars = no,
+  day_key = B I II III 01 01 01,
+  rotor_setting = aaa,
+  verbose = 3,
+]
+
+\defineenigma [othernilsettings] [nilsettings]
+
 \defineenigma [secretmessage]
 \setupenigma  [secretmessage] [
   other_chars = yes,
@@ -16,6 +26,18 @@
 
 \starttext
 
+\placefigure{Enigma output and its reversal using nil settings}{
+  \framed [width=.7\hsize,frame=off,align=middle]{
+    \startnilsettings
+      aaaaa aaaaa aaaaa aaaaa aaaaa aaaaa aaaaa aaaaa aa
+    \stopnilsettings
+
+    \startothernilsettings
+      bdzgo wcxlt ksbtm cdlpb muqof xyhcx tgyjf linhn xs
+    \stopothernilsettings
+  }
+}
+
 \startsecretmessage
   føo bąr baž
 \stopsecretmessage
diff --git a/tex/context/third/enigma/t-enigma.mkvi b/tex/context/third/enigma/t-enigma.mkvi
index fbe48dc..e555583 100644
--- a/tex/context/third/enigma/t-enigma.mkvi
+++ b/tex/context/third/enigma/t-enigma.mkvi
@@ -51,7 +51,7 @@ thirddata = thirddata or { }
 
 \def\do_do_define_enigma#id{%
   \edef\enigmaid{#id}%
-  \expandafter\gdef\csname start\enigmaid\endcsname{%
+  \expandafter\gdef\csname \v!start\enigmaid\endcsname{%
     \endgraf
     \bgroup
     \ctxlua{
@@ -64,7 +64,7 @@ thirddata = thirddata or { }
     }%
   }%
   %
-  \expandafter\gdef\csname stop\enigmaid\endcsname{%
+  \expandafter\gdef\csname \v!stop\enigmaid\endcsname{%
     \endgraf%% We need to force a paragraph here for the callback to be
             %% applied.
     \ctxlua{