amrita2 1.9.6 → 2.0.0

data/sample/depot/app/helpers/standard_form.rb

@@ -0,0 +1,73 @@
+
+class StandardForm < Amrita2::Macro::Base
+  TemplateText = <<-END_OF_TEMPLATE
+    <<fieldset<
+      <<legend:title>>
+      <%%= form_tag(<%= $_[:url].inspect %>) %%>
+        <<:header>>
+        <<p:items<
+          <<label:label|Attr[:for]<
+            <<:text>>:
+          <<:input>>
+        <<:fotter>>
+      <%%= '</form>' %%>
+
+  END_OF_TEMPLATE
+
+  def macro_data(element)
+    root = element.as_amrita_dictionary
+    record = root[:record].intern
+    title = element.search("form_title").first
+    url = element.search("url").first
+    header = element.search("header").first
+    items = element.search("tr").collect do |tr|
+      tr_to_data(record, tr)
+    end
+    fotter = element.search("fotter").first
+
+    ret = {
+      :title => title.contents,
+      :record => record,
+      :url => url ? url.as_amrita_dictionary : {},
+      :header => header.contents,
+      :items => items,
+      :fotter => fotter.contents
+    }
+    ret
+  end
+
+  def tr_to_data(record, tr)
+    label = tr.search("th").first
+    td = tr.search("td").first
+    input = td_to_input(record, td) || { }
+    {
+      :label => {
+        :for => "#{record}_#{input[:field_id]}",
+        :text => label.contents.strip,
+      },
+      :input => input[:input]
+    }
+  end
+
+  def td_to_input(record, td)
+    x = td.children.find { |c| c.kind_of?(Hpricot::Elem) }
+    raise "input was not found in <td>" unless x
+    attr = x.as_amrita_dictionary
+    field_id = attr.delete(:id)
+    input =  case x.name
+             when "text"
+               "<%= text_field #{record.to_s.inspect}, #{field_id.to_s.inspect}, #{attr.inspect} %>"
+             when "text_area"
+               "<%= text_area #{record.to_s.inspect}, #{field_id.to_s.inspect}, #{attr.inspect} %>"
+             when "field"
+               x.contents
+             else
+               raise "unknown input field #{x.name} "
+             end
+    {
+      :input => Amrita2::SanitizedString[input],
+      :field_id => field_id
+    }
+  end
+end
+

data/sample/depot/app/helpers/store_helper.rb

@@ -0,0 +1,14 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+module StoreHelper
+  
+  def hidden_div_if(condition, attributes = {}, &block)
+    if condition
+      attributes["style"] = "display: none"
+    end
+    content_tag("div", attributes, &block)
+  end
+end

data/sample/depot/app/models/cart.rb

@@ -0,0 +1,36 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose.
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+class Cart
+  include Amrita2::DictionaryData
+
+  attr_reader :items
+
+  def initialize
+    @items = []
+  end
+
+
+  def add_product(product)
+    current_item = @items.find {|item| item.product == product}
+    if current_item
+      current_item.increment_quantity
+    else
+      current_item = CartItem.new(product)
+      @items << current_item
+    end
+    current_item
+  end
+
+
+  def total_items
+    @items.sum { |item| item.quantity }
+  end
+
+
+  def total_price
+    @items.sum { |item| item.price }
+  end
+end

data/sample/depot/app/models/cart_item.rb

@@ -0,0 +1,26 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+class CartItem
+  
+  attr_reader :product, :quantity
+  
+  def initialize(product)
+    @product = product
+    @quantity = 1
+  end
+  
+  def increment_quantity
+    @quantity += 1
+  end
+  
+  def title
+    @product.title
+  end
+  
+  def price
+    @product.price * @quantity
+  end
+end

data/sample/depot/app/models/line_item.rb

@@ -0,0 +1,34 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+# Schema as of June 12, 2006 15:45 (schema version 7)
+#
+# Table name: line_items
+#
+#  id          :integer(11)   not null, primary key
+#  product_id  :integer(11)   default(0), not null
+#  order_id    :integer(11)   default(0), not null
+#  quantity    :integer(11)   default(0), not null
+#  total_price :integer(11)   default(0), not null
+#
+
+
+class LineItem < ActiveRecord::Base
+  
+  belongs_to :order
+  belongs_to :product
+
+  
+  def self.from_cart_item(cart_item)
+    li = self.new
+    li.product     = cart_item.product
+    li.quantity    = cart_item.quantity
+    li.total_price = cart_item.price
+    li
+  end
+  
+
+end
+

