2019-02-22 19:43:00

1 files changed, 37 insertions, 33 deletions

diff --git a/tex/context/modules/mkiv/s-fonts-charts.mkiv b/tex/context/modules/mkiv/s-fonts-charts.mkiv
index e94b52a2e..3123cc0d0 100644
--- a/tex/context/modules/mkiv/s-fonts-charts.mkiv
+++ b/tex/context/modules/mkiv/s-fonts-charts.mkiv
@@ -15,7 +15,7 @@
 %
 % title   : show unicode blocks
 %
-% comment : show charts of a given fgont
+% comment : show charts of a given font
 %
 % end info
 
@@ -87,7 +87,7 @@
 
         local settings = utilities.parsers.settings_to_hash(settings)
 
-        local filename = settings.filename or ""
+        local filename = settings.filename or settings.name or ""
         local fontid   = true
         local newpage  = settings.page == interfaces.variables.yes
 
@@ -169,36 +169,40 @@
 
 \starttext
 
-    \showfontchart[filename=LucidaBrightOT.otf,page=yes]
-    \showfontchart[filename=LucidaBrightOT-Demi.otf,page=yes]
-    \showfontchart[filename=LucidaBrightOT-DemiItalic.otf,page=yes]
-    \showfontchart[filename=LucidaBrightOT-Italic.otf,page=yes]
-
-    \showfontchart[filename=LucidaSansOT.otf,page=yes]
-    \showfontchart[filename=LucidaSansOT-Demi.otf,page=yes]
-    \showfontchart[filename=LucidaSansOT-DemiItalic.otf,page=yes]
-    \showfontchart[filename=LucidaSansOT-Italic.otf,page=yes]
-
-    \showfontchart[filename=LucidaSansTypewriterOT.otf,page=yes]
-    \showfontchart[filename=LucidaSansTypewriterOT-Bold.otf,page=yes]
-    \showfontchart[filename=LucidaSansTypewriterOT-BoldOblique.otf,page=yes]
-    \showfontchart[filename=LucidaSansTypewriterOT-Oblique.otf,page=yes]
-
-    \showfontchart[filename=LucidaConsoleDK.otf,page=yes]
-    \showfontchart[filename=LucidaConsoleDK-Bold.otf,page=yes]
-    \showfontchart[filename=LucidaConsoleDK-BoldItalic.otf,page=yes]
-    \showfontchart[filename=LucidaConsoleDK-Italic.otf,page=yes]
-
-    \showfontchart[filename=LucidaGrandeMonoDK.otf,page=yes]
-    \showfontchart[filename=LucidaGrandeMonoDK-Bold.otf,page=yes]
-    \showfontchart[filename=LucidaGrandeMonoDK-BoldItalic.otf,page=yes]
-    \showfontchart[filename=LucidaGrandeMonoDK-Italic.otf,page=yes]
-
-    \showfontchart[filename=LucidaBrightMathOT.otf,page=yes]
-    \showfontchart[filename=LucidaBrightMathOT-Demi.otf,page=yes]
-
-    \showfontchart[filename=LucidaBlackletterOT.otf,page=yes]
-    \showfontchart[filename=LucidaCalligraphyOT.otf,page=yes]
-    \showfontchart[filename=LucidaHandwritingOT.otf,page=yes]
+    \showfontchart[filename=aegean,page=yes]
+%     \showfontchart[filename=veramono.ttf,page=yes]
+%     \showfontchart[filename=CoelacanthSubhdHeavy.otf,page=yes]
+
+%     \showfontchart[filename=LucidaBrightOT.otf,page=yes]
+%     \showfontchart[filename=LucidaBrightOT-Demi.otf,page=yes]
+%     \showfontchart[filename=LucidaBrightOT-DemiItalic.otf,page=yes]
+%     \showfontchart[filename=LucidaBrightOT-Italic.otf,page=yes]
+
+%     \showfontchart[filename=LucidaSansOT.otf,page=yes]
+%     \showfontchart[filename=LucidaSansOT-Demi.otf,page=yes]
+%     \showfontchart[filename=LucidaSansOT-DemiItalic.otf,page=yes]
+%     \showfontchart[filename=LucidaSansOT-Italic.otf,page=yes]
+
+%     \showfontchart[filename=LucidaSansTypewriterOT.otf,page=yes]
+%     \showfontchart[filename=LucidaSansTypewriterOT-Bold.otf,page=yes]
+%     \showfontchart[filename=LucidaSansTypewriterOT-BoldOblique.otf,page=yes]
+%     \showfontchart[filename=LucidaSansTypewriterOT-Oblique.otf,page=yes]
+
+%     \showfontchart[filename=LucidaConsoleDK.otf,page=yes]
+%     \showfontchart[filename=LucidaConsoleDK-Bold.otf,page=yes]
+%     \showfontchart[filename=LucidaConsoleDK-BoldItalic.otf,page=yes]
+%     \showfontchart[filename=LucidaConsoleDK-Italic.otf,page=yes]
+
+%     \showfontchart[filename=LucidaGrandeMonoDK.otf,page=yes]
+%     \showfontchart[filename=LucidaGrandeMonoDK-Bold.otf,page=yes]
+%     \showfontchart[filename=LucidaGrandeMonoDK-BoldItalic.otf,page=yes]
+%     \showfontchart[filename=LucidaGrandeMonoDK-Italic.otf,page=yes]
+
+%     \showfontchart[filename=LucidaBrightMathOT.otf,page=yes]
+%     \showfontchart[filename=LucidaBrightMathOT-Demi.otf,page=yes]
+
+%     \showfontchart[filename=LucidaBlackletterOT.otf,page=yes]
+%     \showfontchart[filename=LucidaCalligraphyOT.otf,page=yes]
+%     \showfontchart[filename=LucidaHandwritingOT.otf,page=yes]
 
 \stoptext