1 files changed, 78 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkiv/mtx-context-setups.tex b/Master/texmf-dist/tex/context/base/mkiv/mtx-context-setups.tex
new file mode 100644
index 00000000000..be99211ba1b
--- /dev/null
+++ b/Master/texmf-dist/tex/context/base/mkiv/mtx-context-setups.tex
@@ -0,0 +1,78 @@
+%D \module
+%D   [       file=mtx-context-setups,
+%D        version=2016.04.05,
+%D          title=\CONTEXT\ Command Overvews,
+%D       subtitle=Combine Files,
+%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.
+
+% begin help
+%
+% usage: context --extra=setups [options] [categories]
+%
+% --interface              : user interface (en, nl, etc)
+% --overview [--save]      : use collection of files
+% --list                   : show know collections
+%
+% end help
+
+\input mtx-context-common.tex
+
+\starttext
+
+\startluacode
+    local report_setups = logs.reporter("setups")
+
+    context.starttext()
+
+    if document.arguments.list then
+        local okay = resolvers.findfile("context.mkiv") or "" -- will become an i file
+        if okay ~= "" then
+            okay = file.collapsepath(okay,true)
+            okay = string.gsub(okay,"/base/","/interface/")
+            okay = string.gsub(okay,"/sources/","/interface/")
+            local path    = file.pathpart(okay)
+            local pattern = file.join(path,"i-*.xml")
+            local files   = dir.glob(pattern)
+            local valid   = { }
+            table.sort(files)
+            for i=1,#files do
+                local name = file.nameonly(files[i])
+                local base = string.match(name,"^i%-([a-z]+)$")
+                if base then
+                    valid[#valid+1] = base
+                end
+            end
+            if #valid > 0 then
+                report_setups("% t",valid)
+            end
+            context.bold("available setup groups: ")
+            context("%, t.",valid)
+        end
+    elseif document.arguments.overview then
+        if document.arguments.save then
+            context.enablemode { "setups:save" }
+        end
+        context.input("x-setups-overview.mkiv")
+    elseif #document.files > 0 then
+        context.usemodule { "x-setups-basics" }
+        for i=1,#document.files do
+            local filename = "i-" .. document.files[i]
+            report_setups("processing %a",filename)
+            context.loadsetups { filename }
+        end
+        context.input("x-setups-proofing.mkiv")
+    else
+        context("no setups")
+    end
+
+    context.stoptext()
+\stopluacode
+
+\stoptext
+