%% 
%%  Ein Beispiel der DANTE-Edition
%%  
%%  1. Auflage
%% 
%%  Beispiel 12-04-17 auf Seite 629.
%% 
%%  Copyright (C) 2012 Herbert Voss
%% 
%%  It may be distributed and/or modified under the conditions
%%  of the LaTeX Project Public License, either version 1.3
%%  of this license or (at your option) any later version.
%% 
%%  See http://www.latex-project.org/lppl.txt for details.
%% 
%% 
%% ==== 
% Show page(s) 1,2
%% 
%% 
\documentclass[]{exaarticle2}
\pagestyle{empty}
\setlength\textwidth{172.40709pt}
\setlength{\parindent}{0em}
\usepackage[paper=a6,pagesize,DIV15]{typearea}
\usepackage{fontspec}
\usepackage{luacode}
\newfontface\LMML{Latin Modern Mono Light Cond}
\begin{luacode}
local teststring = "\\LaTeX~--~Eine Einführung."
local myfonts = dofile(fonts.names.path.localdir.."/otfl-names.lua")
function printFontDemo(fontname)
  local fnA = string.lower(fontname)
  local a = {}
  local b = {}
  for i, v in ipairs(myfonts.mappings) do
    m, n = string.find(string.lower(v.names.family),fnA)
    if m then
      a[v.fontname] = v.familyname
      b[#b + 1] = v.fontname
    end
  end
  table.sort(b)
  for i, v in ipairs(b) do
    tex.print("\\parbox{0.21\\linewidth}{\\LMML\\footnotesize")
    tex.print(-2, a[v])
    tex.print("\\\\ \\scriptsize")
    tex.print(-2, v)
    tex.print("}\\parbox{0.79\\linewidth}{\\raggedright\\fontspec{" .. v .. "}")
    tex.print(teststring)
    tex.print("}\\\\[2pt]")
  end
end
\end{luacode}
\StartShownPreambleCommands
\usepackage{fontspec}% lualatex 
\StopShownPreambleCommands
\begin{document}
\directlua{printFontDemo("Bioli")}
\end{document}