data/sample/depot/app/models/order.rb

@@ -0,0 +1,57 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+# Schema as of June 12, 2006 15:45 (schema version 7)
+#
+# Table name: orders
+#
+#  id       :integer(11)   not null, primary key
+#  name     :string(255)   
+#  address  :text          
+#  email    :string(255)   
+#  pay_type :string(10)    
+#
+
+
+
+
+class Order < ActiveRecord::Base
+
+
+  
+  has_many :line_items
+
+
+  
+  PAYMENT_TYPES = [
+    #  Displayed        stored in db
+    [ "Check",          "check" ],
+    [ "Credit card",    "cc"   ],
+    [ "Purchase order", "po" ]
+  ]
+  
+  # ...
+  
+
+  
+  validates_presence_of :name, :address, :email, :pay_type
+  validates_inclusion_of :pay_type, :in => PAYMENT_TYPES.map {|disp, value| value}
+  
+  # ...
+  
+
+  
+  def add_line_items_from_cart(cart)
+    cart.items.each do |item|
+      li = LineItem.from_cart_item(item)
+      line_items << li 
+    end 
+  end 
+  
+
+
+
+end
+

data/sample/depot/app/models/product.rb

@@ -0,0 +1,41 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose.
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+# Schema as of June 12, 2006 15:45 (schema version 7)
+#
+# Table name: products
+#
+#  id          :integer(11)   not null, primary key
+#  title       :string(255)
+#  description :text
+#  image_url   :string(255)
+#  price       :integer(11)   default(0)
+#
+
+
+class Product < ActiveRecord::Base
+
+  has_many :orders, :through => :line_items
+
+  has_many :line_items
+
+  def self.find_products_for_sale
+    find(:all, :order => "title")
+  end
+
+  validates_presence_of :title, :description, :image_url
+  validates_numericality_of :price
+  validates_uniqueness_of :title
+  validates_format_of :image_url,
+                      :with    => %r{\.(gif|jpg|png)$}i,
+                      :message => "must be a URL for a GIF, JPG, or PNG image"
+  protected
+
+  def validate
+    errors.add(:price, "should be at least 0.01") if price.nil? ||  price < 0.01
+  end
+end
+
+

data/sample/depot/app/models/user.rb

@@ -0,0 +1,83 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+# Schema as of June 12, 2006 15:45 (schema version 7)
+#
+# Table name: users
+#
+#  id              :integer(11)   not null, primary key
+#  name            :string(255)   
+#  hashed_password :string(255)   
+#  salt            :string(255)   
+#
+
+require 'digest/sha1'
+
+
+class User < ActiveRecord::Base
+  
+  validates_presence_of     :name
+  validates_uniqueness_of   :name
+ 
+  attr_accessor :password_confirmation
+  validates_confirmation_of :password
+
+  def validate
+    errors.add_to_base("Missing password") if hashed_password.blank?
+  end
+
+  
+  
+  def self.authenticate(name, password)
+    user = self.find_by_name(name)
+    if user
+      expected_password = encrypted_password(password, user.salt)
+      if user.hashed_password != expected_password
+        user = nil
+      end
+    end
+    user
+  end
+  
+  
+  # 'password' is a virtual attribute
+  
+  def password
+    @password
+  end
+  
+  def password=(pwd)
+    @password = pwd
+    return if pwd.blank?
+    create_new_salt
+    self.hashed_password = User.encrypted_password(self.password, self.salt)
+  end
+  
+
+  
+  def after_destroy
+    if User.count.zero?
+      raise "Can't delete last user"
+    end
+  end     
+  
+  
+  private
+  
+  
+  def create_new_salt
+    self.salt = self.object_id.to_s + rand.to_s
+  end
+  
+  
+  
+  def self.encrypted_password(password, salt)
+    string_to_hash = password + "wibble" + salt
+    Digest::SHA1.hexdigest(string_to_hash)
+  end
+  
+
+end
+

data/sample/depot/config/boot.rb

