a11y-lint 0.5.1 → 0.7.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: c543a94f664746bb807384be228f6e83fcd7046f399f9c478e2c355cf26fa3c8
-  data.tar.gz: c37a04f979ad17e79e35b8b6fa9d615cbedebcb1fce9188eb24335e046fa4400
+  metadata.gz: db05eea43ab0509e04c90f7e2942ddc272ad5d3e8894aec3ee9a3ddb477a70e0
+  data.tar.gz: 729f6b3a082105a85b8718293e7c9c9a49d8917ac02ffb554c190973f97ff173
 SHA512:
-  metadata.gz: 3bb877b34c79e5e3dd5c969b21bb1e756acc8968ae245e7cd1274dc880529647ca83283a0d3ea7576d446df94d37a7565b45082f4a75008e826f1bcc9245f16d
-  data.tar.gz: bb23c43c6274d45fd5e9ea5cb9f73947357127fe9aa08c225438d436910357b32ca367fbe843827a3bddf4600159b4945c1bdd248805547a47a42657dd9e9cd2
+  metadata.gz: e55e705c0496c85e98f99e0ff680530a347db33aeb4b4351b318d8f9bfd9273908a8a92750606253556512c80c7ef02d41a55a8abd0c7857c4f21df70adc903a
+  data.tar.gz: dda39aeac2ca75ac9b6cf5c2afd5283f318a5b6c7de2e0470d65216cc5c7f0942d2e243e2703c58a8efd62fe685697252041a436d3e56a5af698a1849aabf1e1

data/.rubocop.yml

@@ -7,6 +7,15 @@ Style/StringLiterals:
 Style/StringLiteralsInInterpolation:
   EnforcedStyle: double_quotes
 
+Layout/LineLength:
+  Max: 80
+  Exclude:
+    - "a11y-lint.gemspec"
+
 Metrics/ClassLength:
   Exclude:
     - "test/**/*"
+
+Metrics/MethodLength:
+  Exclude:
+    - "test/**/*"

data/CHANGELOG.md

@@ -5,7 +5,25 @@ All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.1.0/),
 and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
 
-## [Unreleased]
+## [0.7.0] - 2026-04-13
+
+### Added
+
+- `ListInvalidChildren` rule: detects invalid direct children of `<ul>` and `<ol>` elements (WCAG 1.3.1)
+- `MissingAccessibleName` rule: consolidates `LinkMissingAccessibleName` into a single rule covering `link_to`, `external_link_to`, and `button_tag`
+- Per-rule configuration via `.a11y-lint.yml` file: enable or disable individual rules
+  - Place `.a11y-lint.yml` in the project root for automatic detection
+  - Use `--config PATH` to specify a custom configuration file path
+
+### Removed
+
+- `LinkMissingAccessibleName` rule: replaced by `MissingAccessibleName`
+
+## [0.6.0] - 2026-03-31
+
+### Added
+
+- `LinkMissingAccessibleName` rule: detect block-style `link_to` calls missing an `aria-label`
 
 ## [0.5.1] - 2026-03-31
 

data/CLAUDE.md

@@ -23,10 +23,12 @@ a11y-lint is a Ruby gem (v0.1.0) for accessibility linting. It uses the `A11y::L
 - **Entry point:** `lib/a11y/lint.rb` — defines the `A11y::Lint` module and `A11y::Lint::Error` exception
 - **Slim pipeline:** `SlimRunner` parses Slim templates via `Slim::Parser`; `Node` wraps Slim S-expressions
 - **ERB pipeline:** `ErbRunner` parses ERB templates via Nokogiri; `ErbNode` wraps Nokogiri nodes and extracted `<%= %>` Ruby code
-- **Rules:** `lib/a11y/lint/rules/` — rules implement `check(node)` against the shared node interface (`tag_name`, `attribute?`, `attributes`, `ruby_code`, `line`)
+- **Configuration:** `lib/a11y/lint/configuration.rb` — loads `.a11y-lint.yml` to enable/disable individual rules; searches upward from the target path
+- **Rules:** `lib/a11y/lint/rules/` — organized by WCAG principle (`perceivable/`, `operable/`, `understandable/`, `robust/`); rules implement `check(node)` against the shared node interface (`tag_name`, `attribute?`, `attributes`, `ruby_code`, `line`)
 - **Version:** `lib/a11y/lint/version.rb`
 - **Type signatures (RBS):** `sig/a11y/lint.rbs`
 - **Tests:** `test/` directory using Minitest; test helper at `test/test_helper.rb`
+- **Dummy app:** `test/fixtures/dummy_app/` — a fixture app with Slim/ERB templates for end-to-end smoke testing before releases (`bundle exec a11y-lint test/fixtures/dummy_app`)
 
 ## Code Style
 

data/README.md

@@ -39,6 +39,26 @@ With no arguments, it scans the current directory recursively for `.slim` and `.
 a11y-lint
 ```
 
+### Configuration
+
+Create a `.a11y-lint.yml` file in your project root to enable or disable individual rules:
+
+```yaml
+ImgMissingAlt:
+  Enabled: false
+
+ImageTagMissingAlt:
+  Enabled: true
+```
+
+Rules not listed in the file are enabled by default. The linter searches for `.a11y-lint.yml` starting from the target directory and walking up to the filesystem root.
+
+To specify a config file explicitly:
+
+```bash
+a11y-lint --config path/to/.a11y-lint.yml app/views/
+```
+
 ### Ruby API
 
 ```ruby

