# Sequel plugin: AuraSluggable
# Implemented for models that are to be accessible via a slug URL.
#
# ## Description
#    This automatically gives models the ability to be accessed via a
#    slug URL (like `/products/boots`).
#
# #### How to use
# Use `plugin :aura_sluggable`.
#
#     class Book < Sequel::Model
#       plugin :aura_sluggable
#
#       # ...
#     end
#
# #### Database setup
# Add `String :slug` to your schema.
#
#     database.create_table :books do
#       String :slug
#       # ...
#     end
#
module Sequel
  module Plugins
    module AuraSluggable
      def self.configure(model, opts={})
        Aura.slugs.register(model)
      end

      module InstanceMethods
        def sluggable?
          true
        end

        # Method: path (AuraSluggable)
        # Returns the URL path.
        #
        def path(*a)
          return super  if slug.nil?
          ret = '/' + (slug.to_s)
          ret = "#{parent.path}#{ret}"  if respond_to?(:parent) && parent.respond_to?(:path)
          ret += "/#{a.shift.to_s}"  if a.first.is_a?(String) || a.first.is_a?(Symbol)
          ret += "?" + Aura::Utils.query_string(a.shift)  if a.first.is_a?(Hash)
          ret
        end

        # Method: slugify (AuraSluggable)
        # Returns a unique slug for the item.
        #
        # ##  Example
        #     b = Book.new
        #     b.title = 'Darkly Dreaming Dexter'
        #     
        #     b.slugify                       #=> "darkly-dreaming-dexter"
        #     b.slugify("Dexter by Design")   #=> "dexter-by-design"
        #
        def slugify(str=title)
          str = str.to_s
          str = str.scan(/[A-Za-z0-9]+/).join('-').downcase
          i = 1

          loop do
            slug = str
            slug = "#{str}-#{i}"  if i>1

            item = self.class.find(:slug => slug)
            return slug  if item.nil? || item == self
            i += 1
          end
        end

        def validate
          self.slug = self.slugify  if self.slug.nil? or self.slug.empty?
          super
        end
      end

      module ClassMethods
        def sluggable?
          true
        end

        # Class method: get_by_slug (AuraSluggable)
        # Finds an item by a given slug.
        #
        # ##  Example
        #     b = Book.get_by_slug('darkly-dreaming-dexter')
        #
        def get_by_slug(slug, parent=nil)
          pid = parent.nil? ? nil : parent.id

          if columns.include?(:parent_id)
            find(:slug => slug, :parent_id => pid)
          else
            find(:slug => slug)
          end
        end
      end
    end
  end
end