deadcode

lib/html5_checker/checker_registry.ml

···
 
 let default () =
   let reg = create () in
-  (* Register built-in checkers that align with Nu validator behavior.
-     Some checkers are disabled because they produce messages that don't
-     match Nu validator's expected output or have too many false positives:
-     - content: has bugs with phrasing content text detection
-     - heading: generates warnings Nu validator doesn't produce
-     - language: generates warnings Nu validator doesn't produce
-     - microdata: Nu validator has different microdata rules
-     - table: produces different messages than Nu validator
-  *)
   Hashtbl.replace reg "nesting" Nesting_checker.checker;
   Hashtbl.replace reg "obsolete" Obsolete_checker.checker;
   Hashtbl.replace reg "id" Id_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
 
 let register registry name checker = Hashtbl.replace registry name checker

lib/html5_checker/specialized/aria_checker.ml

···
   Hashtbl.add tbl "ul" "list";
   tbl
 
-(** Map from HTML element name to multiple possible implicit roles.
-
-    Some elements like 'th' can have different implicit roles depending
-    on context (columnheader or rowheader). *)
-let elements_with_implicit_roles : (string, string array) Hashtbl.t =
-  let tbl = Hashtbl.create 4 in
-  Hashtbl.add tbl "th" [| "columnheader"; "rowheader" |];
-  tbl
-
 (** Map from input type to implicit ARIA role. *)
 let input_types_with_implicit_role : (string, string) Hashtbl.t =
   let tbl = Hashtbl.create 8 in
···
   end
   else
     Hashtbl.find_opt elements_with_implicit_role element_name
-
-(** Get all possible implicit roles for an element (for elements like 'th').
-
-    Note: This function is not currently used but is provided for completeness. *)
-let _get_implicit_roles element_name =
-  match Hashtbl.find_opt elements_with_implicit_roles element_name with
-  | Some roles -> Array.to_list roles
-  | None ->
-      match get_implicit_role element_name [] with
-      | Some role -> [role]
-      | None -> []
 
 (** Stack node representing an element in the ancestor chain. *)
 type stack_node = {