LibWeb/CSS: Generate is_has_allowed_pseudo_element()

Author: https://github.com/AtkinsSJ
Commit: 021e3f5c7d
Pull-request: https://github.com/LadybirdBrowser/ladybird/pull/4021

Libraries/LibWeb/CSS/Selector.cpp

@@ -759,11 +759,4 @@ SelectorList adapt_nested_relative_selector_list(SelectorList const& selectors)
     return new_list;
 }
 
-// https://drafts.csswg.org/selectors/#has-allowed-pseudo-element
-bool is_has_allowed_pseudo_element(PseudoElement)
-{
-    // No spec currently defines any pseudo-elements that are allowed in :has()
-    return false;
-}
-
 }

Libraries/LibWeb/CSS/Selector.h

@@ -264,8 +264,6 @@ String serialize_a_group_of_selectors(SelectorList const& selectors);
 
 SelectorList adapt_nested_relative_selector_list(SelectorList const&);
 
-bool is_has_allowed_pseudo_element(PseudoElement);
-
 }
 
 namespace AK {

Meta/Lagom/Tools/CodeGenerators/LibWeb/GenerateCSSPseudoElement.cpp

@@ -72,6 +72,8 @@ enum class PseudoElement : @pseudo_element_underlying_type@ {
 Optional<PseudoElement> pseudo_element_from_string(StringView);
 StringView pseudo_element_name(PseudoElement);
 
+bool is_has_allowed_pseudo_element(PseudoElement);
+
 }
 )~~~");
 
@@ -133,6 +135,31 @@ StringView pseudo_element_name(PseudoElement pseudo_element)
     VERIFY_NOT_REACHED();
 }
 
+bool is_has_allowed_pseudo_element(PseudoElement pseudo_element)
+{
+    switch (pseudo_element) {
+)~~~");
+
+    pseudo_elements_data.for_each_member([&](auto& name, JsonValue const& value) {
+        auto& pseudo_element = value.as_object();
+        if (!pseudo_element.get_bool("is-allowed-in-has"sv).value_or(false))
+            return;
+
+        auto member_generator = generator.fork();
+        member_generator.set("name:titlecase", title_casify(name));
+
+        member_generator.append(R"~~~(
+    case PseudoElement::@name:titlecase@:
+        return true;
+)~~~");
+    });
+
+    generator.append(R"~~~(
+    default:
+        return false;
+    }
+}
+
 }
 )~~~");