summaryrefslogtreecommitdiff
path: root/support/TeX4ht/source/t1fontmake.lua
blob: 0c3d61098209f43518e2f40f1c90508db68cfcde (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
local libertineproperty = function(x)
  local property = x:gsub("I","italic")
  property = property:gsub("B", "bold")
  return string.lower(property)
end


local fontfixes = {
["Lin Libertine"] = function(x)
  return "Linux Libertine O", libertineproperty(x)
end,
["Lin Biolinum"] = function(x)
  return "Linux Biolinum O", libertineproperty(x) .. "sans"
end
}

for rec in io.lines() do
  local filename = rec:match("([^%/]+).tfm$")
  local propertystring = filename:lower()
  local fontname = filename:match("([^%-]+)")
  local t = {}
  fontname:gsub("([A-Z]*[a-z]+)", function(x) t[#t+1] = x end)
  fontname = table.concat(t," ")
  local fontfunc = fontfixes[fontname]
  if fontfunc then
    fontname, propertystring = fontfunc(filename)
    propertystring = string.lower(propertystring)
  end
  local bold = propertystring:match("bold") and "font-weight: bold;"
  local slanted = propertystring:match("slanted") and "font-style: oblique;"
  local italic = propertystring:match("italic") and "font-style: italic;"
  local smallcaps = (propertystring:match("sc") or propertystring:match("smallcaps")) and "font-variant: small-caps;"
  local sans = propertystring:match("sans") and "sans-serif"
  local mono = propertystring:match("mono") and "monospace"
  local cssfontname = string.format("font-name: '%s', %s", fontname,(mono or sans) or "serif")
  local t = {}
  table.insert(t,bold)
  table.insert(t,slanted)
  table.insert(t,italic)
  table.insert(t,smallcaps)
  table.insert(t,cssfontname)
  local css = table.concat(t, " ")
  print(string.format('\\<%s\\><<<', filename))
  print(".lm-ec")
  print("htfcss: ".. filename .." " ..css)
  print(">>>")
  print(string.format("\n\\AddFont{%s}{alias/t1fonts/%s}{}\n", filename, filename))
end