clot_engine 1.2

data/lib/autotest/discover.rb

@@ -0,0 +1,5 @@
+$:.push(File.join(File.dirname(__FILE__), %w[.. .. rspec]))
+
+Autotest.add_discovery do
+  "rspec"
+end

data/lib/clot/active_record/droppable.rb

@@ -0,0 +1,22 @@
+module Clot
+  module ActiveRecord #:nodoc:
+    module Droppable
+
+      def get_drop_class(class_obj)
+        begin
+          drop_string = class_obj.to_s + "Drop"
+          drop_class = drop_string.constantize
+          drop_class
+        rescue
+          get_drop_class class_obj.superclass
+        end
+      end
+
+      def to_liquid
+        drop_class = get_drop_class self.class
+        drop_class.new self
+      end
+
+    end
+  end
+end

data/lib/clot/base_drop.rb

@@ -0,0 +1,116 @@
+module Clot
+  module DropAssociation
+    def belongs_to(*args)
+      args.each do |sym|
+        belongs_to = %{
+        def #{sym}
+          @source.#{sym}
+        end
+        def #{sym}_id
+          @source.#{sym}_id
+        end
+        }
+        class_eval belongs_to
+      end
+    end
+
+    def has_many(*args)
+      args.each do |sym|
+        has_many = %{
+        def #{sym}
+          @source.#{sym}
+        end
+
+         def #{sym.to_s.singularize}_ids
+            @source.#{sym.to_s.singularize}_ids
+         end
+        }
+        class_eval has_many
+      end
+
+    end
+  end
+
+  class BaseDrop < Liquid::Drop
+    extend DropAssociation
+
+    def self.included
+      include Rails.application.routes.url_helpers
+    end
+
+    class_attribute :liquid_attributes
+    self.liquid_attributes = [:created_at, :updated_at]
+    attr_reader :source
+    delegate :hash, :to => :source
+
+    def initialize(source)
+      @source = source
+      @liquid = self.liquid_attributes.inject({}) { |h, k| h.update k.to_s => @source.send(k) }
+    end
+
+    def before_method(method)
+      @liquid[method.to_s]
+    end
+
+    def eql?(comparison_object)
+      self == (comparison_object)
+    end
+
+    def ==(comparison_object)
+      self.source == (comparison_object.is_a?(self.class) ? comparison_object.source : comparison_object)
+    end
+
+    # converts an array of records to an array of liquid drops, and assigns the given context to each of them
+    def self.liquify(current_context, *records, &block)
+      i = -1
+      records =
+      records.inject [] do |all, r|
+        i+=1
+        attrs = (block && block.arity == 1) ? [r] : [r, i]
+        all << (block ? block.call(*attrs) : r.to_liquid)
+        all.last.context = current_context if all.last.is_a?(Liquid::Drop)
+        all
+      end
+      records.compact!
+      records
+    end
+
+
+    def id
+      @source.id
+    end
+
+    def dropped_class
+      @source.class
+    end
+
+    def errors
+      @source.errors
+    end
+
+    def collection_label
+      "label field"
+    end
+
+    def self.method_missing(symbol, *args)
+      [symbol]
+    end
+
+
+
+  protected
+
+    def url_for(options)
+      controller.url_for options
+    end
+
+    def controller
+      @context.registers[:controller]
+    end
+
+    def liquify(*records, &block)
+      self.class.liquify(@context, *records, &block)
+    end
+
+  end
+end

data/lib/clot/date_tags.rb

