From a4e07f30e880ab27c2918f81f136e257475b7729 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Thu, 15 Mar 2018 16:04:31 +0100
Subject: 2018-03-15 15:36:00

---
 tex/context/modules/mkiv/s-math-ligatures.mkiv | 50 ++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 tex/context/modules/mkiv/s-math-ligatures.mkiv

(limited to 'tex/context/modules/mkiv/s-math-ligatures.mkiv')

diff --git a/tex/context/modules/mkiv/s-math-ligatures.mkiv b/tex/context/modules/mkiv/s-math-ligatures.mkiv
new file mode 100644
index 000000000..39fc4d2a3
--- /dev/null
+++ b/tex/context/modules/mkiv/s-math-ligatures.mkiv
@@ -0,0 +1,50 @@
+%D \module
+%D   [      file=s-math-ligatures.mkiv,
+%D        version=2017.08.03,
+%D          title=\CONTEXT\ Style File,
+%D       subtitle=Math Ligature Checking,
+%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.
+
+\startmodule[math-ligatures]
+
+\registerctxluafile{s-math-ligatures}{}
+
+\unprotect
+
+\unexpanded\def\showmathligatures
+  {\dosingleempty\module_math_ligatures_show}
+
+\def\module_math_ligatures_show[#1]%
+  {\begingroup
+   \ctxlua{moduledata.math.ligatures.showlist{ }}%
+   \endgroup}
+
+\protect
+
+\stopmodule
+
+\continueifinputfile{s-math-ligatures.mkiv}
+
+\setupbodyfont[dejavu,10pt]
+
+\setuplayout
+  [width=middle,
+   height=middle,
+   topspace=15mm,
+   backspace=15mm,
+   bottomspace=15mm,
+   header=1cm,
+   headerdistance=0.5cm,
+   footer=0pt]
+
+\starttext
+
+    \showmathligatures
+
+\stoptext
-- 
cgit v1.2.3