implementing page#forms and fields

main.cr

@@ -3,8 +3,8 @@ require "./src/mechanize.cr"
 agent = Mechanize.new
 agent.request_headers = HTTP::Headers{"Foo" => "Bar"}
 params = {"hoge" => "hoge"}
-page = agent.get("https://kowabana.jp/users/sign_in/", params: params)
-page.forms
+page = agent.get("http://example.com/", params: params)
+form = page.forms[0]
 #query = {"foo" => "foo_value", "bar" => "bar_value"}
 #page = agent.post("http://example.com/", query: query)
 #puts page.code

src/mechanize/form.cr

@@ -51,7 +51,9 @@ class MechanizeCr::Form
   def parse
     @fields = Array(MechanizeCr::FormContent::Field).new
     @checkboxes = Array(MechanizeCr::FormContent::CheckBox).new
-    @node.css("input").not_nil!.each do |node|
+    @node.css("input").not_nil!.each do |html_node|
+      html_node = html_node.as(Myhtml::Node)
+      @fields << MechanizeCr::FormContent::Field.new(html_node)
     end
   end
 
@@ -61,4 +63,24 @@ class MechanizeCr::Form
       acc + URI::Params.encode(hash) + '&'
     end.rchop
   end
+
+  def fields_with(criteria)
+    value = Hash(String,String).new
+    if String === criteria
+      value = {"name" => criteria}
+    else
+      # TODO
+      # when args whose type isn't String is given
+    end
+    fields.select do |field|
+      value.all? do |k,v|
+        v === field.name
+      end
+    end
+  end
+
+  def field_with(criteria)
+    f = fields_with(criteria)
+    f.empty? ? Array(MechanizeCr::FormContent::Field).new : f.first
+  end
 end

src/mechanize/node.cr

@@ -13,4 +13,5 @@ struct Myhtml::Node
   delegate :[], to: attributes
   delegate :[]=, to: attributes
   delegate :[]?, to: attributes
+  delegate :fetch, to: attributes
 end

src/mechanize/page.cr

@@ -16,16 +16,10 @@ class MechanizeCr::Page < MechanizeCr::File
   end
 
   def forms
-    #@forms ||= css("form").map do |html_form|
-    #  form = Mechanize::Form.new(html_form, @mech, self)
-    #  form.attributes["action"]# ||= @uri.to_s
-    #  form
-    #end
-
-    forms = css("form").each do |html_form|
+    forms = css("form").map do |html_form|
       form = MechanizeCr::Form.new(html_form)
-      puts form.action# ||= @uri.to_s
+      form.action ||= @uri.to_s
       form
-    end
+    end.to_a
   end
 end