SoundSoftware Code Site

# Redmine - project management software

# Copyright (C) 2006-2013  Jean-Philippe Lang

#

# This program is free software; you can redistribute it and/or

# modify it under the terms of the GNU General Public License

# as published by the Free Software Foundation; either version 2

# of the License, or (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

module Redmine

  module I18n

    def self.included(base)

      base.extend Redmine::I18n

    end

    def l(*args)

      case args.size

      when 1

        ::I18n.t(*args)

      when 2

        if args.last.is_a?(Hash)

          ::I18n.t(*args)

        elsif args.last.is_a?(String)

          ::I18n.t(args.first, :value => args.last)

        else

          ::I18n.t(args.first, :count => args.last)

        end

      else

        raise "Translation string with multiple values: #{args.first}"

      end

    end

    def l_or_humanize(s, options={})

      k = "#{options[:prefix]}#{s}".to_sym

      ::I18n.t(k, :default => s.to_s.humanize)

    end

    def l_hours(hours)

      hours = hours.to_f

      l((hours < 2.0 ? :label_f_hour : :label_f_hour_plural), :value => ("%.2f" % hours.to_f))

    end

    def ll(lang, str, value=nil)

      ::I18n.t(str.to_s, :value => value, :locale => lang.to_s.gsub(%r{(.+)\-(.+)$}) { "#{$1}-#{$2.upcase}" })

    end

    def format_date(date)

      return nil unless date

      options = {}

      options[:format] = Setting.date_format unless Setting.date_format.blank?

      options[:locale] = User.current.language unless User.current.language.blank?

      ::I18n.l(date.to_date, options)

    end

    def format_time(time, include_date = true)

      return nil unless time

      options = {}

      options[:format] = (Setting.time_format.blank? ? :time : Setting.time_format)

      options[:locale] = User.current.language unless User.current.language.blank?

      time = time.to_time if time.is_a?(String)

      zone = User.current.time_zone

      local = zone ? time.in_time_zone(zone) : (time.utc? ? time.localtime : time)

      (include_date ? "#{format_date(local)} " : "") + ::I18n.l(local, options)

    end

    def day_name(day)

      ::I18n.t('date.day_names')[day % 7]

    end

    def day_letter(day)

      ::I18n.t('date.abbr_day_names')[day % 7].first

    end

    def month_name(month)

      ::I18n.t('date.month_names')[month]

    end

    def valid_languages

      ::I18n.available_locales

    end

    # Returns an array of languages names and code sorted by names, example:

    # [["Deutsch", "de"], ["English", "en"] ...]

    #

    # The result is cached to prevent from loading all translations files.

    def languages_options

      ActionController::Base.cache_store.fetch "i18n/languages_options" do

        valid_languages.map {|lang| [ll(lang.to_s, :general_lang_name), lang.to_s]}.sort {|x,y| x.first <=> y.first }

      end      

    end

    def find_language(lang)

      @@languages_lookup = valid_languages.inject({}) {|k, v| k[v.to_s.downcase] = v; k }

      @@languages_lookup[lang.to_s.downcase]

    end

    def set_language_if_valid(lang)

      if l = find_language(lang)

        ::I18n.locale = l

      end

    end

    def current_language

      ::I18n.locale

    end

    # Custom backend based on I18n::Backend::Simple with the following changes:

    # * lazy loading of translation files

    # * available_locales are determined by looking at translation file names

    class Backend

      (class << self; self; end).class_eval { public :include }

      module Implementation

        include ::I18n::Backend::Base

        # Stores translations for the given locale in memory.

        # This uses a deep merge for the translations hash, so existing

        # translations will be overwritten by new ones only at the deepest

        # level of the hash.

        def store_translations(locale, data, options = {})

          locale = locale.to_sym

          translations[locale] ||= {}

          data = data.deep_symbolize_keys

          translations[locale].deep_merge!(data)

        end

        # Get available locales from the translations filenames

        def available_locales

          @available_locales ||= ::I18n.load_path.map {|path| File.basename(path, '.*')}.uniq.sort.map(&:to_sym)

        end

        # Clean up translations

        def reload!

          @translations = nil

          @available_locales = nil

          super

        end

        protected

        def init_translations(locale)

          locale = locale.to_s

          paths = ::I18n.load_path.select {|path| File.basename(path, '.*') == locale}

          load_translations(paths)

          translations[locale] ||= {}

        end

        def translations

          @translations ||= {}

        end

        # Looks up a translation from the translations hash. Returns nil if

        # eiher key is nil, or locale, scope or key do not exist as a key in the

        # nested translations hash. Splits keys or scopes containing dots

        # into multiple keys, i.e. <tt>currency.format</tt> is regarded the same as

        # <tt>%w(currency format)</tt>.

        def lookup(locale, key, scope = [], options = {})

          init_translations(locale) unless translations.key?(locale)

          keys = ::I18n.normalize_keys(locale, key, scope, options[:separator])

          keys.inject(translations) do |result, _key|

            _key = _key.to_sym

            return nil unless result.is_a?(Hash) && result.has_key?(_key)

            result = result[_key]

            result = resolve(locale, _key, result, options.merge(:scope => nil)) if result.is_a?(Symbol)

            result

          end

        end

      end

      include Implementation

      # Adds fallback to default locale for untranslated strings

      include ::I18n::Backend::Fallbacks

    end

  end

end

module ActiveRecord

  module Acts #:nodoc:

    module List #:nodoc:

      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 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 ActiveRecord::Acts::List::InstanceMethods

            def 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

          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

          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?

          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?

          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

          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)

              acts_as_list_class.update_all({position_column => (i + 1)}, {:id => item.id})

            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?

          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?

          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

            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)

            acts_as_list_class.update_all(

              "#{position_column} = (#{position_column} - 1)", "#{scope_condition} AND #{position_column} <= #{position}"

            )

          end

          # This has the effect of moving all the lower items up one.

          def decrement_positions_on_lower_items

            return unless in_list?

            acts_as_list_class.update_all(

              "#{position_column} = (#{position_column} - 1)", "#{scope_condition} AND #{position_column} > #{send(position_column).to_i}"

            )

          end

          # This has the effect of moving all the higher items down one.

          def increment_positions_on_higher_items

            return unless in_list?

            acts_as_list_class.update_all(

              "#{position_column} = (#{position_column} + 1)", "#{scope_condition} AND #{position_column} < #{send(position_column).to_i}"

            )

          end

          # This has the effect of moving all the lower items down one.

          def increment_positions_on_lower_items(position)

            acts_as_list_class.update_all(

              "#{position_column} = (#{position_column} + 1)", "#{scope_condition} AND #{position_column} >= #{position}"

           )

          end

          # Increments position (<tt>position_column</tt>) of all items in the list.

          def increment_positions_on_all_items

            acts_as_list_class.update_all(

              "#{position_column} = (#{position_column} + 1)",  "#{scope_condition}"

            )

          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