data/lib/a11y/lint/cli.rb

@@ -4,12 +4,14 @@ require "optparse"
 
 module A11y
   module Lint
-    # Command-line interface for running accessibility linting on Slim templates.
+    # Command-line interface for running accessibility
+    # linting on Slim templates.
     class CLI
       def initialize(argv, stdout: $stdout, stderr: $stderr)
         @argv = argv
         @stdout = stdout
         @stderr = stderr
+        @config_path = nil
       end
 
       def run
@@ -42,6 +44,10 @@ module A11y
             exit 0
           end
 
+          opts.on("-c", "--config PATH", "Path to configuration file") do |path|
+            @config_path = path
+          end
+
           opts.on("-h", "--help", "Show help") do
             @stdout.puts(opts)
             exit 0
@@ -78,9 +84,16 @@ module A11y
       end
 
       def all_rules
+        configuration = Configuration.load(
+          @config_path,
+          search_path: @argv.first || "."
+        )
+
         Rules.constants.filter_map do |name|
           klass = Rules.const_get(name)
-          klass.new if klass.is_a?(Class) && klass < Rule
+          next unless klass.is_a?(Class) && klass < Rule
+
+          klass if configuration.enabled?(klass.rule_name)
         end
       end
 

data/lib/a11y/lint/configuration.rb

@@ -0,0 +1,46 @@
+# frozen_string_literal: true
+
+require "yaml"
+
+module A11y
+  module Lint
+    # Loads and stores rule configuration from a YAML file.
+    class Configuration
+      DEFAULT_FILE = ".a11y-lint.yml"
+
+      def initialize(config_hash = {})
+        @config = config_hash
+      end
+
+      def self.load(path = nil, search_path: Dir.pwd)
+        path ||= find_config_file(search_path)
+        return new unless path && File.exist?(path)
+
+        config_hash = YAML.safe_load_file(path) || {}
+        new(config_hash)
+      end
+
+      def self.find_config_file(start_dir)
+        dir = File.expand_path(start_dir)
+        dir = File.dirname(dir) unless File.directory?(dir)
+
+        loop do
+          candidate = File.join(dir, DEFAULT_FILE)
+          return candidate if File.exist?(candidate)
+
+          parent = File.dirname(dir)
+          return nil if parent == dir
+
+          dir = parent
+        end
+      end
+      private_class_method :find_config_file
+
+      def enabled?(rule_name)
+        return true unless @config.key?(rule_name)
+
+        @config.dig(rule_name, "Enabled") != false
+      end
+    end
+  end
+end

data/lib/a11y/lint/erb_node.rb

@@ -2,7 +2,8 @@
 
 module A11y
   module Lint
-    # Wraps a Nokogiri node or extracted ERB output tag as a queryable node for lint rules.
+    # Wraps a Nokogiri node or extracted ERB output tag
+    # as a queryable node for lint rules.
     class ErbNode
       attr_reader :line
 
@@ -28,13 +29,24 @@ module A11y
         @ruby_code_string
       end
 
+      # Returns direct element children wrapped as ErbNode objects.
+      def children
+        return [] unless @nokogiri_node
+
+        @nokogiri_node.element_children.map do |child|
+          ErbNode.new(nokogiri_node: child, line: child.line)
+        end
+      end
+
       private
 
       def extract_attributes
         return {} unless @nokogiri_node
 
