bike 0.2.1

data/lib/scalar/img.rb

@@ -0,0 +1,112 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009-2010 Akira FUNAI
+
+begin
+  require 'quick_magick'
+rescue LoadError
+end
+
+class Bike::Img < Bike::File
+
+  DEFAULT_META = {
+    :width   => 120,
+    :height  => 120,
+    :options => ['png', 'jpg', 'jpeg', 'gif', 'tiff', 'bmp'],
+  }
+
+  def self.quick_magick?
+    Object.const_defined? :QuickMagick
+  end
+
+  def initialize(meta = {})
+    meta[:crop] = true if meta[:tokens] && meta[:tokens].include?('crop')
+    super
+  end
+
+  def thumbnail
+    raise Bike::Error::Forbidden unless permit? :read
+
+    if ps = my[:persistent_sd]
+      @thumbnail ||= ps.storage.val "#{my[:persistent_name]}_small"
+    end
+    @thumbnail || body
+  end
+
+  def errors
+    if @error_thumbnail
+      [_('wrong file type: should be %{types}') % {:types => my[:options].join('/')}]
+    else
+      super
+    end
+  end
+
+  def commit(type = :temp)
+    super
+    if type == :temp && @action == :delete
+      @thumbnail = nil
+    elsif type == :persistent && ps = my[:persistent_sd]
+      case @action
+        when :create, :update, nil
+          ps.storage.store(
+            "#{my[:persistent_name]}_small",
+            @thumbnail,
+            val['basename'][/\.([\w\.]+)$/, 1] || 'bin'
+          ) if @thumbnail && valid?
+      end
+    end
+  end
+
+  private
+
+  def _g_default(arg = {})
+    path       = _path arg[:action]
+    basename   = Bike::Field.h val['basename']
+    s_basename = basename.sub(/\..+$/, '_small\\&')
+    if val.empty?
+      <<_html.chomp
+<span class="dummy_img" style="width: #{my[:width]}px; height: #{my[:height]}px;"></span>
+_html
+    elsif errors.include?(_('wrong file type: should be %{types}') % {:types => my[:options].join('/')})
+      super
+    elsif arg[:sub_action] == :without_link
+      <<_html.chomp
+<img src="#{path}/#{s_basename}" alt="#{basename}" />
+_html
+    else
+      <<_html.chomp
+<a href="#{path}/#{basename}"><img src="#{path}/#{s_basename}" alt="#{basename}" /></a>
+_html
+    end
+  end
+
+  def _g_thumbnail(arg = {})
+    _g_default arg.merge(:sub_action => :without_link)
+  end
+
+  def _thumbnail(tempfile)
+    @error_thumbnail = nil
+    begin
+      tempfile.rewind
+      img = QuickMagick::Image.read(tempfile.path).first
+      if my[:crop]
+        img.gravity = 'center'
+        img.resize "#{my[:width]}x#{my[:height]}^"
+        img.extent "#{my[:width]}x#{my[:height]}"
+      else
+        img.resize "#{my[:width]}x#{my[:height]}"
+      end
+      img.to_blob
+    rescue QuickMagick::QuickMagickError
+      @error_thumbnail = $!.inspect
+      nil
+    end if self.class.quick_magick?
+  end
+
+  def val_cast(v)
+    @thumbnail = _thumbnail(v[:tempfile]) if v.is_a?(::Hash) && v[:tempfile]
+    super
+  end
+
+end

data/lib/scalar/password.rb

@@ -0,0 +1,58 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+class Bike::Password < Bike::Field
+
+  def initialize(meta = {})
+    meta[:size] = $&.to_i if meta[:tokens] && meta[:tokens].find {|t| t =~ /^\d+$/ }
+    super
+  end
+
+  def errors
+    if @size.nil?
+      []
+    elsif (my[:max].to_i > 0) && (@size > my[:max])
+      [_('too long: %{max} characters maximum') % {:max => my[:max]}]
+    elsif (my[:min].to_i == 1) && (@size == 0)
+      [_('mandatory')]
+    elsif (my[:min].to_i > 0) && (@size < my[:min])
+      [_('too short: %{min} characters minimum') % {:min => my[:min]}]
+    else
+      []
+    end
+  end
+
+  private
+
+  def _g_default(arg)
+    '*' * (@size || 5)
+  end
+
+  def _g_update(arg)
+    <<_html.chomp
+<span class="#{_g_class arg}"><input type="password" name="#{my[:short_name]}" value="" size="#{my[:size]}" />#{_g_errors arg}</span>
+_html
+  end
+  alias :_g_create :_g_update
+
+  def _post(action, v)
+    case action
+      when :load
+        @size = nil
+        @val = v
+      when :create, :update
+        if v.is_a?(::String) && !v.empty?
+          salt = Array('a'..'z')[rand(26)] + Array('a'..'z')[rand(26)]
+          @size = v.size
+          @val = v.crypt salt
+        elsif @val.nil?
+          @size = 0
+        else
+          # no action: keep current @val
+        end
+    end
+  end
+
+end

