wulffeld_slug 0.0.1

data/Rakefile

@@ -0,0 +1,17 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name           = "wulffeld_slug"
+    gem.summary        = "Slug generation."
+    gem.description    = ""
+    gem.email          = "martin@wulffeld.org"
+    gem.homepage       = "http://www.wulffeld.org/"
+    gem.authors        = ["Martin Moen Wulffeld"]
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end

data/VERSION

@@ -0,0 +1 @@
+0.0.1

data/lib/wulffeld_slug/slug.rb

@@ -0,0 +1,16 @@
+module WulffeldMisc
+  module Slug
+    def has_slug(fields, options = {})
+      class_attribute :slug_config
+      self.slug_config = options.merge(:fields => fields)
+      
+      include WulffeldMisc::SlugInclude
+    end
+  end
+end
+
+module ActiveRecord
+  class Base
+    extend WulffeldMisc::Slug
+  end
+end

data/lib/wulffeld_slug/slug_include.rb

@@ -0,0 +1,138 @@
+module WulffeldMisc
+  module SlugInclude
+    def self.included(base)
+      base.class_eval do
+        if self.slug_config[:mongo]
+          field :slug
+        end
+          
+        validates_presence_of :slug
+
+        before_validation :on => :create do
+          cb_make_slug
+        end
+      end
+    end
+    
+    def to_param
+      slug
+    end
+    
+    # Can override this.
+    def slug_unique?(slug)
+      !self.class.where(:slug => slug).first
+    end
+
+    def cb_make_slug
+      a = [*send(slug_config[:fields])].compact.map {|f| f.is_a?(String) ? f : send(f) }.flatten
+      return if a.blank?
+      self.slug = to_unique_slug(a.join('-')) if slug.blank?
+    end
+
+    def to_unique_slug(s, n=nil)
+      loop do
+        slug = to_slug([s,n].compact.join('-'))
+        return slug if slug_unique?(slug)
+
+        # First loop we do some optimistic searching.
+        if n.nil?
+          b = 512
+          last_b = nil
+          loop do
+            slug = to_slug([s, b].compact.join('-'))
+            if slug_unique?(slug) || b < 1
+              last_b = b
+              break if b < 1
+            else
+              n = last_b
+              break
+            end
+            
+            b /= 2
+          end
+        end
+        n ||= 0
+        n += 1
+      end
+    end
+
+    # Use dashes.
+    # http://www.mattcutts.com/blog/dashes-vs-underscores/
+    def to_slug(s)
+      s.strip!
+
+      # Blow away apostrophes
+      s.gsub! /['`]/,""
+
+      orig = s
+
+      # @ --> at, and & --> and
+      s.gsub! /\s*@\s*/, " at "
+      s.gsub! /\s*&\s*/, " and "
+
+      [
+        [/[+]/, 'plus'],
+        [/[ÀÁÂÃÅĀĂĄǍ]/, 'A'],
+        [/[āăąàáâãǎ]/, 'a'],
+        [/[ĆĈĊČÇ]/, 'C'],
+        [/[ćĉċčç]/, 'c'],
+        [/[ĎĐ]/, 'D'],
+        [/[ďđ]/, 'd'],
+        [/[ĒĔĖĘĚÈÉÊË]/, 'E'],
+        [/[èéêëēĕėęě]/, 'e'],
+        [/[ĜĞĠĢǤǦǴ]/, 'G'],
+        [/[ĝğġģǥǧ]/, 'g'],
+        [/[Ĥ]/, 'H'],
+        [/[ĥĦħ]/, 'h'],
+        [/[ĨĪĬĮİǏÌÍÎÏ]/, 'I'],
+        [/[ĩīĭįıǐìíîï]/, 'i'],
+        [/[Ĵ]/, 'J'],
+        [/[ĵ]/, 'j'],
+        [/[ĶǨК]/, 'K'],
+        [/[ķĸǩ]/, 'k'],
+        [/[ĹĻĽĿŁ]/, 'L'],
+        [/[ĺļľŀł]/, 'l'],
+        [/[ŃŅŇŊÑǸП]/, 'N'],
+        [/[ńņňʼnŋñǹ]/, 'n'],
+        [/[ŌŎŐǑÒÓÔÕÖ]/, 'O'],
+        [/[ōŏőǒðòóôõ]/, 'o'],
+        [/[ŔŖŘ]/, 'R'],
+        [/[ŕŗř]/, 'r'],
+        [/[ŚŜŞŠ]/, 'S'],
+        [/[śŝşš]/, 's'],
+        [/[ŢŤŦ]/, 'T'],
+        [/[ţťŧ]/, 't'],
+        [/[ŨŪŬŮŰŲÙÚÛÜ]/, 'U'],
+        [/[ũūŭůűųùúûü]/, 'u'],
+        [/[Ŵ]/, 'W'],
+        [/[ŵ]/, 'w'],
+        [/[ŶŸÝ]/, 'Y'],
+        [/[ýÿŷ]/, 'y'],
+        [/[ŹŻŽ]/, 'Z'],
+        [/[źżž]/, 'z'],
+        [/[ǓǕǗǙǛ]/, 'U'],
+        [/[ǔǖǘǚǜ]/, 'u'],
+        [/[ǢÆǼ]/, 'AE'],
+        [/[ǣäæǽ]/, 'ae'],
+        [/[ØǾ]/, 'OE'],
+        [/[øǿö]/, 'oe'],
+        [/[ÄÅ]/, 'AA'],
+        [/[å]/, 'aa'],
+        [/[ǪǬ]/, 'O'],
+        [/[ǫǭ]/, 'o'],
+        [/[^a-zA-Z0-9]+/i, '-']
+      ].each do |regex, ch|
+        s.gsub! regex, ch
+      end
+
+      s.strip!
+      s = s.split('-').each { |word| word.sub!(/^[a-z]/) {|m| m.tr('a-z', 'A-Z')} }.join('-')
+      new_slug = s.blank? ? orig : s
+      if new_slug.length > 200
+        new_slug = new_slug[0..199]
+      else
+        new_slug
+      end
+    end
+  end
+end

data/lib/wulffeld_slug.rb

@@ -0,0 +1,2 @@
+require 'wulffeld_slug/slug'
+require 'wulffeld_slug/slug_include'

data/wulffeld_slug.gemspec

@@ -0,0 +1,41 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run 'rake gemspec'
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{wulffeld_slug}
+  s.version = "0.0.1"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Martin Moen Wulffeld"]
+  s.date = %q{2011-04-23}
+  s.description = %q{}
+  s.email = %q{martin@wulffeld.org}
+  s.extra_rdoc_files = [
+    "README"
+  ]
+  s.files = [
+    "README",
+    "Rakefile",
+    "VERSION",
+    "lib/wulffeld_slug.rb",
+    "lib/wulffeld_slug/slug.rb",
+    "lib/wulffeld_slug/slug_include.rb",
+    "wulffeld_slug.gemspec"
+  ]
+  s.homepage = %q{http://www.wulffeld.org/}
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.5.0}
+  s.summary = %q{Slug generation.}
+
+  if s.respond_to? :specification_version then
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::VERSION) >= Gem::Version.new('1.2.0') then
+    else
+    end
+  else
+  end
+end
+

metadata

@@ -0,0 +1,73 @@
+--- !ruby/object:Gem::Specification 
+name: wulffeld_slug
+version: !ruby/object:Gem::Version 
+  hash: 29
+  prerelease: 
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Martin Moen Wulffeld
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-04-23 00:00:00 +02:00
+default_executable: 
+dependencies: []
+
+description: ""
+email: martin@wulffeld.org
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README
+files: 
+- README
+- Rakefile
+- VERSION
+- lib/wulffeld_slug.rb
+- lib/wulffeld_slug/slug.rb
+- lib/wulffeld_slug/slug_include.rb
+- wulffeld_slug.gemspec
+has_rdoc: true
+homepage: http://www.wulffeld.org/
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.5.0
+signing_key: 
+specification_version: 3
+summary: Slug generation.
+test_files: []
+