texlive[60511] Master/texmf-dist: luaxml (14sep21)

[commits+karl at tug.org]

Revision: 60511
          http://tug.org/svn/texlive?view=revision&revision=60511
Author:   karl
Date:     2021-09-14 22:25:48 +0200 (Tue, 14 Sep 2021)
Log Message:
-----------
luaxml (14sep21)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/luatex/luaxml/README
    trunk/Master/texmf-dist/doc/luatex/luaxml/luaxml.pdf
    trunk/Master/texmf-dist/doc/luatex/luaxml/luaxml.tex
    trunk/Master/texmf-dist/tex/luatex/luaxml/luaxml-domobject.lua
    trunk/Master/texmf-dist/tex/luatex/luaxml/luaxml-parse-query.lua

Modified: trunk/Master/texmf-dist/doc/luatex/luaxml/README
===================================================================
--- trunk/Master/texmf-dist/doc/luatex/luaxml/README	2021-09-14 20:25:36 UTC (rev 60510)
+++ trunk/Master/texmf-dist/doc/luatex/luaxml/README	2021-09-14 20:25:48 UTC (rev 60511)
@@ -28,7 +28,7 @@
 ------
 Michal Hoftich
 Email: michal.h21 at gmail.com
-Version: v0.1o, 2021-07-23
+Version: v0.1p, 2021-09-10
 
 Original authors: Paul Chakravarti and Manoel Campos (http://manoelcampos.com)
 

Modified: trunk/Master/texmf-dist/doc/luatex/luaxml/luaxml.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/luatex/luaxml/luaxml.tex
===================================================================
--- trunk/Master/texmf-dist/doc/luatex/luaxml/luaxml.tex	2021-09-14 20:25:36 UTC (rev 60510)
+++ trunk/Master/texmf-dist/doc/luatex/luaxml/luaxml.tex	2021-09-14 20:25:48 UTC (rev 60511)
@@ -7,7 +7,7 @@
 \usepackage{framed}
 % Version is defined in the makefile, use default values when compiled directly
 \ifdefined\version\else
-\def\version{v0.1o}
+\def\version{v0.1p}
 \let\gitdate\date
 \fi
 \newcommand\modulename[1]{\subsection{#1}\label{sec:#1}}

Modified: trunk/Master/texmf-dist/tex/luatex/luaxml/luaxml-domobject.lua
===================================================================
--- trunk/Master/texmf-dist/tex/luatex/luaxml/luaxml-domobject.lua	2021-09-14 20:25:36 UTC (rev 60510)
+++ trunk/Master/texmf-dist/tex/luatex/luaxml/luaxml-domobject.lua	2021-09-14 20:25:48 UTC (rev 60511)
@@ -392,6 +392,17 @@
     return false, msg
   end
 
+  -- restore correct links to parent elements
+  local function fix_parents(el)
+    for k,v in ipairs(el._children or {}) do
+      if v:is_element() then
+        v._parent = el
+        fix_parents(v)
+      end
+    end
+  end
+
+
   --- Add child node to the current node
   function DOM_Object:add_child_node( 
     child, --- element to be inserted as a current node child
@@ -399,6 +410,7 @@
     )
     local parent = self
     child._parent = parent
+    fix_parents(child)
     if position then
       table.insert(parent._children, position, child)
     else

Modified: trunk/Master/texmf-dist/tex/luatex/luaxml/luaxml-parse-query.lua
===================================================================
--- trunk/Master/texmf-dist/tex/luatex/luaxml/luaxml-parse-query.lua	2021-09-14 20:25:36 UTC (rev 60510)
+++ trunk/Master/texmf-dist/tex/luatex/luaxml/luaxml-parse-query.lua	2021-09-14 20:25:48 UTC (rev 60511)
@@ -18,10 +18,11 @@
 -- luaxml doesn't support XML namespaces and elements must be queried using
 -- dom:query_selector("namespace|element")
 local word = (alphanum + S("_-") + S("|")) ^ 1
+local attr_word = (alphanum + S("_-") + S("|:")) ^ 1
 
 local combinators = S(">~+")
 
-local attr_name = (alphanum + S("_-")) ^ 1
+local attr_name = (alphanum + S("_-:")) ^ 1
 local attr_function = S("~|^$*") ^ 0
 
 local attr_content = C((P(1) - quotes) ^ 1)
@@ -45,7 +46,7 @@
   local first_of_type = P(":first-of-type") / mark("first-of-type")
   local last = P(":last-child") / mark("last-child")
   local last_of_type = P(":last-of-type") / mark("last-of-type")
-  local attr = P("[") * C(word) * P("]") / mark("attr")
+  local attr = P("[") * C(attr_word) * P("]") / mark("attr")
   local attr_value = P("[") * C(attr_name ) * C(attr_function)* P("=") * quotes * attr_content * quotes * P("]") / mark("attr_value")
   local combinator = C(combinators) / mark("combinator")
   local selector = Ct((any + nth + first + first_of_type + last + last_of_type + tag + cls + id + attr + attr_value + combinator) ^ 1)