From 8d8d528d2ad52599f11250cfc567fea4f37f2a8b Mon Sep 17 00:00:00 2001
From: Context Git Mirror Bot <phg42.2a@gmail.com>
Date: Tue, 12 Jan 2016 17:15:07 +0100
Subject: 2016-01-12 16:26:00

---
 tex/context/base/mkiv/lang-rep.mkiv | 75 +++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)
 create mode 100644 tex/context/base/mkiv/lang-rep.mkiv

(limited to 'tex/context/base/mkiv/lang-rep.mkiv')

diff --git a/tex/context/base/mkiv/lang-rep.mkiv b/tex/context/base/mkiv/lang-rep.mkiv
new file mode 100644
index 000000000..a98d51f6c
--- /dev/null
+++ b/tex/context/base/mkiv/lang-rep.mkiv
@@ -0,0 +1,75 @@
+%D \module
+%D   [       file=lang-rep,
+%D        version=2013.04.28,
+%D          title=\CONTEXT\ Language Macros,
+%D       subtitle=Substitution,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%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
+%C details.
+
+%D As I needed an example of messing with nodes for the bacho\TEX\ tutorial
+%D I cooked up this. In the end I decided to stick to a simpler example and
+%D just finished this off in case someone really needs it.
+
+\writestatus{loading}{ConTeXt Language Macros / Replacements}
+
+\unprotect
+
+\registerctxluafile{lang-rep}{1.001}
+
+\definesystemattribute[replacements][public]
+
+%D \startluacode
+%D
+%D     -- todo: other nodes (prelude to more experiments with auto dropped caps)
+%D
+%D     languages.replacements.add("basics", {
+%D         ["aap"]   = "monkey",
+%D         ["noot"]  = "nut",
+%D         ["never"] = "forever",
+%D         ["newer"] = "cooler",
+%D         ["new"]   = "cool",
+%D      -- ["special"] = "veryspe{>>>}{<<<}{=}cial",
+%D     })
+%D
+%D \stopluacode
+%D
+%D \replaceword[more][this][that]
+%D \replaceword[more][crap][support]
+%D \replaceword[more][---][—]
+%D \replaceword[basics][special][veryspe{>>>}{<<<}{=}cial]
+%D
+%D \starttyping
+%D \start \setreplacements[basics] What the heck, it's now or never, isn't it new? \par \stop
+%D \start \setreplacements[more]   Do we --- {\it really} --- need this kind of crap? \par \stop
+%D \start \setreplacements[basics] All kinds of special thingies! \par \stop
+%D \start \setreplacements[basics] \hsize1mm special \par \stop
+%D \stoptyping
+
+\unexpanded\def\setreplacements[#1]%
+  {\clf_setreplacements{#1}}
+
+\unexpanded\def\resetreplacements
+  {\attribute\replacementsattribute\attributeunsetvalue}
+
+\unexpanded\def\replaceword
+  {\dotripleargument\languages_replacements_replace}
+
+\unexpanded\def\languages_replacements_replace[#1][#2][#3]%
+  {\ifthirdargument
+     \clf_addreplacements{#1}{#2}{#3}%
+   \fi}
+
+\appendtoks
+    \resetreplacements
+\to \everyresettypesetting
+
+\appendtoks
+    \resetreplacements
+\to \everyinitializeverbatim
+
+\protect \endinput
-- 
cgit v1.2.3