more

lib/html5_checker/checker_registry.ml

···
   Hashtbl.replace reg "svg" Svg_checker.checker;
   Hashtbl.replace reg "xhtml-content" Xhtml_content_checker.checker;
   Hashtbl.replace reg "lang-detecting" Lang_detecting_checker.checker;
+  Hashtbl.replace reg "unknown-element" Unknown_element_checker.checker;
   (* Hashtbl.replace reg "heading" Heading_checker.checker; *)
   (* Hashtbl.replace reg "content" Content_checker.checker; *)
   reg

lib/html5_checker/parse_error_bridge.ml

···
             ("End tag \xe2\x80\x9cbr\xe2\x80\x9d.", "end-tag-br")
           else if s = "expected-closing-tag-but-got-eof" then
             ("End of file seen and there were open elements.", "eof-in-open-element")
+          else if String.length s > 28 && String.sub s 0 28 = "bad-start-tag-in-head-noscri" then
+            let colon_pos = String.index s ':' in
+            let element = String.sub s (colon_pos + 1) (String.length s - colon_pos - 1) in
+            (Printf.sprintf "Bad start tag in \xe2\x80\x9c%s\xe2\x80\x9d in \xe2\x80\x9cnoscript\xe2\x80\x9d in \xe2\x80\x9chead\xe2\x80\x9d." element, "bad-start-tag-in-head-noscript")
           else if String.length s > 19 && String.sub s 0 19 = "unexpected-end-tag:" then
             let element = String.sub s 19 (String.length s - 19) in
             (Printf.sprintf "Stray end tag \xe2\x80\x9c%s\xe2\x80\x9d." element, "stray-end-tag")

lib/html5_checker/specialized/aria_checker.ml

···
                 Message_collector.add_typed collector Error_code.Li_bad_role_in_tablist
             | None ->
               (* Check if in list context (ul/ol/menu without explicit role, or role=list) *)
+              (* Nu validator produces this error for ANY explicit role on li in list context,
+                 even role="listitem" - because having an explicit role is itself the problem.
+                 The message says "other than listitem" but the rule is: don't use explicit roles. *)
               if is_in_list_context state then
-                if first_role <> "listitem" then
-                  Message_collector.add_typed collector Error_code.Li_bad_role_in_list)
+                Message_collector.add_typed collector Error_code.Li_bad_role_in_list)
         end
       end;
 

lib/html5rw/parser/parser_tree_builder.ml

···
   | Token.Tag { kind = Token.Start; name; _ }
     when List.mem name ["head"; "noscript"] ->
     parse_error t "unexpected-start-tag"
-  | Token.Tag { kind = Token.Start; _ } ->
-    parse_error t "unexpected-start-tag";
+  | Token.Tag { kind = Token.Start; name; _ } ->
+    parse_error t ("bad-start-tag-in-head-noscript:" ^ name);
     pop_current t;  (* Pop noscript *)
     t.mode <- Parser_insertion_mode.In_head;
     process_token t token