syntax_tree-haml 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 711c40f06bdb83c4889511758c3aa91f3aa7899a938ecdd88fd25d3a8ad5e0b1
+  data.tar.gz: 95638948d5c9ffde2ed072daa08de0ac144ed6dc9b700d66f823b5013de53dcd
+SHA512:
+  metadata.gz: 40dc20bf9f0953b73458aa88aa6a32fd3ff8b032d5c3045c17304e2203bad3c88f9f45b1bec7f58bf8a5e86bf87890832f12ab8ba7724242210016e0f779dee7
+  data.tar.gz: db0b0b019ed7ea98d8283be82cb5f84e84cb40fd537ab592cca582cd5ce0b7119009faaec437d858c81143bfa84de34da4f9c2e0a6bc1c372f140059f0c7730a

data/.github/dependabot.yml

@@ -0,0 +1,6 @@
+version: 2
+updates:
+  - package-ecosystem: "bundler"
+    directory: "/"
+    schedule:
+      interval: "daily"

data/.github/workflows/main.yml

@@ -0,0 +1,32 @@
+name: Main
+on:
+- push
+- pull_request_target
+jobs:
+  ci:
+    name: CI
+    runs-on: ubuntu-latest
+    env:
+      CI: true
+    steps:
+    - uses: actions/checkout@master
+    - uses: ruby/setup-ruby@v1
+      with:
+        bundler-cache: true
+        ruby-version: '3.1'
+    - name: Test
+      run: bundle exec rake test
+  automerge:
+    name: AutoMerge
+    needs: ci
+    runs-on: ubuntu-latest
+    if: github.event_name == 'pull_request_target' && github.actor == 'dependabot[bot]'
+    steps:
+    - uses: actions/github-script@v3
+      with:
+        script: |
+          github.pulls.merge({
+            owner: context.payload.repository.owner.login,
+            repo: context.payload.repository.name,
+            pull_number: context.payload.pull_request.number
+          })

data/.gitignore

@@ -0,0 +1,2 @@
+coverage
+test.haml

data/CODE_OF_CONDUCT.md

