module LazyResource
  module Attributes
    extend ActiveSupport::Concern
    include ActiveModel::Dirty

    module ClassMethods
      def attribute(name, type, options={})
        attributes[name] = { :type => type, :options => options }

        create_getter(name, type, options) unless options[:skip_getter]
        create_setter(name, type, options) unless options[:skip_setter]
        create_question(name, type, options) unless options[:skip_question] || options[:skip_getter]

        @attribute_methods_generated = false
        define_attribute_methods [name]
      end

      def fetch_all
        self.resource_queue.send_to_request_queue! if self.respond_to?(:resource_queue)
        self.request_queue.run if self.respond_to?(:request_queue) && self.request_queue.items_queued?
      end

      def attributes
        @attributes ||= {}
      end

      def primary_key_name
        @primary_key_name ||= 'id'
      end

      def primary_key_name=(pk)
        @primary_key_name = pk
      end

      attr_writer :element_name
      def element_name
        @element_name ||= model_name.element
      end

      attr_writer :collection_name
      def collection_name
        @collection_name ||= ActiveSupport::Inflector.pluralize(element_name)
      end

      protected
      def create_setter(name, type, options={})
        class_eval <<-RUBY, __FILE__, __LINE__ + 1
          def #{name}=(value)
            self.class.fetch_all if !fetched?

            #{name}_will_change! unless @#{name} == value || (!fetched? && persisted?)
            @#{name} = value
          end
        RUBY
      end

      def create_getter(name, type, options={})
        line = __LINE__ + 2
        method = <<-RUBY
          def #{name}
            self.class.fetch_all if !fetched
            raise self.request_error if self.request_error.present?
        RUBY

        route = options[:using] || options[:route]
        if options[:using]
          LazyResource.deprecate("Attribute option :using is deprecated. Please use :route instead.", __FILE__, __LINE__)
        end

        if route.is_a?(Proc)
          route_method_name = "_#{name}_route".to_sym
          define_method(route_method_name, route)
          protected(route_method_name)
          route = route_method_name
        end

        if type.is_a?(Array) && type.first.include?(LazyResource::Resource)
          if route.nil?
            method << <<-RUBY
              if @#{name}.nil?
                @#{name} = #{type.first}.where(:"\#{self.class.element_name}_id" => self.primary_key)
              end
            RUBY
          else
            method << <<-RUBY
              if @#{name}.nil?
                route = self.respond_to?("#{route}") ? self.send("#{route}") : "#{route}"
                route = route.is_a?(Proc) ? route.call : route
                @#{name} = #{type.first}.where(:"\#{self.class.element_name}_id" => self.primary_key, :_route => route)
              end

              @#{name}
            RUBY
          end
        elsif type.include?(LazyResource::Resource)
          if route.nil?
            method << <<-RUBY
              if @#{name}.nil?
                @#{name} = #{type}.where(:"\#{self.class.element_name}_id" => self.primary_key)
              end
            RUBY
          else
            method << <<-RUBY
              if @#{name}.nil?
                route = self.respond_to?("#{route}") ? self.send("#{route}") : "#{route}"
                route = route.is_a?(Proc) ? route.call : route
                @#{name} = #{type}.where(:"\#{self.class.element_name}_id" => self.primary_key, :_route => route)
              end

              @#{name}
            RUBY
          end
        end

        method << <<-RUBY
            @#{name}
          end
        RUBY

        class_eval method, __FILE__, line
      end

      def create_question(name, type, options={})
        class_eval <<-RUBY, __FILE__, __LINE__ + 1
          def #{name}?
            !!self.#{name}
          end
        RUBY
      end
    end

    def primary_key
      self.send(self.class.primary_key_name)
    end

    included do
      extend ActiveModel::Naming
    end
  end
end