summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/make4ht/filters/make4ht-mathjaxnode.lua
blob: 2b453e4255b7a9fca032914b3a179f72da20d280 (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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
local mkutils = require "mkutils"
-- other possible value is page2svg
local mathnodepath = "mjpage"
-- options for MathJax command
local options = "--output CommonHTML"
-- math fonts position
-- don't alter fonts if not set
local fontdir = nil
-- if we copy fonts 
local fontdest = nil
local fontformat = "woff"
local cssfilename =  "mathjax-chtml.css"

local function compile(text)
  local tmpfile = os.tmpname()
  print("Compile using MathJax")
  local command =  mathnodepath .. " ".. options .. " > " .. tmpfile
  print(command)
  local commandhandle = io.popen(command,"w") 
  commandhandle:write(text)
  commandhandle:close()
  print("Result written to: ".. tmpfile)
  local f = io.open(tmpfile)
  local content = f:read("*all")
  f:close()
  os.remove(tmpfile)
  return content
end

-- save the css code from the html page generated by MathJax
local function extract_css(contents)
  local css = ""
  local filename = cssfilename
  contents = contents:gsub('<style [^>]+>(.-)</style>', function(style)
    -- replace only the style for mathjax
    if style:match "%.mjx%-math" then
      css = style
      return '<link rel="stylesheet" type="text/css" href="'..filename ..'" />'
    end
  end)
  -- local x = assert(io.open(file, "w"))
  -- x:write(contents)
  -- x:close()
  return filename, contents, css
end

-- Update the paths to fonts to use the local versions
local function use_fonts(css)
  local family_pattern = "font%-family:%s*(.-);.-%/([^%/]+)%.".. fontformat
  local family_build = "@font-face {font-family: %s; src: url('%s/%s.%s') format('%s')}"
  local fontdir = fontdir:gsub("/$","")
  css = css:gsub("(@font%-face%s*{.-})", function(face)
    if not face:match("url%(") then return face end
    -- print(face)
    local family, filename = face:match(family_pattern)
    print(family, filename)
    local newfile = string.format("%s/%s.%s", fontdir, filename, fontformat)
    Make:add_file(newfile)
    return family_build:format(family, fontdir, filename, fontformat, fontformat)
    -- return face
  end)
  return css
end


local function save_css(filename, css)
  local f = io.open(filename, "w")
  f:write(css)
  f:close()
end

return function(text, arguments)
  -- if arguments.prg then mathnodepath = arguments.prg end
  local extoptions = mkutils.get_filter_settings "mathjaxnode" or {}
  local arguments = arguments or {}
  mathnodepath = arguments.prg or extoptions.prg or  mathnodepath
  options      = arguments.options or extoptions.options or options
  fontdir      = arguments.fontdir or extoptions.fontdir or fontdir
  -- the following ne is unused ATM
  fontdest     = arguments.fontdest or extoptions.fontdest or fontdest
  fontformat   = arguments.fontformat or extoptions.fontformat or fontformat
  cssfilename  = arguments.cssfilename or extoptions.cssfilename or cssfilename
  local newtext = compile(text)
  local cssfile, newtext,  css = extract_css(newtext)
  -- use local font files if fontdir is present
  if fontdir then
    css = use_fonts(css)
  end
  save_css(cssfile, css)
  Make:add_file(cssfile)
  -- print(css)
  print(cssfile)
  return newtext
end