@@ -0,0 +1,342 @@
+require 'clot/date_tags'
+require 'clot/no_model_form_tags'
+
+module Clot
+
+  class NumberedTag < ClotTag
+
+    def value_string(val)
+      if val < 10
+       "0#{val}"
+      else
+        val
+      end
+    end
+
+    def can_show(val)
+      true
+    end
+
+    def get_options(from_val,to_val, selected_value = nil)
+      options = ""
+
+      if from_val < to_val
+        range = (from_val..to_val)
+      else
+        range = (to_val..from_val).to_a.reverse
+      end
+
+      range.each do |val|
+        if can_show(val)
+          if selected_value == val
+            options << %{<option selected="selected" value="#{val}">#{value_string(val)}</option>}
+          else
+            options << %{<option value="#{val}">#{value_string(val)}</option>}
+          end
+        end
+      end
+      options
+    end
+
+    def set_primary_attributes(context)
+      @value_string = resolve_value(@params.shift,context)
+      if @value_string.is_a? Time
+        @value_string = @value_string.send(time_method)
+      end
+    end
+
+    def personal_attributes(name,value)
+      case name
+        when "id_string_val" then
+          @id_string = %{id="#{value}"}
+        when "name_string_val" then
+          @name_string = %{name="#{value}"}
+        when "field_name" then
+          @field_name = value
+        when "prefix" then
+          @prefix = value
+        when "prompt" then
+          prompt_text = (value === true) ? default_field_name.pluralize.capitalize : value
+          @prompt_val = "<option value=\"\">#{prompt_text}</option>"
+      end
+    end
+
+    def default_start
+      0
+    end
+
+    def default_end
+      59
+    end
+
+    def id_string(field_name)
+      @id_string || if field_name && ! field_name.blank?
+        %{id="#{@prefix || 'date'}_#{field_name}"}
+      else
+        %{id="#{@prefix || 'date'}"}
+      end
+    end
+
+    def name_string(field_name)
+      @name_string || if field_name && ! field_name.blank?
+        %{name="#{@prefix || 'date'}[#{field_name}]"}
+      else
+        %{name="#{@prefix || 'date'}"}
+      end
+    end
+
+    def render_string
+      field_name = @field_name || default_field_name
+      %{<select #{id_string(field_name)} #{name_string(field_name)}>#{@prompt_val}} + get_options(default_start, default_end, @value_string) + "</select>"
+    end
+
+    def time_method
+      default_field_name
+    end
+  end
+
+  class SelectMinute < NumberedTag
+    def time_method
+      :min
+    end
+    def default_field_name
+      "minute"
+    end
+
+    def can_show(val)
+      @minute_step.nil? || (val % @minute_step) == 0
+    end
+
+    def personal_attributes(name,value)
+      case name
+        when "minute_step" then
+          @minute_step = value
+      end || super(name, value)
+    end
+
+  end
+
+  class SelectHour < NumberedTag
+    def default_field_name
+      "hour"
+    end
+  end
+
+  class SelectDay < NumberedTag
+    def default_field_name
+      "day"
+    end
+
+    def default_start
+      1
+    end
+
+    def default_end
+      31
+    end
+  end
+
+  class SelectMonth < NumberedTag
+    def default_field_name
+      "month"
+    end
+
+    def default_start
+      1
+    end
+
+    def default_end
+      12
+    end
+
+    def personal_attributes(name,value)
+      case name
+        when "use_month_numbers" then
+          @use_month_numbers = value
+        when "add_month_numbers" then
+          @add_month_numbers = value
+        when "use_short_month" then
+          @use_short_month = value
+        when "use_month_names" then
+          @use_month_names = value
+      end || super(name, value)
+    end
+
+    def value_string(val)
+      if @use_month_numbers
+        super(val)
+      else
+        if @use_month_names
+          month_name = @use_month_names[val]
+        else
+          months = ["January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"]
+          month_name = months[val - 1]
+        end
+        if @add_month_numbers
+          "#{val} - #{month_name}"
+        elsif @use_short_month
+          month_name[0..2]
+        else
+          month_name
+        end
+      end
+    end
+
+  end
+
+
+
+  class SelectYear < NumberedTag
+    def default_field_name
+      "year"
+    end
+
+    def default_start
+      @start_year || @value_string - 5
+    end
+
+    def default_end
+      @end_year || @value_string + 5
+    end
+
+    def personal_attributes(name,value)
+      case name
+        when "start_year" then
+          @start_year = value
+        when "end_year" then
+          @end_year = value
+      end || super(name, value)
+    end
+
+
+  end
+
+
+  class SelectSecond < NumberedTag
+    def time_method
+      :sec
+    end
+    def default_field_name
+      "second"
+    end
+  end
+
+  class MultiDateTag < ClotTag
+
+    def set_primary_attributes(context)
+      @time = resolve_value(@params.shift,context) || Time.zone.now
+    end
+
+    def personal_attributes(name,value)
+      case name
+        when "discard_day" then
+          @discard_day = true
+        when "include_blank" then
+          @include_blank = true
+        when "minute_step" then
+          @minute_step = "minute_step:#{value},"
+        when "order" then
+          @order = value
+        when "start_year" then
+          @start_year = "start_year:#{value},"
+        when "prefix" then
+          @prefix = ",prefix:'#{value}'"
+        when "discard_type" then
+          @discard_type = ",field_name:''"
+        when "datetime_separator" then
+          @datetime_separator = value
+        when "date_separator" then
+          @date_separator = value
+        when "time_separator" then
+          @time_separator = value
+        when "include_seconds" then
+          @include_seconds = true
+        when "use_month_numbers" then
+          @use_month_numbers = "use_month_numbers:true,"
+        when /(.*)_prompt/ then
+          value_string = value === true ? 'true' : "'#{value}'"
+          instance_variable_set("@#{$1}_prompt".to_sym,",prompt:#{value_string}")
+        when "prompt" then
+          @prompt = ",prompt:true"
+      end || super(name,value)
+    end
+
+    def render(context)
+      instance_variables.map(&:to_sym).each do |var|
+        unless [:@_params, :@markup, :@tag_name].include? var
+          instance_variable_set var, nil  #this is because the same parse tag is re-rendered
+        end
+      end
+      @params = @_params.clone
+      set_attributes(context)
+      render_nested(context)
+    end
+
+    def set_unit(unit)
+        prompt = instance_variable_get("@#{unit}_prompt".to_sym)
+        line = "#{@time.send(time_unit(unit).to_sym).to_s} #{@discard_type}#{@prefix}#{prompt || @prompt}"
+        instance_variable_set "@#{unit}",
+           "Clot::Select#{unit.capitalize}".constantize.new(".select_#{unit}", line,[])
+    end
+
+    def time_unit(unit)
+      case unit
+        when "second" then "sec"
+        when "minute" then "min"
+        else unit
+      end
+    end
+
+    def render_units(units, context, separator = nil)
+      data = ""
+      not_first = false
+      units.each do |unit|
+         set_unit unit
+         if not_first && separator
+           data << separator
+         end
+
+         val = instance_variable_get("@#{unit}".to_sym)
+         data << val.render(context)
+         not_first = true
+      end
+      data
+    end
+
+
+  end
+
+  class SelectDate < MultiDateTag
+    def render_nested(context)
+      order = @order || ['year', 'month', 'day']
+      render_units(order, context, @date_separator)
+    end
+  end
+
+  class SelectTime < MultiDateTag
+    def render_nested(context)
+      units = ["hour", "minute"]
+      if @include_seconds
+        units << "second"
+      end
+      render_units(units, context, @time_separator)
+    end
+  end
+
+  class SelectDatetime < MultiDateTag
+    def render_nested(context)
+      time_units = ["hour", "minute"]
+      if @include_seconds
+        time_units << "second"
+      end
+      time_result = render_units(time_units, context, @time_separator)
+
+      order = @order || ['year', 'month', 'day']
+      date_result = render_units(order, context, @date_separator)
+
+      date_result + @datetime_separator.to_s + time_result
+    end
+
+  end
+
+end