Characters words and fonts/Collections of tips and tricks/Building a font catalogue

From Wiki
Jump to navigation Jump to search

Method 1

Base on lua:

  • \ctxlua{displayfontfamily("ibmplexsans")} to show ibmplexsans
  • \ctxlua{displayfontfamilies("ibmplex")} to show all ibmplex fonts

Fonts are sorted per weight, width and then style. We also have access to variant, xheight. The script may be also usable to partially automatize the production of typescripts.

The code is neither clean nor optimised, perhaps later. 

  • \setuppapersize[A3][A1]
\setuppaper[nx=2,ny=2]
\setuparranging[XY]
\showframe[edge]

\setupinteraction[state=start]
\placebookmarks                % HERE
  [chapter,section]
  [section]

\setuplayout
  [topspace=5mm,
   backspace=5.0mm,
   header=0.0mm,
   headerdistance=0.0mm,
   footer=5.0mm,
   footerdistance=2.0mm,
   width=29.0cm,
   height=40cm,
   margin=0.0mm,
   margindistance=0.0mm,]

\setupfootertexts [pagenumber]

\setupTABLE[c][1,2,3,4,5,6]
  [foregroundstyle={\tt\tfxx},
   background=color,
   backgroundcolor=lightgray,]
\setupTABLE[r][first]
  [background=color,
   backgroundcolor=middlecyan,
   foregroundstyle={\tt\bfx},
   foregroundcolor=white,]
\setupTABLE[c][1][width=0.10\textwidth]
\setupTABLE[c][2,3,4,5,6][width=0.05\textwidth]
\setupTABLE[c][7][width=0.65\textwidth,align=flushleft]
\setupTABLE[r][each][height=5\exheight]
\setupTABLE[r][each][frame=off, bottomframe=on]

\startluacode
function displayfontfamily(thefontfamily)

sorting_weight = {"thin", "ultralight", "ultra light", "extralight", "extra light", "light",
                  "book", "roman", "normal", "regular", "titling", "medium", "demibold", "demi", "demi bold", "semibold", "semi bold", "heavy",
                  "bold", "extrabold",  "extra bold", "ultrabold", "ultra bold", "black"}
sorting_width  = {"normal", "regular", "regular",
                  "semicondensed", "condensed", "extracondensed", "ultracondensed",
                  "semiexpanded", "expanded", "extraexpanded", "ultraexpanded"}
sorting_style  = {"normal", "regular", "italic", "slanted"}

fonts.names.load()

summary = {}

for family,_ in table.sortedpairs(fonts.names.data.families) do
  if family == thefontfamily then

    local tabfont = fonts.names.data.families[family]

    for i = 1, table.getn(tabfont) do

      fontid = fonts.definers.internal({ name = tabfont[i].fontname})
      data = fonts.hashes.identifiers[fontid]

      fontname = tabfont[i].fontname

      --% weight ============================================

      if data.shared then
        if (tabfont[i].weight == data.shared.rawdata.metadata.weight or ( (tabfont[i].weight == "normal") and (data.shared.rawdata.metadata.weight == "regular")) ) then
          weight = tabfont[i].weight
        else
          weight = data.shared.rawdata.metadata.weight
        end
        xheight = tostring(data.shared.rawdata.metadata.xheight)
      else
        weight = tabfont[i].weight
        xheight = "n/a"
      end

      if (string.match(fontname, "light"))
      then
         if ((string.match(fontname, "extralight")) or (string.match(fontname, "ultlt"))) then
           weight = "extralight"
         else
           weight = "light"
         end
      end

      if (string.match(fontname, "demi"))
      then
           weight = "demi"
      end

      if (string.match(fontname, "med") and (not (string.match(fontname, "medium"))))
      then
           weight = "medium"
      end

      --% width ============================================

      if (string.match(fontname, "cond") or  (string.match(fontname, "cn")))
      then
         if string.match(fontname, "semicond") then
           width = "semicondensed"
         elseif (string.match(fontname, "extracond")) then
           width = "extracondensed"
         elseif (string.match(fontname, "ultracond")) then
           width = "ultracondensed"
         else
           width = "condensed"
         end
      elseif (string.match(fontname, "exp")) then
         if string.match(fontname, "semiexp") then
           width = "semiexpanded"
         elseif (string.match(fontname, "extraexp")) then
           width = "extraexpanded"
         elseif (string.match(fontname, "ultraexp")) then
           width = "ultraexpanded"
         else
           width = "expanded"
         end
      else
        width = "normal"
      end

      --% style ============================================

      style = tabfont[i].style

      --% variant ============================================

      variant = tabfont[i].variant

      --% summary ============================================

      summary [i] = {}
      summary [i] ["fontfamily"]  = family
      summary [i] ["fontname"]  = fontname
      summary [i] ["weight"]  = weight
      summary [i] ["width"]  = width
      summary [i] ["style"]  = style
      summary [i] ["variant"]  = variant
      summary [i] ["xheight"]  = xheight
    end
  end
