2016-08-19 00:35:00

1 files changed, 23 insertions, 0 deletions

diff --git a/tex/context/modules/mkiv/s-fonts-features.lua b/tex/context/modules/mkiv/s-fonts-features.lua
index f78300f32..6f4032948 100644
--- a/tex/context/modules/mkiv/s-fonts-features.lua
+++ b/tex/context/modules/mkiv/s-fonts-features.lua
@@ -13,6 +13,10 @@ moduledata.fonts.features = moduledata.fonts.features or { }
 
 local sortedhash = table.sortedhash
 
+local v_yes  = interfaces.variables.yes
+local v_no   = interfaces.variables.no
+local c_name = interfaces.constants.name
+
 local NC, NR, bold = context.NC, context.NR, context.bold
 
 function moduledata.fonts.features.showused(specification)
@@ -207,3 +211,22 @@ function moduledata.fonts.features.showallkerns(specification)
         context.par()
     end
 end
+
+function moduledata.fonts.features.showfeatureset(specification)
+    specification = interfaces.checkedspecification(specification)
+    local name = specification[c_name]
+    if name then
+        local s = fonts.specifiers.contextsetups[name]
+        if s then
+            local t = table.copy(s)
+            t.number = nil
+            if t and next(t) then
+                context.starttabulate { "|T|T|" }
+                    for k, v in sortedhash(t) do
+                       NC() context(k) NC() context(v == true and v_yes or v == false and v_no or tostring(v)) NC() NR()
+                    end
+                context.stoptabulate()
+            end
+        end
+    end
+end