module Pakyow
  module Presenter
    class Attribute
      @@types = {
        :hash => [:style],
        :bool => [:selected, :checked, :disabled, :readonly, :multiple],
        :mult => [:class]
      }

      def initialize(name, raw_value, control, doc)
        @type = type_of_attribute(name)
        @name = name
        @value = deconstruct_attribute_value_of_type(raw_value, @type)
        @control = control
        @doc = doc
      end

      def set(value)
        value = Array(value) if @type == :mult && !value.is_a?(Proc)
        @value = value
        update_value
      end

      # ensures that the value passed is contained in `value`
      def ensure(value)
        case @type
        when :mult
          @value << value unless @value.include?(value)
        when :bool
          @value = value
        else
          @value << value if @value.nil? || !@value.match(value)
        end

        update_value
      end

      # opposite of `ensure`
      def deny(value)
        case @type
        when :mult
          @value.delete(value.to_s)
        when :bool
          @value = !value
        else
          @value.gsub!(value.to_s, '')
        end

        update_value
      end

      def include?(attribute)
        @doc.has_attribute?(attribute)
      end

      # passes method call to `value`
      def method_missing(method, *args)
        ret = @value.send(method, *args)
        update_value
        return ret
      end

      # returns the full string value
      def to_s
        value = @value
        value = value.call(deconstruct_attribute_value_of_type(@doc.get_attribute(@name), @type)) if value.is_a? Proc
        value = construct_attribute_value_of_type(value, @type, @name)

        return value
      end

      def value
        @value
      end

      def ancestors
        self.class.ancestors
      end

      private

      def update_value
        updated_value = to_s

        if updated_value.nil?
          @control.remove_attribute(@name)
        else
          @control.update_value_for_attribute(@name, updated_value)
        end
      end

      def type_of_attribute(attribute)
        attribute = attribute.to_sym

        return :bool  if @@types[:bool].include?(attribute)
        return :mult if @@types[:mult].include?(attribute)
        return :hash     if @@types[:hash].include?(attribute)
        return :single
      end

      def deconstruct_attribute_value_of_type(value, type)
        return value ? value : ''             if type == :single
        return value ? value.split(' ') : []  if type == :mult
        return !value.nil?                    if type == :bool
        return value_to_hash(value)           if type == :hash
      end

      def construct_attribute_value_of_type(value, type, attribute)
        return value if type == :single
        return value.join(' ') if type == :mult
        return value ? attribute : nil if type == :bool
        return value.to_a.map {|a| a.join(':')}.join(';') if type == :hash
      end

      def value_to_hash(value)
        return {} if value.nil?

        value.split(';').inject({}) {|h, style|
          k,v = style.split(':')
          h[k.to_sym] = v
          h
        }
      end
    end

    class Attributes
      def initialize(doc)
        @doc = doc
        @attributes = {}
      end

      def method_missing(method, *args)
        method_str = method.to_s

        if method_str[0..1] == '[]'
          attribute = args[0]
          value = args[1]
        else
          attribute = method_str.gsub('=', '')
          value = args[0]
        end

        if method_str.include?('=')
          self.set_attribute(attribute, value)
        else
          self.get_attribute(attribute)
        end
      end

      def class(*args)
        method_missing(:class, *args)
      end

      def id(*args)
        method_missing(:id, *args)
      end

      def update_value_for_attribute(attribute, value)
        @doc.update_attribute(attribute, value)
      end

      def remove_attribute(attribute)
        @doc.remove_attribute(attribute)
      end

      protected

      def set_attribute(attribute, value)
        get_attribute(attribute).set(value)
      end

      def get_attribute(attribute)
        unless a = @attributes[attribute]
          a = Attribute.new(attribute, @doc.get_attribute(attribute), self, @doc)
        end

        return a
      end
    end

    class AttributesCollection
      include Enumerable

      def initialize
        @attributes = []
      end

      def <<(attributes)
        if attributes.is_a?(Attribute) || attributes.is_a?(Attributes)
          @attributes << attributes
        else
          method_missing(:<<, *attributes)
        end

        self
      end

      def each
        @attributes.each { |a| yield(a) }
      end

      def method_missing(method, *args)
        @attributes.inject(AttributesCollection.new) { |coll, a|
          coll << a.send(method, *args)
        }
      end

      def to_s
        @attributes.inject([]) { |arr, a| arr << a.to_s }
      end

      def class(*args)
        method_missing(:class, *args)
      end

      def id(*args)
        method_missing(:id, *args)
      end
    end
  end
end