end

context.startsection({title = thefontfamily})

context.bTABLE({split = "repeat"})
context.bTABLEhead()
context.bTR()
context.bTD()
context("fontname")
context.eTD()
context.bTD()
context("weight")
context.eTD()
context.bTD()
context("width")
context.eTD()
context.bTD()
context("style")
context.eTD()
context.bTD()
context("variant")
context.eTD()
context.bTD()
context("xheight")
context.eTD()
context.bTD()
context("Test")
context.eTD()
context.eTR()
context.eTABLEhead()
context.bTABLEbody()

fontcount = 0
fontdisplayed = {}

for i = 1, table.getn(sorting_weight) do
  for j = 1, table.getn(sorting_width) do
    for k = 1, table.getn(sorting_style) do
      for m = 1, table.getn(summary) do
        if ((summary [m] ["weight"] == sorting_weight [i]) and
            (summary [m] ["width"] == sorting_width [j]) and
            (summary [m] ["style"] == sorting_style [k])) then
          fontcount = fontcount + 1
          table.insert(fontdisplayed, summary [m] ["fontname"])
          context.bTR()
          context.bTD()
          context(summary [m] ["fontname"])
          context.eTD()
          context.bTD()
          context(summary [m] ["weight"])
          context.eTD()
          context.bTD()
          context(summary [m] ["width"])
          context.eTD()
          context.bTD()
          context(summary [m] ["style"])
          context.eTD()
          context.bTD()
          context(summary [m] ["variant"])
          context.eTD()
          context.bTD()
          context(summary [m] ["xheight"])
          context.eTD()
          context.bTD()
          context.definedfont{"name:".. summary [m] ["fontname"] .. "*default" }
          context("The quick brown fox jumps over the lazy dog.")
          context.eTD()
          context.eTR()
        end
      end
    end
  end
end
context.eTABLEbody()
context.eTABLE()

context("Displayed fonts: " .. fontcount .. " / " .. table.getn(summary))
context.par()

for p = 1, table.getn(summary) do
  displayed = false
  for q = 1, table.getn(fontdisplayed) do
    if  summary [p] ["fontname"] == fontdisplayed[q] then
      displayed = true
    end
  end
  if (not displayed) then
    context(summary [p] ["fontname"] .. ": " ..
            summary [p] ["weight"]   .. ", " ..
            summary [p] ["width"]   .. ", " ..
            summary [p] ["style"]   .. ", " ..
            summary [p] ["variant"])
    context.par()
  end
end
context.stopsection()

end

function displayfontfamilies(thefontfamily_match)
fonts.names.load()
context.startchapter({title = thefontfamily_match})
for family,_ in table.sortedpairs(fonts.names.data.families) do
  if string.match(family, thefontfamily_match) then
    displayfontfamily(family)
  end
end
context.stopchapter()
end
\stopluacode

\starttext

\completecontent
\page

% \ctxlua{displayfontfamily("ibmplexsans")}
% \ctxlua{displayfontfamilies("ondine")}
% \ctxlua{displayfontfamilies("optima")}
% \ctxlua{displayfontfamilies("ibmplex")}
% \ctxlua{displayfontfamilies("futura")}
% \ctxlua{displayfontfamilies("gillsans")}
% \ctxlua{displayfontfamilies("gillius")}
% \ctxlua{displayfontfamilies("source")}
% \ctxlua{displayfontfamilies("fira")}
% \ctxlua{displayfontfamilies("inconsolata")}

\ctxlua{displayfontfamilies("ebgaramond")}
\ctxlua{displayfontfamilies("ibmplex")}

\stoptext
Retrieved from "https://wiki.contextgarden.net/index.php?title=Characters_words_and_fonts/Collections_of_tips_and_tricks/Building_a_font_catalogue&oldid=42172"