redmineup 1.0.2

data/lib/redmineup/acts_as_list/list.rb

@@ -0,0 +1,282 @@
+module Redmineup
+  module ActsAsList
+    module List
+      def self.included(base)
+        base.extend(ClassMethods)
+      end
+
+      # This +acts_as+ extension provides the capabilities for sorting and reordering a number of objects in a list.
+      # The class that has this specified needs to have a +position+ column defined as an integer on
+      # the mapped database table.
+      #
+      # Todo list example:
+      #
+      #   class TodoList < ActiveRecord::Base
+      #     has_many :todo_items, :order => "position"
+      #   end
+      #
+      #   class TodoItem < ActiveRecord::Base
+      #     belongs_to :todo_list
+      #     acts_as_list :scope => :todo_list
+      #   end
+      #
+      #   todo_list.first.move_to_bottom
+      #   todo_list.last.move_higher
+      module ClassMethods
+        # Configuration options are:
+        #
+        # * +column+ - specifies the column name to use for keeping the position integer (default: +position+)
+        # * +scope+ - restricts what is to be considered a list. Given a symbol, it'll attach <tt>_id</tt>
+        #   (if it hasn't already been added) and use that as the foreign key restriction. It's also possible
+        #   to give it an entire string that is interpolated if you need a tighter scope than just a foreign key.
+        #   Example: <tt>acts_as_list :scope => 'todo_list_id = #{todo_list_id} AND completed = 0'</tt>
+        def up_acts_as_list(options = {})
+
+          configuration = { :column => "position", :scope => "1 = 1" }
+          configuration.update(options) if options.is_a?(Hash)
+
+          configuration[:scope] = "#{configuration[:scope]}_id".intern if configuration[:scope].is_a?(Symbol) && configuration[:scope].to_s !~ /_id$/
+
+          if configuration[:scope].is_a?(Symbol)
+            scope_condition_method = %(
+              def scope_condition
+                if #{configuration[:scope].to_s}.nil?
+                  "#{configuration[:scope].to_s} IS NULL"
+                else
+                  "#{configuration[:scope].to_s} = \#{#{configuration[:scope].to_s}}"
+                end
+              end
+            )
+          else
+            scope_condition_method = "def scope_condition() \"#{configuration[:scope]}\" end"
+          end
+
+          class_eval <<-EOV
+            include Redmineup::ActsAsList::List::InstanceMethods
+
+            def up_acts_as_list_class
+              ::#{self.name}
+            end
+
+            def position_column
+              '#{configuration[:column]}'
+            end
+
+            #{scope_condition_method}
+
+            before_destroy :remove_from_list
+            before_create  :add_to_list_bottom
+          EOV
+        end
+      end
+
+      # All the methods available to a record that has had <tt>acts_as_list</tt> specified. Each method works
+      # by assuming the object to be the item in the list, so <tt>chapter.move_lower</tt> would move that chapter
+      # lower in the list of all chapters. Likewise, <tt>chapter.first?</tt> would return +true+ if that chapter is
+      # the first in the list of all chapters.
+      module InstanceMethods
+        # Insert the item at the given position (defaults to the top position of 1).
+        def insert_at(position = 1)
+          insert_at_position(position)
+        end
+
+        # Swap positions with the next lower item, if one exists.
+        def move_lower
+          return unless lower_item
+
+          up_acts_as_list_class.transaction do
+            lower_item.decrement_position
+            increment_position
+          end
+        end
+
+        # Swap positions with the next higher item, if one exists.
+        def move_higher
+          return unless higher_item
+
+          up_acts_as_list_class.transaction do
+            higher_item.increment_position
+            decrement_position
+          end
+        end
+
+        # Move to the bottom of the list. If the item is already in the list, the items below it have their
+        # position adjusted accordingly.
+        def move_to_bottom
+          return unless in_list?
+          up_acts_as_list_class.transaction do
+            decrement_positions_on_lower_items
+            assume_bottom_position
+          end
+        end
+
+        # Move to the top of the list. If the item is already in the list, the items above it have their
+        # position adjusted accordingly.
+        def move_to_top
+          return unless in_list?
+          up_acts_as_list_class.transaction do
+            increment_positions_on_higher_items
+            assume_top_position
+          end
+        end
+
+        # Move to the given position
+        def move_to=(pos)
+          case pos.to_s
+          when 'highest'
+            move_to_top
+          when 'higher'
+            move_higher
+          when 'lower'
+            move_lower
+          when 'lowest'
+            move_to_bottom
+          end
+          reset_positions_in_list
+        end
+
+        def reset_positions_in_list
+          up_acts_as_list_class.where(scope_condition).reorder("#{position_column} ASC, id ASC").each_with_index do |item, i|
+            unless item.send(position_column) == (i + 1)
+              up_acts_as_list_class.where({:id => item.id}).
+                update_all({position_column => (i + 1)})
+            end
+          end
+        end
+
+        # Removes the item from the list.
+        def remove_from_list
+          if in_list?
+            decrement_positions_on_lower_items
+            update_attribute position_column, nil
+          end
+        end
+
+        # Increase the position of this item without adjusting the rest of the list.
+        def increment_position
+          return unless in_list?
+          update_attribute position_column, self.send(position_column).to_i + 1
+        end
+
+        # Decrease the position of this item without adjusting the rest of the list.
+        def decrement_position
+          return unless in_list?
+          update_attribute position_column, self.send(position_column).to_i - 1
+        end
+
+        # Return +true+ if this object is the first in the list.
+        def first?
+          return false unless in_list?
+          self.send(position_column) == 1
+        end
+
+        # Return +true+ if this object is the last in the list.
+        def last?
+          return false unless in_list?
+          self.send(position_column) == bottom_position_in_list
+        end
+
+        # Return the next higher item in the list.
+        def higher_item
+          return nil unless in_list?
+          up_acts_as_list_class.where(
+            "#{scope_condition} AND #{position_column} = #{(send(position_column).to_i - 1).to_s}"
+          ).first
+        end
+
+        # Return the next lower item in the list.
+        def lower_item
+          return nil unless in_list?
+          up_acts_as_list_class.where(
+            "#{scope_condition} AND #{position_column} = #{(send(position_column).to_i + 1).to_s}"
+          ).first
+        end
+
+        # Test if this record is in a list
+        def in_list?
+          !send(position_column).nil?
+        end
+
+        private
+
+        def add_to_list_top
+          increment_positions_on_all_items
+        end
+
+        def add_to_list_bottom
+          self[position_column] = bottom_position_in_list.to_i + 1
+        end
+
+        # Overwrite this method to define the scope of the list changes
+        def scope_condition() "1" end
+
+        # Returns the bottom position number in the list.
+        #   bottom_position_in_list    # => 2
+        def bottom_position_in_list(except = nil)
+          item = bottom_item(except)
+          item ? item.send(position_column) : 0
+        end
+
+        # Returns the bottom item
+        def bottom_item(except = nil)
+          conditions = scope_condition
+          conditions = "#{conditions} AND #{self.class.primary_key} != #{except.id}" if except
+          up_acts_as_list_class.where(conditions).reorder("#{position_column} DESC").first
+        end
+
+        # Forces item to assume the bottom position in the list.
+        def assume_bottom_position
+          update_attribute(position_column, bottom_position_in_list(self).to_i + 1)
+        end
+
+        # Forces item to assume the top position in the list.
+        def assume_top_position
+          update_attribute(position_column, 1)
+        end
+
+        # This has the effect of moving all the higher items up one.
+        def decrement_positions_on_higher_items(position)
+          up_acts_as_list_class.
+            where("#{scope_condition} AND #{position_column} <= #{position}").
+            update_all("#{position_column} = (#{position_column} - 1)")
+        end
+
+        # This has the effect of moving all the lower items up one.
+        def decrement_positions_on_lower_items
+          return unless in_list?
+          up_acts_as_list_class.
+            where("#{scope_condition} AND #{position_column} > #{send(position_column).to_i}").
+            update_all("#{position_column} = (#{position_column} - 1)")
+        end
+
+        # This has the effect of moving all the higher items down one.
+        def increment_positions_on_higher_items
+          return unless in_list?
+          up_acts_as_list_class.
+            where("#{scope_condition} AND #{position_column} < #{send(position_column).to_i}").
+            update_all("#{position_column} = (#{position_column} + 1)")
+        end
+
+        # This has the effect of moving all the lower items down one.
+        def increment_positions_on_lower_items(position)
+          up_acts_as_list_class.
+            where("#{scope_condition} AND #{position_column} >= #{position}").
+            update_all("#{position_column} = (#{position_column} + 1)")
+        end
+
+        # Increments position (<tt>position_column</tt>) of all items in the list.
+        def increment_positions_on_all_items
+          up_acts_as_list_class.
+            where("#{scope_condition}").
+            update_all("#{position_column} = (#{position_column} + 1)")
+        end
+
+        def insert_at_position(position)
+          remove_from_list
+          increment_positions_on_lower_items(position)
+          self.update_attribute(position_column, position)
+        end
+      end
+    end
+  end
+end