@@ -0,0 +1,49 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose.
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+# Don't change this file. Configuration is done in config/environment.rb and config/environments/*.rb
+
+unless defined?(RAILS_ROOT)
+  root_path = File.join(File.dirname(__FILE__), '..')
+
+  unless RUBY_PLATFORM =~ /mswin32/
+    require 'pathname'
+    root_path = Pathname.new(root_path).cleanpath(true).to_s
+  end
+
+  RAILS_ROOT = root_path
+end
+
+unless defined?(Rails::Initializer)
+  if File.directory?("#{RAILS_ROOT}/vendor/rails")
+    require "#{RAILS_ROOT}/vendor/rails/railties/lib/initializer"
+  else
+    require 'rubygems'
+
+    environment_without_comments = IO.readlines(File.dirname(__FILE__) + '/environment.rb').reject { |l| l =~ /^#/ }.join
+    environment_without_comments =~ /[^#]RAILS_GEM_VERSION = '([\d.]+)'/
+    rails_gem_version = $1
+
+    if version = defined?(RAILS_GEM_VERSION) ? RAILS_GEM_VERSION : rails_gem_version
+      rails_gem = Gem.cache.search('rails', "=#{version}").first
+
+      if rails_gem
+        require_gem "rails", "=#{version}"
+        require rails_gem.full_gem_path + '/lib/initializer'
+      else
+        STDERR.puts %(Cannot find gem for Rails =#{version}:
+    Install the missing gem with 'gem install -v=#{version} rails', or
+    change environment.rb to define RAILS_GEM_VERSION with your desired version.
+  )
+        exit 1
+      end
+    else
+      gem "rails"
+      require 'initializer'
+    end
+  end
+
+  Rails::Initializer.run(:set_load_path)
+end

data/sample/depot/config/environment.rb

@@ -0,0 +1,83 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose.
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+# Be sure to restart your web server when you modify this file.
+
+# Uncomment below to force Rails into production mode when
+# you don't control web/app server and can't set it the proper way
+# ENV['RAILS_ENV'] ||= 'production'
+
+# Bootstrap the Rails environment, frameworks, and default configuration
+require File.join(File.dirname(__FILE__), 'boot')
+
+Rails::Initializer.run do |config|
+  # Settings in config/environments/* take precedence those specified here
+
+  # Skip frameworks you're not going to use
+  # config.frameworks -= [ :action_web_service, :action_mailer ]
+
+  # Add additional load paths for your own custom dirs
+  # config.load_paths += %W( #{RAILS_ROOT}/extras )
+
+  # Force all environments to use the same logger level
+  # (by default production uses :info, the others :debug)
+  # config.log_level = :debug
+
+  # Use the database for sessions instead of the file system
+  # (create the session table with 'rake create_sessions_table')
+  config.action_controller.session_store = :active_record_store
+
+  # Use SQL instead of Active Record's schema dumper when creating the test database.
+  # This is necessary if your schema can't be completely dumped by the schema dumper,
+  # like if you have constraints or database-specific column types
+  # config.active_record.schema_format = :sql
+
+  # Activate observers that should always be running
+  # config.active_record.observers = :cacher, :garbage_collector
+
+  # Make Active Record use UTC-base instead of local time
+  # config.active_record.default_timezone = :utc
+
+  # See Rails::Configuration for more options
+end
+
+# Add new inflection rules using the following format
+# (all these examples are active by default):
+# Inflector.inflections do |inflect|
+#   inflect.plural /^(ox)$/i, '\1en'
+#   inflect.singular /^(ox)en/i, '\1'
+#   inflect.irregular 'person', 'people'
+#   inflect.uncountable %w( fish sheep )
+# end
+
+# Include your application configuration below
+
+module PriceHelper
+  include ActionView::Helpers::NumberHelper
+  def to_currency
+    number_to_currency(self)
+  end
+end
+
+class BigDecimal
+  include PriceHelper
+end
+
+class Integer
+  include PriceHelper
+end
+
+module StringHelper
+  include ActionView::Helpers::TextHelper
+  def truncate
+    super(self, 80).to_s
+  end
+end
+
+class String
+  include StringHelper
+end
+
+require 'amrita2/macro'

data/sample/depot/config/environments/development.rb

@@ -0,0 +1,24 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+# Settings specified here will take precedence over those in config/environment.rb
+
+# In the development environment your application's code is reloaded on
+# every request.  This slows down response time but is perfect for development
+# since you don't have to restart the webserver when you make code changes.
+config.cache_classes     = false
+
+# Log error messages when you accidentally call methods on nil.
+config.whiny_nils        = true
+
+# Enable the breakpoint server that script/breakpointer connects to
+config.breakpoint_server = true
+
+# Show full error reports and disable caching
+config.action_controller.consider_all_requests_local = true
+config.action_controller.perform_caching             = false
+
+# Don't care if the mailer can't send
+config.action_mailer.raise_delivery_errors = false

data/sample/depot/config/environments/production.rb

@@ -0,0 +1,24 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+# Settings specified here will take precedence over those in config/environment.rb
+
+# The production environment is meant for finished, "live" apps.
+# Code is not reloaded between requests
+config.cache_classes = true
+
+# Use a different logger for distributed setups
+# config.logger        = SyslogLogger.new
+
+
+# Full error reports are disabled and caching is turned on
+config.action_controller.consider_all_requests_local = false
+config.action_controller.perform_caching             = true
+
+# Enable serving of images, stylesheets, and javascripts from an asset server
+# config.action_controller.asset_host                  = "http://assets.example.com"
+
+# Disable delivery errors if you bad email addresses should just be ignored
+# config.action_mailer.raise_delivery_errors = false

data/sample/depot/config/environments/test.rb

@@ -0,0 +1,24 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+# Settings specified here will take precedence over those in config/environment.rb
+
+# The test environment is used exclusively to run your application's
+# test suite.  You never need to work with it otherwise.  Remember that
+# your test database is "scratch space" for the test suite and is wiped
+# and recreated between test runs.  Don't rely on the data there!
+config.cache_classes = true
+
+# Log error messages when you accidentally call methods on nil.
+config.whiny_nils    = true
+
+# Show full error reports and disable caching
+config.action_controller.consider_all_requests_local = true
+config.action_controller.perform_caching             = false
+
+# Tell ActionMailer not to deliver emails to the real world.
+# The :test delivery method accumulates sent emails in the
+# ActionMailer::Base.deliveries array.
+config.action_mailer.delivery_method = :test

data/sample/depot/config/routes.rb

@@ -0,0 +1,10 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+ActionController::Routing::Routes.draw do |map|
+  map.connect ':controller/service.wsdl', :action => 'wsdl'
+  map.connect ':controller/:action/:id'
+  map.connect ':controller/:action/:id.:format'
+end

data/sample/depot/db/migrate/001_create_products.rb

@@ -0,0 +1,18 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+class CreateProducts < ActiveRecord::Migration
+  def self.up
+    create_table :products do |t|
+      t.column :title,       :string
+      t.column :description, :text
+      t.column :image_url,   :string
+    end
+  end
+
+  def self.down
+    drop_table :products
+  end
+end

data/sample/depot/db/migrate/002_add_price.rb

@@ -0,0 +1,14 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+class AddPrice < ActiveRecord::Migration
+  def self.up
+    add_column :products, :price, :decimal, :precision => 8, :scale => 2, :default => 0
+  end
+
+  def self.down
+    remove_column :products, :price
+  end
+end

data/sample/depot/db/migrate/003_add_test_data.rb

@@ -0,0 +1,68 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+
+class AddTestData < ActiveRecord::Migration
+  def self.up
+    Product.delete_all
+
+    Product.create(:title => 'Pragmatic Project Automation',
+    :description => 
+    %{<p>
+       <em>Pragmatic Project Automation</em> shows you how to improve the 
+       consistency and repeatability of your project's procedures using 
+       automation to reduce risk and errors.
+      </p>
+      <p>
+        Simply put, we're going to put this thing called a computer to work 
+        for you doing the mundane (but important) project stuff. That means 
+        you'll have more time and energy to do the really 
+        exciting---and difficult---stuff, like writing quality code.
+      </p>},
+    :image_url =>   '/images/auto.jpg',    
+    :price => 29.95)
+
+
+    Product.create(:title => 'Pragmatic Version Control',
+      :description =>
+      %{<p>
+         This book is a recipe-based approach to using Subversion that will 
+         get you up and 
+         running quickly---and correctly. All projects need version control: 
+         it's a foundational piece of any project's infrastructure. Yet half 
+         of all project teams in the U.S. don't use any version control at all. 
+         Many others don't use it well, and end up experiencing time-consuming problems.
+      </p>},
+    :image_url => '/images/svn.jpg',
+    :price => 28.50)
+    # . . .
+
+
+    Product.create(:title => 'Pragmatic Unit Testing (C#)',
+    :description => 
+    %{<p>
+        Pragmatic programmers use feedback to drive their development and 
+        personal processes. The most valuable feedback you can get while 
+        coding comes from unit testing.
+      </p>
+      <p>
+        Without good tests in place, coding can become a frustrating game of 
+        "whack-a-mole." That's the carnival game where the player strikes at a 
+        mechanical mole; it retreats and another mole pops up on the opposite side 
+        of the field. The moles pop up and down so fast that you end up flailing 
+        your mallet helplessly as the moles continue to pop up where you least 
+        expect them.
+      </p>},
+    :image_url => '/images/utc.jpg',
+    :price => 27.75)
+
+  end
+
+
+  def self.down
+    Product.delete_all
+  end
+end
+