added those forgotten files

Author: catmando

ruby/hyper-component/lib/hyperstack/component/haml.rb

@@ -0,0 +1,18 @@
+require 'hyperstack/internal/component/haml'
+# to allow for easier testing we include the internal mixins
+# from hyperstack/internal/component/haml
+# see spec/deprecated_features/haml_spec
+module Hyperstack
+  module Internal
+    module Component
+      module Tags
+        include HAMLTagInstanceMethods
+      end
+    end
+  end
+  module Component
+    class Element
+      include HAMLElementInstanceMethods
+    end
+  end
+end

ruby/hyper-component/lib/hyperstack/internal/component/haml.rb

@@ -0,0 +1,56 @@
+require 'hyperstack/ext/component/string'
+# see hyperstack/component/haml for this is to be included.
+module Hyperstack
+  module Internal
+    module Component
+      module HAMLTagInstanceMethods
+        def self.included(base)
+          base.const_get('HTML_TAGS').each do |tag|
+            if tag == 'p'
+              base.define_method(tag) do |*params, &children|
+                if children || params.count == 0 || (params.count == 1 && params.first.is_a?(Hash))
+                  RenderingContext.render(tag, *params, &children)
+                else
+                  Kernel.p(*params)
+                end
+              end
+            else
+              base.alias_method tag, tag.upcase
+            end
+          end
+        end
+      end
+
+      module HAMLElementInstanceMethods
+        def method_missing(class_name, args = {}, &new_block)
+          return dup.render.method_missing(class_name, args, &new_block) unless rendered?
+          Hyperstack::Internal::Component::RenderingContext.replace(
+            self,
+            Hyperstack::Internal::Component::RenderingContext.build do
+              Hyperstack::Internal::Component::RenderingContext.render(type, build_new_properties(class_name, args), &new_block)
+            end
+          )
+        end
+
+        def rendered?
+          Hyperstack::Internal::Component::RenderingContext.rendered? self
+        end
+
+        def haml_class_name(class_name)
+          class_name.gsub(/__|_/, '__' => '_', '_' => '-')
+        end
+
+        private
+
+        def build_new_properties(class_name, args)
+          class_name = haml_class_name(class_name)
+          new_props = @properties.dup
+          new_props[:className] = "\
+            #{class_name} #{new_props[:className]} #{args.delete(:class)} #{args.delete(:className)}\
+          ".split(' ').uniq.join(' ')
+          new_props.merge! args
+        end
+      end
+    end
+  end
+end

ruby/hyper-component/spec/deprecated_features/haml_spec.rb

@@ -0,0 +1,90 @@
+require 'spec_helper'
+
+describe 'HAML notation', js: true do
+  before(:each) do
+    on_client do
+      # simulate requiring 'hyperstack/component/haml'
+      module Hyperstack::Internal::Component::Tags
+        include Hyperstack::Internal::Component::HAMLTagInstanceMethods
+      end
+      class Hyperstack::Component::Element
+        include Hyperstack::Internal::Component::HAMLElementInstanceMethods
+      end
+    end
+  end
+  it "can add class names by the haml .class notation" do
+    mount 'Foo' do
+      module Mod
+        class Bar
+          include Hyperstack::Component
+          collect_other_params_as :attributes
+          def render
+            "a man walks into a bar".span(params.attributes)
+          end
+        end
+      end
+      class Foo < HyperComponent
+        def render
+          div.div_class do
+            Mod::Bar().the_class.other_class
+          end
+        end
+      end
+    end
+    expect(page.body).to include('<div class="div-class"><span class="other-class the-class">a man walks into a bar</span></div>')
+  end
+
+  it 'redefines `p` to make method missing work' do
+    mount 'Foo' do
+      class Foo
+        include Hyperstack::Component
+
+        def render
+          DIV {
+            p(class_name: 'foo')
+            p {}
+            div { 'lorem ipsum' }
+            p(id: '10')
+          }
+        end
+      end
+    end
+    expect(page.body).to include('<div><p class="foo"></p><p></p><div>lorem ipsum</div><p id="10"></p></div>')
+  end
+
+  it 'only overrides `p` in render context' do
+    mount 'Foo' do
+      class Foo
+        include Hyperstack::Component
+
+        def self.result
+          @@result ||= 'ooopsy'
+        end
+
+        def self.result_two
+          @@result_two ||= 'ooopsy'
+        end
+
+        before_mount do
+          @@result = p 'first'
+        end
+
+        after_mount do
+          @@result_two = p 'second'
+        end
+
+        def render
+          p do
+            'third'
+          end
+        end
+      end
+    end
+    expect_evaluate_ruby('Kernel.p "first"').to eq('first')
+    expect_evaluate_ruby('p "second"').to eq('second')
+    expect_evaluate_ruby('Foo.result').to eq('first')
+    expect_evaluate_ruby('Foo.result_two').to eq('second')
+    expect(page.body[-40..-10]).to include("<p>third</p>")
+    expect(page.body[-40..-10]).not_to include("<p>first</p>")
+  end
+end

ruby/hyper-spec/lib/hyper-spec/unparser_patch.rb

@@ -0,0 +1,10 @@
+module Unparser
+  class Emitter
+    # Emitter for send
+    class Send < self
+      def local_variable_clash?
+        selector =~ /^[A-Z]/ || local_variable_scope.local_variable_defined_for_node?(node, selector)
+      end
+    end
+  end
+end