data/lib/scalar/radio.rb

@@ -0,0 +1,47 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+class Bike::Radio < Bike::Field
+
+  def initialize(meta = {})
+    meta[:mandatory] = meta[:tokens] && meta[:tokens].include?('mandatory')
+    meta[:options] ||= meta[:max] && (meta[:min].to_i..meta[:max]).collect {|i| i.to_s }
+    super
+  end
+
+  def errors
+    if val.empty?
+      my[:mandatory] ? [_('mandatory')] : []
+    else
+      my[:options].include?(val) ? [] : [_('no such option')]
+    end
+  end
+
+  private
+
+  def _g_update(arg)
+    options = my[:options].collect {|opt|
+      checked = (opt == val) ? ' checked' : ''
+      h_opt = Bike::Field.h opt
+      <<_html
+  <span class="item">
+    <input type="radio" id="radio_#{my[:short_name]}-#{h_opt}" name="#{my[:short_name]}" value="#{h_opt}"#{checked} />
+    <label for="radio_#{my[:short_name]}-#{h_opt}">#{h_opt}</label>
+  </span>
+_html
+    }.join
+    <<_html
+<span class="#{_g_class arg}">
+  <input type="hidden" name="#{my[:short_name]}" value="" />
+#{options}#{_g_errors arg}</span>
+_html
+  end
+  alias :_g_create :_g_update
+
+  def val_cast(v)
+    v.to_s
+  end
+
+end

data/lib/scalar/select.rb

@@ -0,0 +1,47 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+class Bike::Select < Bike::Field
+
+  def initialize(meta = {})
+    meta[:mandatory] = meta[:tokens] && meta[:tokens].include?('mandatory')
+    meta[:options] ||= meta[:max] && (meta[:min].to_i..meta[:max]).collect {|i| i.to_s }
+    super
+  end
+
+  def errors
+    if my[:mandatory] && val.empty?
+      [_('mandatory')]
+    elsif my[:options].include?(val) || val.empty?
+      []
+    else
+      [_('no such option')]
+    end
+  end
+
+  private
+
+  def _g_update(arg)
+    options = my[:options].collect {|opt|
+      selected = (opt == val) ? ' selected' : ''
+      "    <option#{selected}>#{Bike::Field.h opt}</option>\n"
+    }.join
+    unless my[:mandatory] && my[:options].include?(val)
+      options = "    <option value=\"\">#{_ 'please select'}</option>\n#{options}"
+    end
+    <<_html
+<span class="#{_g_class arg}">
+  <select name="#{my[:short_name]}">
+#{options}  </select>
+#{_g_errors arg}</span>
+_html
+  end
+  alias :_g_create :_g_update
+
+  def val_cast(v)
+    v.to_s
+  end
+
+end

data/lib/scalar/text.rb

@@ -0,0 +1,38 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+class Bike::Text < Bike::Field
+
+  def initialize(meta = {})
+    meta[:size] = $&.to_i if meta[:tokens] && meta[:tokens].first =~ /^\d+$/
+    super
+  end
+
+  def errors
+    if (my[:max].to_i > 0) && (val.size > my[:max])
+      [_('too long: %{max} characters maximum') % {:max => my[:max]}]
+    elsif (my[:min].to_i == 1) && val.empty?
+      [_('mandatory')]
+    elsif (my[:min].to_i > 0) && (val.size < my[:min])
+      [_('too short: %{min} characters minimum') % {:min => my[:min]}]
+    else
+      []
+    end
+  end
+
+  private
+
+  def _g_update(arg)
+    <<_html.chomp
+<span class="#{_g_class arg}"><input type="text" name="#{my[:short_name]}" value="#{Bike::Field.h val}" size="#{my[:size]}" />#{_g_errors arg}</span>
+_html
+  end
+  alias :_g_create :_g_update
+
+  def val_cast(v)
+    v.to_s
+  end
+
+end

data/lib/scalar/textarea.rb

@@ -0,0 +1,35 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+class Bike::Textarea < Bike::Field
+
+  def errors
+    if (my[:max].to_i > 0) && (val.size > my[:max])
+      [_('too long: %{max} characters maximum') % {:max => my[:max]}]
+    elsif (my[:min].to_i == 1) && val.empty?
+      [_('mandatory')]
+    elsif (my[:min].to_i > 0) && (val.size < my[:min])
+      [_('too short: %{min} characters minimum') % {:min => my[:min]}]
+    else
+      []
+    end
+  end
+
+  private
+
+  def _g_update(arg)
+    <<_html
+<span class="#{_g_class arg}">
+  <textarea name="#{my[:short_name]}" cols="#{my[:width]}" rows="#{my[:height]}">#{Bike::Field.h val}</textarea>
+#{_g_errors arg}</span>
+_html
+  end
+  alias :_g_create :_g_update
+
+  def val_cast(v)
+    v.to_s.gsub(/\r\n?/, "\n")
+  end
+
+end