@@ -0,0 +1,74 @@
+# Contributor Covenant Code of Conduct
+
+## Our Pledge
+
+In the interest of fostering an open and welcoming environment, we as
+contributors and maintainers pledge to making participation in our project and
+our community a harassment-free experience for everyone, regardless of age, body
+size, disability, ethnicity, gender identity and expression, level of experience,
+nationality, personal appearance, race, religion, or sexual identity and
+orientation.
+
+## Our Standards
+
+Examples of behavior that contributes to creating a positive environment
+include:
+
+* Using welcoming and inclusive language
+* Being respectful of differing viewpoints and experiences
+* Gracefully accepting constructive criticism
+* Focusing on what is best for the community
+* Showing empathy towards other community members
+
+Examples of unacceptable behavior by participants include:
+
+* The use of sexualized language or imagery and unwelcome sexual attention or
+advances
+* Trolling, insulting/derogatory comments, and personal or political attacks
+* Public or private harassment
+* Publishing others' private information, such as a physical or electronic
+  address, without explicit permission
+* Other conduct which could reasonably be considered inappropriate in a
+  professional setting
+
+## Our Responsibilities
+
+Project maintainers are responsible for clarifying the standards of acceptable
+behavior and are expected to take appropriate and fair corrective action in
+response to any instances of unacceptable behavior.
+
+Project maintainers have the right and responsibility to remove, edit, or
+reject comments, commits, code, wiki edits, issues, and other contributions
+that are not aligned to this Code of Conduct, or to ban temporarily or
+permanently any contributor for other behaviors that they deem inappropriate,
+threatening, offensive, or harmful.
+
+## Scope
+
+This Code of Conduct applies both within project spaces and in public spaces
+when an individual is representing the project or its community. Examples of
+representing a project or community include using an official project e-mail
+address, posting via an official social media account, or acting as an appointed
+representative at an online or offline event. Representation of a project may be
+further defined and clarified by project maintainers.
+
+## Enforcement
+
+Instances of abusive, harassing, or otherwise unacceptable behavior may be
+reported by contacting the project team at kddnewton@gmail.com. All
+complaints will be reviewed and investigated and will result in a response that
+is deemed necessary and appropriate to the circumstances. The project team is
+obligated to maintain confidentiality with regard to the reporter of an incident.
+Further details of specific enforcement policies may be posted separately.
+
+Project maintainers who do not follow or enforce the Code of Conduct in good
+faith may face temporary or permanent repercussions as determined by other
+members of the project's leadership.
+
+## Attribution
+
+This Code of Conduct is adapted from the [Contributor Covenant][homepage], version 1.4,
+available at [https://contributor-covenant.org/version/1/4][version]
+
+[homepage]: https://contributor-covenant.org
+[version]: https://contributor-covenant.org/version/1/4/

data/Gemfile

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+
+source "https://rubygems.org"
+
+gemspec

data/Gemfile.lock

@@ -0,0 +1,39 @@
+PATH
+  remote: .
+  specs:
+    syntax_tree-haml (0.1.0)
+      haml (>= 5.2)
+      syntax_tree
+
+GEM
+  remote: https://rubygems.org/
+  specs:
+    docile (1.4.0)
+    haml (5.2.2)
+      temple (>= 0.8.0)
+      tilt
+    minitest (5.15.0)
+    rake (13.0.6)
+    simplecov (0.21.2)
+      docile (~> 1.1)
+      simplecov-html (~> 0.11)
+      simplecov_json_formatter (~> 0.1)
+    simplecov-html (0.12.3)
+    simplecov_json_formatter (0.1.4)
+    syntax_tree (1.2.0)
+    temple (0.8.2)
+    tilt (2.0.10)
+
+PLATFORMS
+  x86_64-darwin-21
+  x86_64-linux
+
+DEPENDENCIES
+  bundler
+  minitest
+  rake
+  simplecov
+  syntax_tree-haml!
+
+BUNDLED WITH
+   2.3.6

data/README.md

@@ -0,0 +1,68 @@
+# SyntaxTree::Haml
+
+[![Build Status](https://github.com/ruby-syntax-tree/syntax_tree-haml/actions/workflows/main.yml/badge.svg)](https://github.com/ruby-syntax-tree/syntax_tree-haml/actions/workflows/main.yml)
+[![Gem Version](https://img.shields.io/gem/v/syntax_tree-haml.svg)](https://rubygems.org/gems/syntax_tree-haml)
+
+[Syntax Tree](https://github.com/ruby-syntax-tree/syntax_tree) support for the [Haml template language](https://haml.info/).
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem "syntax_tree-haml"
+```
+
+And then execute:
+
+    $ bundle install
+
+Or install it yourself as:
+
+    $ gem install syntax_tree-haml
+
+## Usage
+
+From code:
+
+```ruby
+require "syntax_tree/haml"
+
+pp SyntaxTree::Haml.parse(source) # print out the AST
+puts SyntaxTree::Haml.format(source) # format the AST
+```
+
+From the CLI:
+
+```sh
+$ stree ast template.haml
+(root children=[(tag name="span" value="Hello, world!")])
+```
+
+or
+
+```sh
+$ stree format template.haml
+%span Hello, world!
+```
+
+or
+
+```sh
+$ stree write template.haml
+template.haml 1ms
+```
+
+## Development
+
+After checking out the repo, run `bin/setup` to install dependencies. Then, run `rake test` to run the tests. You can also run `bin/console` for an interactive prompt that will allow you to experiment.
+
+To install this gem onto your local machine, run `bundle exec rake install`. To release a new version, update the version number in `version.rb`, and then run `bundle exec rake release`, which will create a git tag for the version, push git commits and tags, and push the `.gem` file to [rubygems.org](https://rubygems.org).
+
+## Contributing
+
+Bug reports and pull requests are welcome on GitHub at https://github.com/ruby-syntax-tree/syntax_tree-haml.
+
+## License
+
+The gem is available as open source under the terms of the [MIT License](https://opensource.org/licenses/MIT).

data/Rakefile

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "bundler/gem_tasks"
+require "rake/testtask"
+
+Rake::TestTask.new(:test) do |t|
+  t.libs << "test"
+  t.libs << "lib"
+  t.test_files = FileList["test/**/*_test.rb"]
+end
+
+task default: :test

data/bin/format

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+# frozen_string_literal: true
+
+require "bundler/setup"
+
+$:.unshift(File.expand_path("../lib", __dir__))
+require "syntax_tree/haml"
+
+puts SyntaxTree::Haml.format(ARGF.read)

data/bin/parse

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+# frozen_string_literal: true
+
+require "bundler/setup"
+
+$:.unshift(File.expand_path("../lib", __dir__))
+require "syntax_tree/haml"
+
+pp SyntaxTree::Haml.parse(ARGF.read)

data/lib/syntax_tree/haml/comment.rb

@@ -0,0 +1,52 @@
+# frozen_string_literal: true
+
+class SyntaxTree < Ripper
+  module Haml
+    # https://haml.info/docs/yardoc/file.REFERENCE.html#html-comments-
+    class Comment
+      attr_reader :node
+
+      def initialize(node)
+        @node = node
+      end
+
+      def format(q)
+        Haml.with_children(node, q) do
+          q.text("/")
+          q.text("!") if node.value[:revealed]
+
+          if node.value[:conditional]
+            q.text(node.value[:conditional])
+          elsif node.value[:text]
+            q.text(" #{node.value[:text]}")
+          end
+        end
+      end
+
+      def pretty_print(q)
+        q.group(2, "(comment", ")") do
+          q.breakable
+
+          if node.value[:conditional]
+            q.text("conditional=")
+            q.pp(node.value[:conditional])
+          elsif node.value[:text]
+            q.text("text=")
+            q.pp(node.value[:text])
+          end
+
+          if node.value[:revealed]
+            q.breakable
+            q.text("revealed")
+          end
+
+          if node.children.any?
+            q.breakable
+            q.text("children=")
+            q.pp(node.children)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/syntax_tree/haml/doctype.rb

@@ -0,0 +1,64 @@
+# frozen_string_literal: true
+
+class SyntaxTree < Ripper
+  module Haml
+    # https://haml.info/docs/yardoc/file.REFERENCE.html#doctype-
+    class Doctype
+      TYPES = {
+        "basic" => "Basic",
+        "frameset" => "Frameset",
+        "mobile" => "Mobile",
+        "rdfa" => "RDFa",
+        "strict" => "Strict",
+        "xml" => "XML"
+      }
+
+      VERSIONS = ["1.1", "5"]
+
+      attr_reader :node
+
+      def initialize(node)
+        @node = node
+      end
+
+      def format(q)
+        parts = ["!!!"]
+
+        parts <<
+          if TYPES.key?(node.value[:type])
+            TYPES[node.value[:type]]
+          elsif VERSIONS.include?(node.value[:version])
+            node.value[:version]
+          else
+            node.value[:type]
+          end
+
+        parts << node.value[:encoding] if node.value[:encoding]
+        q.text(parts.join(" "))
+      end
+
+      def pretty_print(q)
+        q.group(2, "(doctype", ")") do
+          q.breakable
+
+          if TYPES.key?(node.value[:type])
+            q.text("type=")
+            q.pp(node.value[:type])
+          elsif VERSIONS.include?(node.value[:version])
+            q.text("version=")
+            q.pp(node.value[:version])
+          else
+            q.text("type=")
+            q.pp(node.value[:type])
+          end
+
+          if node.value[:encoding]
+            q.breakable
+            q.text("encoding=")
+            q.pp(node.value[:encoding])
+          end
+        end
+      end
+    end
+  end
+end

data/lib/syntax_tree/haml/filter.rb

@@ -0,0 +1,42 @@
+# frozen_string_literal: true
+
+class SyntaxTree < Ripper
+  module Haml
+    # https://haml.info/docs/yardoc/file.REFERENCE.html#filters
+    class Filter
+      attr_reader :node
+
+      def initialize(node)
+        @node = node
+      end
+
+      def format(q)
+        q.group do
+          q.text(":")
+          q.text(node.value[:name])
+
+          q.indent do
+            q.breakable(force: true)
+
+            segments = node.value[:text].strip.split("\n")
+            q.seplist(segments, -> { q.breakable(force: true) }) do |segment|
+              q.text(segment)
+            end
+          end
+        end
+      end
+
+      def pretty_print(q)
+        q.group(2, "(filter", ")") do
+          q.breakable
+          q.text("name=")
+          q.text(node.value[:name])
+
+          q.breakable
+          q.text("text=")
+          q.pp(node.value[:text])
+        end
+      end
+    end
+  end
+end

data/lib/syntax_tree/haml/haml_comment.rb

@@ -0,0 +1,38 @@
+# frozen_string_literal: true
+
+class SyntaxTree < Ripper
+  module Haml
+    # https://haml.info/docs/yardoc/file.REFERENCE.html#haml-comments--
+    class HamlComment
+      attr_reader :node
+
+      def initialize(node)
+        @node = node
+      end
+
+      def format(q)
+        q.text("-#")
+        text = node.value[:text].strip
+
+        if text.include?("\n")
+          q.indent do
+            q.breakable(force: true)
+            q.seplist(text.split("\n"), -> { q.breakable(force: true) }) do |segment|
+              q.text(segment)
+            end
+          end
+        else
+          q.text(" #{text}")
+        end
+      end
+
+      def pretty_print(q)
+        q.group(2, "(haml_comment", ")") do
+          q.breakable
+          q.text("text=")
+          q.pp(node.value[:text])
+        end
+      end
+    end
+  end
+end

data/lib/syntax_tree/haml/plain.rb

@@ -0,0 +1,40 @@
+# frozen_string_literal: true
+
+class SyntaxTree < Ripper
+  module Haml
+    # https://haml.info/docs/yardoc/file.REFERENCE.html#plain-text
+    class Plain
+      attr_reader :node
+
+      def initialize(node)
+        @node = node
+      end
+
+      def format(q)
+        text = node.value[:text]
+
+        q.text("\\") if escaped?(text)
+        q.text(text)
+      end
+
+      def pretty_print(q)
+        q.group(2, "(plain", ")") do
+          q.breakable
+          q.text("text=")
+          q.pp(node.value[:text])
+        end
+      end
+
+      private
+
+      # If a node comes in as the plain type but starts with one of the special
+      # characters that haml parses, then we need to escape it with a \ when
+      # printing.
+      def escaped?(text)
+        ::Haml::Parser::SPECIAL_CHARACTERS.any? do |special|
+          text.start_with?(special)
+        end
+      end
+    end
+  end
+end

data/lib/syntax_tree/haml/root.rb

@@ -0,0 +1,30 @@
+# frozen_string_literal: true
+
+class SyntaxTree < Ripper
+  module Haml
+    class Root
+      attr_reader :node
+
+      def initialize(node)
+        @node = node
+      end
+
+      def format(q)
+        node.children.each do |child|
+          child.format(q)
+          q.breakable(force: true)
+        end
+      end
+
+      def pretty_print(q)
+        q.group(2, "(root", ")") do
+          if node.children.any?
+            q.breakable
+            q.text("children=")
+            q.pp(node.children)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/syntax_tree/haml/script.rb

@@ -0,0 +1,53 @@
+# frozen_string_literal: true
+
+class SyntaxTree < Ripper
+  module Haml
+    # https://haml.info/docs/yardoc/file.REFERENCE.html#inserting_ruby
+    class Script
+      attr_reader :node
+
+      def initialize(node)
+        @node = node
+      end
+
+      def format(q)
+        Haml.with_children(node, q) do
+          q.text("&") if node.value[:escape_html]
+
+          if node.value[:preserve]
+            q.text("~")
+          else
+            q.text("=")
+          end
+
+          q.text(" ")
+          q.text(node.value[:text].strip)
+        end
+      end
+
+      def pretty_print(q)
+        q.group(2, "(script", ")") do
+          q.breakable
+          q.text("text=")
+          q.pp(node.value[:text])
+
+          if node.value[:escape_html]
+            q.breakable
+            q.text("escape_html")
+          end
+
+          if node.value[:preserve]
+            q.breakable
+            q.text("preserve")
+          end
+
+          if node.children.any?
+            q.breakable
+            q.text("children=")
+            q.pp(node.children)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/syntax_tree/haml/silent_script.rb

@@ -0,0 +1,57 @@
+# frozen_string_literal: true
+
+class SyntaxTree < Ripper
+  module Haml
+    # https://haml.info/docs/yardoc/file.REFERENCE.html#running-ruby--
+    class SilentScript
+      attr_reader :node
+
+      def initialize(node)
+        @node = node
+      end
+
+      def format(q)
+        q.group do
+          q.text("- ")
+          q.text(node.value[:text].strip)
+
+          node.children.each do |child|
+            if continuation?(child)
+              q.breakable(force: true)
+              child.format(q)
+            else
+              q.indent do
+                q.breakable(force: true)
+                child.format(q)
+              end
+            end
+          end
+        end
+      end
+
+      def pretty_print(q)
+        q.group(2, "(silent_script", ")") do
+          q.breakable
+          q.text("text=")
+          q.pp(node.value[:text])
+
+          if node.children.any?
+            q.breakable
+            q.text("children=")
+            q.pp(node.children)
+          end
+        end
+      end
+
+      private
+
+      def continuation?(child)
+        return false if child.type != :silent_script
+
+        [node.value[:keyword], child.value[:keyword]] in
+          ["case", "in" | "when" | "else"] |
+          ["if" | "unless", "elsif" | "else"]
+      end
+    end
+  end
+end

data/lib/syntax_tree/haml/tag.rb

@@ -0,0 +1,306 @@
+# frozen_string_literal: true
+
+class SyntaxTree < Ripper
+  module Haml
+    class Tag
+      LiteralHashValue = Struct.new(:value)
+
+      def self.hash_key(key)
+        key.match?(/^@|[-:]/) ? "\"#{key}\":" : "#{key}:"
+      end
+
+      def self.hash_value(value)
+        case value
+        when LiteralHashValue
+          value.value
+        when String
+          "\"#{Quotes.normalize(value, "\"")}\""
+        else
+          value.to_s
+        end
+      end
+
+      class PlainPart < Struct.new(:value)
+        def format(q, align)
+          q.text(value)
+        end
+
+        def length
+          value.length
+        end
+      end
+
+      class PrefixPart < Struct.new(:prefix, :value)
+        def format(q, align)
+          q.text("#{prefix}#{value}")
+        end
+
+        def length
+          prefix.length + value.length
+        end
+      end
+
+      class HTMLAttributesPart
+        attr_reader :values
+
+        def initialize(raw)
+          @values =
+            raw[1...-1].split(",").to_h do |keypair|
+              keypair[1..-1].split("\" => ")
+            end
+        end
+
+        def format(q, align)
+          q.group do
+            q.text("(")
+            q.nest(align) do
+              q.seplist(values, -> { q.fill_breakable }, :each_pair) do |key, value|
+                q.text("#{key}=#{value}")
+              end
+            end
+            q.text(")")
+          end
+        end
+
+        def length
+          values.sum { |key, value| key.length + value.length + 3 }
+        end
+      end
+
+      class HashAttributesPart < Struct.new(:values)
+        def format(q, align)
+          format_value(q, values)
+        end
+
+        def length
+          values.sum do |key, value|
+            key.length + (value.is_a?(String) ? value : value.to_s).length + 3
+          end
+        end
+
+        private
+
+        def format_value(q, hash, level = 0)
+          q.group do
+            q.text("{")
+            q.indent do
+              q.group do
+                q.breakable(level == 0 ? "" : " ")
+                q.seplist(hash, nil, :each_pair) do |key, value|
+                  q.text(Tag.hash_key(key))
+                  q.text(" ")
+
+                  if value.is_a?(Hash)
+                    format_value(q, value, level + 1)
+                  else
+                    q.text(Tag.hash_value(value))
+                  end
+                end
+              end
+            end
+
+            q.breakable(level == 0 ? "" : " ")
+            q.text("}")
+          end
+        end
+      end
+
+      attr_reader :node
+
+      def initialize(node)
+        @node = node
+      end
+
+      def format(q)
+        parts = []
+
+        # If we have a tag that isn't a div, then we need to print out that
+        # name of that tag first. If it is a div, first we'll check if there
+        # are any other things that would force us to print out the div
+        # explicitly, and otherwise we'll leave it off.
+        if node.value[:name] != "div"
+          parts << PrefixPart.new("%", node.value[:name])
+        end
+
+        # If we have a class attribute, then we're going to print that here
+        # using the special class syntax.
+        if node.value[:attributes].key?("class")
+          parts << PrefixPart.new(".", node.value[:attributes]["class"].tr(" ", "."))
+        end
+
+        # If we have an id attribute, then we're going to print that here
+        # using the special id syntax.
+        if node.value[:attributes].key?("id")
+          parts << PrefixPart.new("#", node.value[:attributes]["id"])
+        end
+
+        # If we're using dynamic attributes on this tag, then they come in as
+        # a string that looks like the output of Hash#inspect from Ruby. So
+        # here we're going to split it all up and print it out nicely.
+        if node.value[:dynamic_attributes].new
+          parts << HTMLAttributesPart.new(node.value[:dynamic_attributes].new)
+        end
+
+        # If there are any static attributes that are not class or id (because
+        # we already took care of those), then we're going to print them out
+        # here.
+        static = node.value[:attributes].reject { |key, _| key == "class" || key == "id" }
+        parts << HashAttributesPart.new(static) if static.any?
+
+        # If there are dynamic attributes that don't use the newer syntax, then
+        # we're going to print them out here.
+        if node.value[:dynamic_attributes].old
+          parts << PlainPart.new("%div") if parts.empty?
+
+          if ::Haml::AttributeParser.available?
+            dynamic = parse_attributes(node.value[:dynamic_attributes].old)
+            parts <<
+              if dynamic.is_a?(LiteralHashValue)
+                PlainPart.new(dynamic.value)
+              else
+                HashAttributesPart.new(dynamic)
+              end
+          else
+            parts << PlainPart.new(node.value[:dynamic_attributes].old)
+          end
+        end
+
+        # https://haml.info/docs/yardoc/file.REFERENCE.html#object-reference-
+        if node.value[:object_ref] != :nil
+          parts << PlainPart.new("%div") if parts.empty?
+          parts << PlainPart.new(node.value[:object_ref])
+        end
+
+        # https://haml.info/docs/yardoc/file.REFERENCE.html#whitespace-removal--and-
+        parts << PlainPart.new(">") if node.value[:nuke_outer_whitespace]
+        parts << PlainPart.new("<") if node.value[:nuke_inner_whitespace]
+
+        # https://haml.info/docs/yardoc/file.REFERENCE.html#empty-void-tags-
+        parts << PlainPart.new("/") if node.value[:self_closing]
+
+        # If there is a value part, then we're going to print slightly
+        # differently as the value goes after the tag declaration.
+        if node.value[:value]
+          return Haml.with_children(node, q) do
+            q.group do
+              align = 0
+
+              parts.each do |part|
+                part.format(q, align)
+                align += part.length
+              end
+            end
+
+            q.indent do
+              # Split between the declaration of the tag and the contents of the
+              # tag.
+              q.breakable("")
+
+              if node.value[:parse] && node.value[:value].match?(/#[{$@]/)
+                # There's a weird case here where if the value includes
+                # interpolation and it's marked as { parse: true }, then we
+                # don't actually want the = prefix, and we want to remove extra
+                # escaping.
+                q.if_break { q.text("") }.if_flat { q.text(" ") }
+                q.text(node.value[:value][1...-1].gsub(/\\"/, "\""))
+              elsif node.value[:parse]
+                q.text("= ")
+                q.text(node.value[:value])
+              else
+                q.if_break { q.text("") }.if_flat { q.text(" ") }
+                q.text(node.value[:value])
+              end
+            end
+          end
+        end
+
+        # In case none of the other if statements have matched and we're
+        # printing a div, we need to explicitly add it back into the array.
+        if parts.empty? && node.value[:name] == "div"
+          parts << PlainPart.new("%div")
+        end
+
+        Haml.with_children(node, q) do
+          align = 0
+
+          parts.each do |part|
+            part.format(q, align)
+            align += part.length
+          end
+        end
+      end
+
+      def pretty_print(q)
+        q.group(2, "(tag", ")") do
+          q.breakable
+          q.text("name=")
+          q.pp(node.value[:name])
+
+          if node.value[:attributes].any?
+            q.breakable
+            q.text("attributes=")
+            q.pp(node.value[:attributes])
+          end
+
+          if node.value[:dynamic_attributes].new
+            q.breakable
+            q.text("dynamic_attributes.new=")
+            q.pp(node.value[:dynamic_attributes].new)
+          end
+
+          if node.value[:dynamic_attributes].old
+            q.breakable
+            q.text("dynamic_attributes.old=")
+            q.pp(node.value[:dynamic_attributes].old)
+          end
+
+          if node.value[:object_ref] != :nil
+            q.breakable
+            q.text("object_ref=")
+            q.pp(node.value[:object_ref])
+          end
+
+          if node.value[:nuke_outer_whitespace]
+            q.breakable
+            q.text("nuke_outer_whitespace")
+          end
+
+          if node.value[:nuke_inner_whitespace]
+            q.breakable
+            q.text("nuke_inner_whitespace")
+          end
+
+          if node.value[:self_closing]
+            q.breakable
+            q.text("self_closing")
+          end
+
+          if node.value[:value]
+            q.breakable
+            q.text("value=")
+            q.pp(node.value[:value])
+          end
+
+          if node.children.any?
+            q.breakable
+            q.text("children=")
+            q.pp(node.children)
+          end
+        end
+      end
+
+      private
+
+      def parse_attributes(source)
+        case Ripper.sexp(source)
+        in [:program, [[:hash, *], *]] if parsed = ::Haml::AttributeParser.parse(source)
+          parsed.to_h { |key, value| [key, parse_attributes(value)] }
+        in [:program, [[:string_literal, *], *]]
+          source[1...-1]
+        else
+          LiteralHashValue.new(source)
+        end
+      end
+    end
+  end
+end

data/lib/syntax_tree/haml/version.rb

@@ -0,0 +1,7 @@
+# frozen_string_literal: true
+
+class SyntaxTree < Ripper
+  module Haml
+    VERSION = "0.1.0"
+  end
+end

data/lib/syntax_tree/haml.rb

@@ -0,0 +1,74 @@
+# frozen_string_literal: true
+
+require "haml"
+require "syntax_tree"
+
+require "syntax_tree/haml/comment"
+require "syntax_tree/haml/doctype"
+require "syntax_tree/haml/filter"
+require "syntax_tree/haml/haml_comment"
+require "syntax_tree/haml/plain"
+require "syntax_tree/haml/root"
+require "syntax_tree/haml/script"
+require "syntax_tree/haml/silent_script"
+require "syntax_tree/haml/tag"
+
+class Haml::Parser::ParseNode
+  def format(q)
+    syntax_tree.format(q)
+  end
+
+  def pretty_print(q)
+    syntax_tree.pretty_print(q)
+  end
+
+  private
+
+  def syntax_tree
+    case type
+    when :comment then SyntaxTree::Haml::Comment.new(self)
+    when :doctype then SyntaxTree::Haml::Doctype.new(self)
+    when :filter then SyntaxTree::Haml::Filter.new(self)
+    when :haml_comment then SyntaxTree::Haml::HamlComment.new(self)
+    when :plain then SyntaxTree::Haml::Plain.new(self)
+    when :root then SyntaxTree::Haml::Root.new(self)
+    when :script then SyntaxTree::Haml::Script.new(self)
+    when :silent_script then SyntaxTree::Haml::SilentScript.new(self)
+    when :tag then SyntaxTree::Haml::Tag.new(self)
+    else
+      raise ArgumentError, "Unsupported type: #{type}"
+    end
+  end
+end
+
+class SyntaxTree < Ripper
+  module Haml
+    def self.parse(source)
+      ::Haml::Parser.new({}).call(source)
+    end
+
+    def self.format(source)
+      formatter = PP.new([])
+      parse(source).format(formatter)
+
+      formatter.flush
+      formatter.output.join
+    end
+
+    def self.with_children(node, q)
+      if node.children.empty?
+        q.group { yield }
+      else
+        q.group do
+          q.group { yield }
+          q.indent do
+            node.children.each do |child|
+              q.breakable(force: true)
+              child.format(q)
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/syntax_tree-haml.gemspec

@@ -0,0 +1,34 @@
+# frozen_string_literal: true
+
+require "ripper"
+require_relative "lib/syntax_tree/haml/version"
+
+Gem::Specification.new do |spec|
+  spec.name          = "syntax_tree-haml"
+  spec.version       = SyntaxTree::Haml::VERSION
+  spec.authors       = ["Kevin Newton"]
+  spec.email         = ["kddnewton@gmail.com"]
+
+  spec.summary       = "Syntax Tree support for Haml"
+  spec.homepage      = "https://github.com/ruby-syntax-tree/syntax_tree-haml"
+  spec.license       = "MIT"
+  spec.metadata      = { "rubygems_mfa_required" => "true" }
+
+  spec.files         = Dir.chdir(__dir__) do
+    `git ls-files -z`.split("\x0").reject do |f|
+      f.match(%r{^(test|spec|features)/})
+    end
+  end
+
+  spec.bindir        = "exe"
+  spec.executables   = spec.files.grep(%r{^exe/}) { |f| File.basename(f) }
+  spec.require_paths = %w[lib]
+
+  spec.add_dependency "haml", ">= 5.2"
+  spec.add_dependency "syntax_tree"
+
+  spec.add_development_dependency "bundler"
+  spec.add_development_dependency "minitest"
+  spec.add_development_dependency "rake"
+  spec.add_development_dependency "simplecov"
+end

metadata

@@ -0,0 +1,150 @@
+--- !ruby/object:Gem::Specification
+name: syntax_tree-haml
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- Kevin Newton
+autorequire:
+bindir: exe
+cert_chain: []
+date: 2022-03-30 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: haml
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '5.2'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '5.2'
+- !ruby/object:Gem::Dependency
+  name: syntax_tree
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: minitest
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: simplecov
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+description:
+email:
+- kddnewton@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- ".github/dependabot.yml"
+- ".github/workflows/main.yml"
+- ".gitignore"
+- CODE_OF_CONDUCT.md
+- Gemfile
+- Gemfile.lock
+- README.md
+- Rakefile
+- bin/format
+- bin/parse
+- lib/syntax_tree/haml.rb
+- lib/syntax_tree/haml/comment.rb
+- lib/syntax_tree/haml/doctype.rb
+- lib/syntax_tree/haml/filter.rb
+- lib/syntax_tree/haml/haml_comment.rb
+- lib/syntax_tree/haml/plain.rb
+- lib/syntax_tree/haml/root.rb
+- lib/syntax_tree/haml/script.rb
+- lib/syntax_tree/haml/silent_script.rb
+- lib/syntax_tree/haml/tag.rb
+- lib/syntax_tree/haml/version.rb
+- syntax_tree-haml.gemspec
+homepage: https://github.com/ruby-syntax-tree/syntax_tree-haml
+licenses:
+- MIT
+metadata:
+  rubygems_mfa_required: 'true'
+post_install_message:
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.3.3
+signing_key:
+specification_version: 4
+summary: Syntax Tree support for Haml
+test_files: []