2016-01-12 16:26:00

1 files changed, 53 insertions, 0 deletions

diff --git a/tex/context/base/mkiv/symb-run.mkiv b/tex/context/base/mkiv/symb-run.mkiv
new file mode 100644
index 000000000..3d92c4416
--- /dev/null
+++ b/tex/context/base/mkiv/symb-run.mkiv
@@ -0,0 +1,53 @@
+%D \module
+%D   [       file=symb-run,
+%D        version=2010.12.08, % 1998.07.20,
+%D          title=\CONTEXT\ Symbol Libraries,
+%D       subtitle=Runtime Macros,
+%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.
+
+\startluacode
+    function commands.showsymbolset(collection,symbols)
+        if type(symbols) == "string" then
+            symbols = utilities.parsers.settings_to_array(symbols)
+        end
+        context.start()
+        context.forcesymbolset { collection }
+        context.starttabulate { "|lT|l|l|" }
+        for i=1,#symbols do
+            local symbol = symbols[i]
+            context.NC()
+            context(symbol)
+            context.NC()
+            context.symbol(symbol)
+            context.NC()
+            context.color (
+                { "red" },
+                context.nested.ruledhbox(
+                    context.nested.color (
+                        { "black" },
+                        context.nested.symbol(symbol)
+                    )
+                )
+            )
+            context.NR()
+        end
+        context.stoptabulate()
+        context.stop()
+    end
+\stopluacode
+
+\unprotect
+
+\unexpanded\gdef\showsymbolset
+  {\dosingleargument\symb_show_set}
+
+\gdef\symb_show_set[#1]%
+  {\ctxcommand{showsymbolset("#1","\symbolset{#1}")}}
+
+\protect \endinput