data/lib/scalar/textarea_pre.rb

@@ -0,0 +1,14 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009-2010 Akira FUNAI
+
+require 'rack/utils'
+
+class Bike::Textarea::Pre < Bike::Textarea
+
+  def _g_default(arg)
+    '<pre>' + Bike::Field.h(val) + '</pre>'
+  end
+
+end

data/lib/scalar/textarea_wiki.rb

@@ -0,0 +1,173 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+require 'csv'
+
+class Bike::Textarea::Wiki < Bike::Textarea
+
+  private
+
+  def _g_default(arg)
+    wiki @val.to_s
+  end
+
+  def wiki(str)
+    str.chomp!
+
+    html = ''
+    body = ''
+    type = :p
+
+    Bike::Field.h(str).each_line {|line|
+      if line =~ /^---$/
+        new_type = :hr
+      else
+        line =~ /^(.?)/
+        case $1
+          when '!'
+            new_type = :heading
+          when ','
+            new_type = :table
+          when '*'
+            new_type = :ul
+          when '+'
+            new_type = :ol
+          when ' ', "\t"
+            new_type = :pre
+          when ''
+            new_type = :blank
+          else
+            new_type = :p
+        end
+      end
+      if new_type != type
+        html += __send__("element_#{type}", body.to_s)
+        body = ''
+      end
+      body += line
+      type = new_type
+    }
+    html += __send__("element_#{type}", body) if body != ''
+
+    html
+  end
+
+  def element_hr(body)
+    body.gsub!(/\n*\Z/, '')
+    body.gsub!(/^---$/, "<hr />\n")
+  
+    <<_html
+#{body}
+_html
+  end
+
+  def element_heading(body)
+    <<_html
+<h3>#{body}</h3>
+_html
+  end
+
+  def element_table(body)
+    table = CSV.parse(body.gsub!(/^,/, ''))
+
+    table.each_with_index {|row, y|
+      row.each_index {|x|
+        if (row[x] == :same_as_above)
+          row[x] = nil
+          next
+        end
+
+        span = 1
+        ((y + 1) .. (table.size - 1)).each {|y_below|
+          if (table[y_below][x] == row[x])
+            table[y_below][x] = :same_as_above
+            span += 1
+          else
+            break
+          end
+        }
+        rowspan = (span > 1) ? " rowspan=\"#{span}\"" : ''
+
+        row[x] = "<td valign=\"top\"#{rowspan}>#{inline(row[x])}</td>"
+      }
+    }
+
+    rows = table.collect {|row|
+      "  <tr>" + row.join('') + '</tr>'
+    }.join("\n")
+
+    <<_html
+<table class="wiki">
+#{rows}
+</table>
+_html
+  end
+
+  def element_list(body, ul_ol)
+    items = []
+    lines = []
+    type  = nil
+    (body + "\n\n").each_line {|line|
+      line.sub!(/^(\*|\+)/, '')
+
+      unless line =~ /^(\*|\+)/ || lines.empty?
+        item = inline(lines.shift.to_s.chomp)
+        unless lines.empty?
+          lines = lines.join
+          item += (lines =~ /\A\*/) ? element_ul(lines) : element_ol(lines)
+        end
+        items << "<li>#{item}</li>\n" if item != ''
+        lines = []
+      end
+
+      lines << line
+    }
+
+    <<_html
+<#{ul_ol} class="wiki">
+#{items.join}</#{ul_ol}>
+_html
+  end
+
+  def element_ul(body)
+    element_list(body, 'ul')
+  end
+
+  def element_ol(body)
+    element_list(body, 'ol')
+  end
+
+  def element_pre(body)
+    body.gsub!(/\n*\Z/, '')
+
+    <<_html
+<pre class="wiki">#{body}
+</pre>
+_html
+  end
+
+  def element_p(body)
+    body.gsub!(/\n*\Z/, '')
+    body.gsub!(/\n/, "<br />\n")
+    body.gsub!(/^/, '  ')
+
+    <<_html
+<p class="wiki">
+#{inline(body)}
+</p>
+_html
+  end
+
+  def element_blank(body)
+    body.gsub!(/\n/, "<br />\n")
+  end
+
+  def inline(body)
+    body.gsub!(/\*(.+?)\*/, '<strong class="wiki">\1</strong>')
+    body.gsub!(/\=\=(.+?)\=\=/, '<s class="wiki">\1</s>')
+    body
+  end
+
+end