-        @nokogiri_node.attributes.each_with_object({}) do |(name, _attr), result|
-          result[name] = true
+        @nokogiri_node
+          .attributes
+          .each_with_object({}) do |(name, _attr), result|
+            result[name] = true
         end
       end
     end

data/lib/a11y/lint/erb_runner.rb

@@ -34,7 +34,10 @@ module A11y
         doc.traverse do |nokogiri_node|
           next unless nokogiri_node.element?
 
-          node = ErbNode.new(nokogiri_node: nokogiri_node, line: nokogiri_node.line)
+          node = ErbNode.new(
+            nokogiri_node: nokogiri_node,
+            line: nokogiri_node.line
+          )
           check_node(node)
         end
       end
@@ -50,12 +53,12 @@ module A11y
       end
 
       def check_node(node)
-        rules.each do |rule|
-          message = rule.check(node)
+        rules.each do |rule_class|
+          message = rule_class.check(node)
           next unless message
 
           @offenses << Offense.new(
-            rule: rule.name,
+            rule: rule_class.rule_name,
             filename: @filename,
             line: node.line,
             message: message

data/lib/a11y/lint/node.rb

@@ -29,8 +29,40 @@ module A11y
         @attributes ||= extract_attributes
       end
 
+      # Returns direct HTML element children as Node objects.
+      # Walks through [:multi] and [:slim, :control] wrappers so that tags
+      # nested inside control flow are still treated as direct children.
+      # Opaque [:slim, :output] blocks are skipped.
+      def children
+        return [] unless html_tag?
+
+        body = @sexp[4]
+        collect_children(body)
+      end
+
       private
 
+      def html_tag?
+        @sexp[0] == :html && @sexp[1] == :tag
+      end
+
+      def collect_children(sexp)
+        return [] unless sexp.is_a?(Array)
+        return [Node.new(sexp, line: @line)] if html_tag_sexp?(sexp)
+        return collect_children(sexp[3]) if slim_control_sexp?(sexp)
+        return [] unless sexp[0] == :multi
+
+        sexp[1..].flat_map { |c| collect_children(c) }
+      end
+
+      def html_tag_sexp?(sexp)
+        sexp[0] == :html && sexp[1] == :tag
+      end
+
+      def slim_control_sexp?(sexp)
+        sexp[0] == :slim && sexp[1] == :control
+      end
+
       def extract_attributes
         return {} unless html_attributes?
 

data/lib/a11y/lint/rule.rb

@@ -4,11 +4,19 @@ module A11y
   module Lint
     # Base class for accessibility lint rules.
     class Rule
-      def name
-        self.class.name.split("::").last
+      def self.check(node)
+        new(node).check
       end
 
-      def check(node)
+      def self.rule_name
+        name.split("::").last
+      end
+
+      def initialize(node)
+        @node = node
+      end
+
+      def check
         raise NotImplementedError
       end
     end

data/lib/a11y/lint/rules/{image_tag_missing_alt.rb → perceivable/image_tag_missing_alt.rb}

@@ -7,16 +7,16 @@ module A11y
     module Rules
       # Checks that image_tag calls include an alt option (WCAG 1.1.1).
       class ImageTagMissingAlt < Rule
-        def check(node)
-          return unless an_image_tag_without_an_alt_attribute?(node)
+        def check
+          return unless an_image_tag_without_an_alt_attribute?
 
           "image_tag is missing an alt option (WCAG 1.1.1)"
         end
 
         private
 
-        def an_image_tag_without_an_alt_attribute?(node)
-          code = node.ruby_code
+        def an_image_tag_without_an_alt_attribute?
+          code = @node.ruby_code
           return false unless code
 
           sexp = Ripper.sexp(code)
@@ -26,6 +26,8 @@ module A11y
           call && !alt_key_within?(call)
         end
 
+        # Walks the Ripper S-expression tree to find
+        # the image_tag call node, if present.
         def extract_image_tag_call(sexp)
           return unless sexp.is_a?(Array)
           return sexp if image_tag_call?(sexp)
@@ -38,6 +40,9 @@ module A11y
           nil
         end
 
+        # Matches both calling styles:
+        #   image_tag "photo.jpg"  => :command
+        #   image_tag("photo.jpg") => :method_add_arg
         def image_tag_call?(sexp)
           case sexp
           in [:command, [:@ident, "image_tag", *], *] then true
@@ -46,6 +51,8 @@ module A11y
           end
         end
 
+        # Recursively searches the sexp for an
+        # :assoc_new node whose key is "alt".
         def alt_key_within?(sexp)
           return true if alt_key?(sexp)
           return false unless sexp.is_a?(Array)
@@ -53,12 +60,29 @@ module A11y
           sexp.any? { |child| alt_key_within?(child) }
         end
 
+        # Checks if a sexp is a hash pair (assoc_new)
+        # with "alt" as the key.
         def alt_key?(sexp)
           return false unless sexp.is_a?(Array) && sexp[0] == :assoc_new
 
-          key = sexp[1]
-          (key in [:@label, "alt:", *]) ||
-            (key in [:string_literal, [:string_content, [:@tstring_content, "alt", *]]])
+          alt_key_value?(sexp[1])
+        end
+
+        def alt_key_value?(key)
+          alt_symbol_key?(key) || alt_string_key?(key)
+        end
+
+        # Matches symbol-style key: `alt: "..."`
+        def alt_symbol_key?(key)
+          key in [:@label, "alt:", *]
+        end
+
+        # Matches string-style key: `"alt" => "..."`
+        def alt_string_key?(key)
+          key in [
+            :string_literal,
+            [:string_content, [:@tstring_content, "alt", *]]
+          ]
         end
       end
     end

data/lib/a11y/lint/rules/{img_missing_alt.rb → perceivable/img_missing_alt.rb}

@@ -5,16 +5,16 @@ module A11y
     module Rules
       # Checks that img tags include an alt attribute (WCAG 1.1.1).
       class ImgMissingAlt < Rule
-        def check(node)
-          return unless an_image_without_an_alt_attribute?(node)
+        def check
+          return unless an_image_without_an_alt_attribute?
 
           "img tag is missing an alt attribute (WCAG 1.1.1)"
         end
 
         private
 
-        def an_image_without_an_alt_attribute?(node)
-          node.tag_name == "img" && !node.attribute?("alt")
+        def an_image_without_an_alt_attribute?
+          @node.tag_name == "img" && !@node.attribute?("alt")
         end
       end
     end

data/lib/a11y/lint/rules/perceivable/list_invalid_children.rb

@@ -0,0 +1,37 @@
+# frozen_string_literal: true
+
+module A11y
+  module Lint
+    module Rules
+      # Checks that <ul> and <ol> only directly contain <li>, <script>,
+      # or <template> elements (WCAG 1.3.1).
+      class ListInvalidChildren < Rule
+        LIST_TAGS = %w[ul ol].freeze
+        ALLOWED_CHILDREN = %w[li script template].freeze
+
+        def check
+          return unless list_with_invalid_children?
+
+          offense_message(@node.tag_name, invalid_children.first.tag_name)
+        end
+
+        private
+
+        def list_with_invalid_children?
+          LIST_TAGS.include?(@node.tag_name) && invalid_children.any?
+        end
+
+        def invalid_children
+          @invalid_children ||= @node.children.reject do |child|
+            ALLOWED_CHILDREN.include?(child.tag_name)
+          end
+        end
+
+        def offense_message(parent, child)
+          "<#{parent}> must only directly contain <li>, <script>, " \
+            "or <template> elements, found <#{child}> (WCAG 1.3.1)"
+        end
+      end
+    end
+  end
+end

data/lib/a11y/lint/rules/robust/missing_accessible_name.rb

@@ -0,0 +1,132 @@
+# frozen_string_literal: true
+
+require "ripper"
+
+module A11y
+  module Lint
+    module Rules
+      # Checks that link_to, external_link_to, and button_tag calls with
+      # empty text or block content include an aria-label (WCAG 4.1.2).
+      class MissingAccessibleName < Rule
+        METHODS = %w[link_to external_link_to button_tag].freeze
+
+        def check
+          return unless (code = @node.ruby_code)
+
+          clean_code = code.sub(/\s+do\s*\z/, "")
+          is_block = clean_code != code
+          call = parse_call(clean_code)
+          return unless call
+          return if aria_label_within?(call)
+          return unless first_arg_empty_string?(call) || is_block
+
+          offense_message(extract_method_name(call))
+        end
+
+        private
+
+        def offense_message(method_name)
+          <<~MSG.strip
+            #{method_name} missing an accessible name \
+            requires an aria-label (WCAG 4.1.2)
+          MSG
+        end
+
+        def parse_call(code)
+          sexp = Ripper.sexp(code)
+          return unless sexp
+
+          extract_matching_call(sexp)
+        end
+
+        def extract_matching_call(sexp)
+          return unless sexp.is_a?(Array)
+          return sexp if matching_call?(sexp)
+
+          sexp.each do |child|
+            result = extract_matching_call(child)
+            return result if result
+          end
+
+          nil
+        end
+
+        def matching_call?(sexp)
+          name = call_method_name(sexp)
+          name ? METHODS.include?(name) : false
+        end
+
+        def call_method_name(sexp)
+          case sexp
+          in [:command, [:@ident, name, *], *]
+            name
+          in [:method_add_arg,
+              [:fcall, [:@ident, name, *]], *]
+            name
+          else nil
+          end
+        end
+
+        def extract_method_name(call)
+          call_method_name(call)
+        end
+
+        def first_arg_empty_string?(call)
+          args = extract_args(call)
+          return false unless args&.first
+
+          args.first in [:string_literal, [:string_content]]
+        end
+
+        def extract_args(call)
+          case call
+          in [:command, _, [:args_add_block, args, *]] then args
+          in [:method_add_arg, _,
+             [:arg_paren, [:args_add_block, args, *]]]
+            then args
+          in [:method_add_arg, _, [:arg_paren, Array => args]] then args
+          else nil
+          end
+        end
+
+        def aria_label_within?(sexp)
+          return true if aria_hash_with_label?(sexp)
+          return true if aria_label_string_key?(sexp)
+          return false unless sexp.is_a?(Array)
+
+          sexp.any? { |child| aria_label_within?(child) }
+        end
+
+        def aria_hash_with_label?(sexp)
+          return false unless sexp.is_a?(Array) && sexp[0] == :assoc_new
+
+          key = sexp[1]
+          value = sexp[2]
+
+          (key in [:@label, "aria:", *]) && label_key_within?(value)
+        end
+
+        def label_key_within?(sexp)
+          return true if label_key?(sexp)
+          return false unless sexp.is_a?(Array)
+
+          sexp.any? { |child| label_key_within?(child) }
+        end
+
+        def label_key?(sexp)
+          sexp.is_a?(Array) &&
+            sexp[0] == :assoc_new &&
+            (sexp[1] in [:@label, "label:", *])
+        end
+
+        def aria_label_string_key?(sexp)
+          return false unless sexp.is_a?(Array) && sexp[0] == :assoc_new
+
+          sexp[1] in [:string_literal,
+            [:string_content,
+              [:@tstring_content, "aria-label", *]]]
+        end
+      end
+    end
+  end
+end

data/lib/a11y/lint/slim_runner.rb

@@ -43,12 +43,12 @@ module A11y
       end
 
       def check_node(node)
-        rules.each do |rule|
-          message = rule.check(node)
+        rules.each do |rule_class|
+          message = rule_class.check(node)
           next unless message
 
           @offenses << Offense.new(
-            rule: rule.name,
+            rule: rule_class.rule_name,
             filename: @filename,
             line: node.line,
             message: message

data/lib/a11y/lint/version.rb

@@ -2,6 +2,6 @@
 
 module A11y
   module Lint
-    VERSION = "0.5.1"
+    VERSION = "0.7.0"
   end
 end

data/lib/a11y/lint.rb

@@ -6,10 +6,12 @@ require_relative "lint/version"
 require_relative "lint/offense"
 require_relative "lint/node"
 require_relative "lint/erb_node"
+require_relative "lint/configuration"
 require_relative "lint/rule"
-require_relative "lint/rules/image_tag_missing_alt"
-require_relative "lint/rules/img_missing_alt"
-require_relative "lint/rules/link_missing_accessible_name"
+require_relative "lint/rules/perceivable/image_tag_missing_alt"
+require_relative "lint/rules/perceivable/img_missing_alt"
+require_relative "lint/rules/perceivable/list_invalid_children"
+require_relative "lint/rules/robust/missing_accessible_name"
 require_relative "lint/slim_runner"
 require_relative "lint/erb_runner"
 

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: a11y-lint
 version: !ruby/object:Gem::Version
-  version: 0.5.1
+  version: 0.7.0
 platform: ruby
 authors:
 - Abdullah Hashim
@@ -56,14 +56,16 @@ files:
 - exe/a11y-lint
 - lib/a11y/lint.rb
 - lib/a11y/lint/cli.rb
+- lib/a11y/lint/configuration.rb
 - lib/a11y/lint/erb_node.rb
 - lib/a11y/lint/erb_runner.rb
 - lib/a11y/lint/node.rb
 - lib/a11y/lint/offense.rb
 - lib/a11y/lint/rule.rb
-- lib/a11y/lint/rules/image_tag_missing_alt.rb
-- lib/a11y/lint/rules/img_missing_alt.rb
-- lib/a11y/lint/rules/link_missing_accessible_name.rb
+- lib/a11y/lint/rules/perceivable/image_tag_missing_alt.rb
+- lib/a11y/lint/rules/perceivable/img_missing_alt.rb
+- lib/a11y/lint/rules/perceivable/list_invalid_children.rb
+- lib/a11y/lint/rules/robust/missing_accessible_name.rb
 - lib/a11y/lint/slim_runner.rb
 - lib/a11y/lint/version.rb
 - sig/a11y/lint.rbs

data/lib/a11y/lint/rules/link_missing_accessible_name.rb

@@ -1,106 +0,0 @@
-# frozen_string_literal: true
-
-require "ripper"
-
-module A11y
-  module Lint
-    module Rules
-      # Checks that link_to / external_link_to calls with empty text
-      # include an aria-label (WCAG 4.1.2).
-      class LinkMissingAccessibleName < Rule
-        LINK_METHODS = %w[link_to external_link_to].freeze
-
-        def check(node)
-          return unless link_with_empty_text_and_no_accessible_name?(node)
-
-          "link with empty text content requires an aria-label (WCAG 4.1.2)"
-        end
-
-        private
-
-        def link_with_empty_text_and_no_accessible_name?(node)
-          code = node.ruby_code
-          return false unless code
-
-          sexp = Ripper.sexp(code)
-          return false unless sexp
-
-          call = extract_link_call(sexp)
-          return false unless call
-
-          first_arg_empty_string?(call) && !aria_label_within?(call)
-        end
-
-        def extract_link_call(sexp)
-          return unless sexp.is_a?(Array)
-          return sexp if link_call?(sexp)
-
-          sexp.each do |child|
-            result = extract_link_call(child)
-            return result if result
-          end
-
-          nil
-        end
-
-        def link_call?(sexp)
-          case sexp
-          in [:command, [:@ident, name, *], *] if LINK_METHODS.include?(name) then true
-          in [:method_add_arg, [:fcall, [:@ident, name, *]], *] if LINK_METHODS.include?(name) then true
-          else false
-          end
-        end
-
-        def first_arg_empty_string?(call)
-          args = extract_args(call)
-          return false unless args&.first
-
-          args.first in [:string_literal, [:string_content]]
-        end
-
-        def extract_args(call)
-          case call
-          in [:command, _, [:args_add_block, args, *]] then args
-          in [:method_add_arg, _, [:arg_paren, [:args_add_block, args, *]]] then args
-          in [:method_add_arg, _, [:arg_paren, Array => args]] then args
-          else nil
-          end
-        end
-
-        def aria_label_within?(sexp)
-          return true if aria_hash_with_label?(sexp)
-          return true if aria_label_string_key?(sexp)
-          return false unless sexp.is_a?(Array)
-
-          sexp.any? { |child| aria_label_within?(child) }
-        end
-
-        def aria_hash_with_label?(sexp)
-          return false unless sexp.is_a?(Array) && sexp[0] == :assoc_new
-
-          key = sexp[1]
-          value = sexp[2]
-
-          (key in [:@label, "aria:", *]) && label_key_within?(value)
-        end
-
-        def label_key_within?(sexp)
-          return true if label_key?(sexp)
-          return false unless sexp.is_a?(Array)
-
-          sexp.any? { |child| label_key_within?(child) }
-        end
-
-        def label_key?(sexp)
-          sexp.is_a?(Array) && sexp[0] == :assoc_new && (sexp[1] in [:@label, "label:", *])
-        end
-
-        def aria_label_string_key?(sexp)
-          return false unless sexp.is_a?(Array) && sexp[0] == :assoc_new
-
-          sexp[1] in [:string_literal, [:string_content, [:@tstring_content, "aria-label", *]]]
-        end
-      end
-    end
-  end
-end