data/lib/redmineup/acts_as_priceable/up_acts_as_priceable.rb

@@ -0,0 +1,33 @@
+module Redmineup
+  module ActsAsPriceable
+    module Base
+      def up_acts_as_priceable(*args)
+        priceable_options = args
+        priceable_options << :price if priceable_options.empty?
+        priceable_methods = ""
+        priceable_options.each do |priceable_attr|
+          priceable_methods << %(
+            def #{priceable_attr.to_s}_to_s
+              object_price(
+                self,
+                :#{priceable_attr},
+                {
+                  :decimal_mark => Redmineup::Settings::Money.decimal_separator,
+                  :thousands_separator => Redmineup::Settings::Money.thousands_delimiter
+                }
+              ) if self.respond_to?(:#{priceable_attr})
+            end
+          )
+        end
+
+        class_eval <<-EOV
+          include Redmineup::MoneyHelper
+
+          #{priceable_methods}
+        EOV
+      end
+    end
+  end
+end
+
+ActiveRecord::Base.extend Redmineup::ActsAsPriceable::Base

data/lib/redmineup/acts_as_taggable/tag.rb

@@ -0,0 +1,81 @@
+module Redmineup
+  module ActsAsTaggable #:nodoc:
+    class Tag < ActiveRecord::Base #:nodoc:
+      has_many :taggings, :dependent => :destroy
+
+      validates_presence_of :name
+      validates :name, :uniqueness => { :message => " not uniq tag" }
+      validates :name, :presence => true
+      cattr_accessor :destroy_unused
+      self.destroy_unused = false
+
+      attr_accessible :name if defined?(ActiveModel::MassAssignmentSecurity)
+
+      # LIKE is used for cross-database case-insensitivity
+      def self.find_or_create_with_like_by_name(name)
+        # find(:first, :conditions => ["name LIKE ?", name]) || create(:name => name)
+        where("LOWER(name) LIKE LOWER(?)", name).first || create(:name => name)
+      end
+
+      def ==(object)
+        super || (object.is_a?(Tag) && name == object.name)
+      end
+
+      def to_s
+        name
+      end
+
+      def count
+        read_attribute(:count).to_i
+      end
+
+      class << self
+        # Calculate the tag counts for all tags.
+        #  :start_at - Restrict the tags to those created after a certain time
+        #  :end_at - Restrict the tags to those created before a certain time
+        #  :conditions - A piece of SQL conditions to add to the query
+        #  :limit - The maximum number of tags to return
+        #  :order - A piece of SQL to order by. Eg 'count desc' or 'taggings.created_at desc'
+        #  :at_least - Exclude tags with a frequency less than the given value
+        #  :at_most - Exclude tags with a frequency greater than the given value
+        def counts(options = {})
+          opt = options_for_counts(options)
+          select(opt[:select]).where(opt[:conditions]).joins(opt[:joins]).group(opt[:group])
+        end
+
+        def options_for_counts(options = {})
+          options.assert_valid_keys :start_at, :end_at, :conditions, :at_least, :at_most, :order, :limit, :joins
+          options = options.dup
+
+          start_at = sanitize_sql(["#{Tagging.table_name}.created_at >= ?", options.delete(:start_at)]) if options[:start_at]
+          end_at = sanitize_sql(["#{Tagging.table_name}.created_at <= ?", options.delete(:end_at)]) if options[:end_at]
+
+          conditions = [
+            (sanitize_sql(options.delete(:conditions)) if options[:conditions]),
+            start_at,
+            end_at
+          ].compact
+
+          conditions = conditions.join(' AND ') if conditions.any?
+
+          joins = ["INNER JOIN #{Tagging.table_name} ON #{Tag.table_name}.id = #{Tagging.table_name}.tag_id"]
+          joins << options.delete(:joins) if options[:joins]
+
+          at_least  = sanitize_sql(['COUNT(*) >= ?', options.delete(:at_least)]) if options[:at_least]
+          at_most   = sanitize_sql(['COUNT(*) <= ?', options.delete(:at_most)]) if options[:at_most]
+          having    = 'COUNT(*) > 0'
+          having    = [having, at_least, at_most].compact.join(' AND ')
+          group_by  = "#{Tag.table_name}.id, #{Tag.table_name}.name"
+          # group_by << " AND #{having}" unless having.blank?
+
+          { :select     => "#{Tag.table_name}.id, #{Tag.table_name}.name, COUNT(*) AS count",
+            :joins      => joins.join(" "),
+            :conditions => conditions,
+            :group      => group_by,
+            :having     => having
+          }.update(options)
+        end
+      end
+    end
+  end
+end

data/lib/redmineup/acts_as_taggable/tag_list.rb

@@ -0,0 +1,111 @@
+module Redmineup
+  module ActsAsTaggable #:nodoc:
+    class TagList < Array #:nodoc:
+      cattr_accessor :delimiter
+      self.delimiter = ','
+
+      def initialize(*args)
+        add(*args)
+      end
+
+      # Add tags to the tag_list. Duplicate or blank tags will be ignored.
+      #
+      #   tag_list.add("Fun", "Happy")
+      #
+      # Use the <tt>:parse</tt> option to add an unparsed tag string.
+      #
+      #   tag_list.add("Fun, Happy", :parse => true)
+      def add(*names)
+        extract_and_apply_options!(names)
+        concat(names)
+        clean!
+        self
+      end
+
+      # Remove specific tags from the tag_list.
+      #
+      #   tag_list.remove("Sad", "Lonely")
+      #
+      # Like #add, the <tt>:parse</tt> option can be used to remove multiple tags in a string.
+      #
+      #   tag_list.remove("Sad, Lonely", :parse => true)
+      def remove(*names)
+        extract_and_apply_options!(names)
+        delete_if { |name| names.include?(name) }
+        self
+      end
+
+      # Toggle the presence of the given tags.
+      # If a tag is already in the list it is removed, otherwise it is added.
+      def toggle(*names)
+        extract_and_apply_options!(names)
+
+        names.each do |name|
+          include?(name) ? delete(name) : push(name)
+        end
+
+        clean!
+        self
+      end
+
+      # Transform the tag_list into a tag string suitable for edting in a form.
+      # The tags are joined with <tt>TagList.delimiter</tt> and quoted if necessary.
+      #
+      #   tag_list = TagList.new("Round", "Square,Cube")
+      #   tag_list.to_s # 'Round, "Square,Cube"'
+      def to_s
+        clean!
+
+        map do |name|
+          name.include?(delimiter) ? "\"#{name}\"" : name
+        end.join(delimiter[-1] == (' ') ? delimiter : "#{delimiter} ")
+      end
+
+     private
+      # Remove whitespace, duplicates, and blanks.
+      def clean!
+        reject!(&:blank?)
+        map!(&:strip)
+        uniq!
+      end
+
+      def extract_and_apply_options!(args)
+        options = args.last.is_a?(Hash) ? args.pop : {}
+        options.assert_valid_keys :parse
+
+        args.map! { |a| self.class.from(a) } if options[:parse]
+
+        args.flatten!
+      end
+
+      class << self
+        # Returns a new TagList using the given tag string.
+        #
+        #   tag_list = TagList.from("One , Two,  Three")
+        #   tag_list # ["One", "Two", "Three"]
+        def from(source)
+          tag_list = new
+
+          case source
+          when Array
+            tag_list.add(source)
+          else
+            string = source.to_s.dup
+
+            # Parse the quoted tags
+            [
+              /\s*#{delimiter}\s*(['"])(.*?)\1\s*/,
+              /^\s*(['"])(.*?)\1\s*#{delimiter}?/
+            ].each do |re|
+              string.gsub!(re) { tag_list << $2; "" }
+            end
+
+            tag_list.add(string.split(delimiter))
+          end
+
+          tag_list
+        end
+      end
+    end
+  end
+end

data/lib/redmineup/acts_as_taggable/tagging.rb

@@ -0,0 +1,16 @@
+module Redmineup
+  module ActsAsTaggable #:nodoc:
+    class Tagging < ActiveRecord::Base #:nodoc:
+      belongs_to :tag
+      belongs_to :taggable, :polymorphic => true
+
+      after_destroy :destroy_tag_if_unused
+
+      private
+
+      def destroy_tag_if_unused
+        tag.destroy if Tag.destroy_unused && tag.taggings.count.zero?
+      end
+    end
+  end
+end