merb-admin 0.4.3

data/app/views/main/_boolean.html.erb

@@ -0,0 +1,7 @@
+<%
+  name = property[:name]
+  label = property[:pretty_name]
+%>
+                <div>
+                  <%= check_box(name, :label => label) %>
+                </div>

data/app/views/main/_date.html.erb

@@ -0,0 +1,12 @@
+<%
+  name = property[:name]
+  value = @object.send(name)
+  label = property[:pretty_name]
+  required = !property[:nullable?]
+%>
+                <div>
+                  <%= text_field(name, :class => "vDateField", :value => value.respond_to?(:strftime) ? value.strftime("%Y-%m-%d") : nil, :label => label) %>
+                  <p class="help">
+                    <%= required ? "Required." : "Optional." %>
+                  </p>
+                </div>

data/app/views/main/_datetime.html.erb

@@ -0,0 +1,12 @@
+<%
+  name = property[:name]
+  value = @object.send(name)
+  label = property[:pretty_name]
+  required = !property[:nullable?]
+%>
+                <div>
+                  <%= text_field(name, :class => "vDateField", :value => value.respond_to?(:strftime) ? value.strftime("%Y-%m-%d %H:%M:%S") : nil, :label => label) %>
+                  <p class="help">
+                    <%= required ? "Required." : "Optional." %>
+                  </p>
+                </div>

data/app/views/main/_float.html.erb

@@ -0,0 +1,12 @@
+<%
+  name = property[:name]
+  length = property[:length]
+  label = property[:pretty_name]
+  required = !property[:nullable?] || property[:serial?]
+%>
+                <div>
+                  <%= text_field(name, :maxlength => length, :label => label) %>
+                  <p class="help">
+                    <%= required ? "Required." : "Optional." %>
+                  </p>
+                </div>

data/app/views/main/_has_many.html.erb

@@ -0,0 +1,16 @@
+<% 
+  name = association[:name]
+  collection = MerbAdmin::AbstractModel.new(association[:child_model]).all.map{|o| [o.id, object_title(o)]}.sort_by{|o| o[1]}
+  selected = @object.send(name)
+  label = association[:pretty_name]
+%>
+            <fieldset class="module aligned">
+              <h2><%= label %></h2>
+              <div class="form-row">
+                <div>
+                  <%= select(:name => "associations[#{name}][]", :id => name, :collection => collection, :selected => selected.map{|o| o.id.to_s}, :label => label, :multiple => true) %>
+                  <script type="text/javascript">addEvent(window, "load", function(e) {SelectFilter.init("<%= name %>", "<%= name %>", 0, "<%= image_path %>"); });</script>
+                  <p class="help">Hold down "Control", or "Command" on a Mac, to select more than one.</p>
+                </div>
+              </div>
+            </fieldset>

data/app/views/main/_has_one.html.erb

@@ -0,0 +1,30 @@
+<%
+  child_key = association[:child_key].first
+  name = association[:name]
+  collection = MerbAdmin::AbstractModel.new(association[:child_model]).all.map{|o| [o.id, object_title(o)]}.sort_by{|o| o[1]}
+  selected = @object.send(association[:name])
+  label = association[:pretty_name]
+  required = false
+  @properties.each do |property|
+    next unless property[:name] == child_key
+    required = true unless property[:nullable?]
+  end
+%>
+            <fieldset class="module aligned">
+              <h2><%= label %></h2>
+              <div class="<%= @object.errors[child_key] ? "form-row errors" : "form-row" %>">
+                <% if @object.errors[child_key] %>
+                <ul class="errorlist">
+                  <% @object.errors[child_key].each do |error| %>
+                  <li><%= error %></li>
+                  <% end %>
+                </ul>
+                <% end %>
+                <div>
+                  <%= select(:name => "associations[#{name}][]", :id => name, :collection => collection, :include_blank => true, :selected => selected ? selected.id.to_s : nil, :label => label) %>
+                  <p class="help">
+                    <%= required ? "Required." : "Optional." %>
+                  </p>
+                </div>
+              </div>
+            </fieldset>

data/app/views/main/_integer.html.erb

@@ -0,0 +1,18 @@
+<%
+  flag_map = property[:flag_map]
+  name = property[:name]
+  label = property[:pretty_name]
+  required = !property[:nullable?] || property[:serial?]
+%>
+                <div>
+                  <% if flag_map # Enum or Flag type %>
+                  <% collection = flag_map.map{|x| [x[1], x[1].to_s.capitalize.gsub('_', ' ')]}.sort{|a, b| a[1] <=> b[1]} %>
+                  <%= select(name, :collection => collection, :label => label) %>
+                  <% else %>
+                    <% length = property[:length] %>
+                  <%= text_field(name, :maxlength => length, :label => label) %>
+                  <p class="help">
+                    <%= required ? "Required." : "Optional." %>
+                  </p>
+                  <% end %>
+                </div>

data/app/views/main/_properties.html.erb

@@ -0,0 +1,18 @@
+            <fieldset class="module aligned">
+              <% belongs_to_keys = @abstract_model.belongs_to_associations.map{|b| b[:child_key].first} %>
+              <% properties.each do |property| %>
+              <% name = property[:name] %>
+              <% next if [:id, :created_at, :created_on, :deleted_at, :updated_at, :updated_on, :deleted_on].include?(name) %>
+              <% next if belongs_to_keys.include?(name) %>
+              <div class="<%= @object.errors[name] ? "form-row errors" : "form-row" %>">
+                <% if @object.errors[name] %>
+                <ul class="errorlist">
+                  <% @object.errors[name].each do |error| %>
+                  <li><%= error %></li>
+                  <% end %>
+                </ul>
+                <% end %>
+<%= partial(property[:type].to_s, :property => property) -%>
+              </div>
+              <% end %>
+            </fieldset> 

data/app/views/main/_string.html.erb

@@ -0,0 +1,12 @@
+<%
+  name = property[:name]
+  length = property[:length]
+  label = property[:pretty_name]
+  required = !property[:nullable?]
+%>
+                <div>
+                  <%= text_field(name, :size => [50, length].min, :maxlength => length, :label => label) %>
+                  <p class="help">
+                    <%= required ? "Required." : "Optional." %> <%= length %> <%= length == 1 ? "character." : "characters or fewer." %>
+                  </p>
+                </div>

data/app/views/main/_text.html.erb

@@ -0,0 +1,11 @@
+<%
+  name = property[:name]
+  label = property[:pretty_name]
+  required = property[:nullable?]
+%>
+                <div>
+                  <%= text_area(name, :cols => 80, :label => label) %>
+                  <p class="help">
+                    <%= required ? "Required." : "Optional." %>
+                  </p>
+                </div>

data/app/views/main/_time.html.erb

@@ -0,0 +1,12 @@
+<%
+  name = property[:name]
+  value = @object.send(name)
+  label = property[:pretty_name]
+  required = !property[:nullable?]
+%>
+                <div>
+                  <%= text_field(name, :class => "vTimeField", :value => value.respond_to?(:strftime) ? value.strftime("%H:%M:%S") : nil, :label => label) %>
+                  <p class="help">
+                    <%= required ? "Required." : "Optional." %>
+                  </p>
+                </div>

data/app/views/main/_timestamp.html.erb

@@ -0,0 +1,12 @@
+<%
+  name = property[:name]
+  value = @object.send(name)
+  label = property[:pretty_name]
+  required = !property[:nullable?]
+%>
+                <div>
+                  <%= text_field(name, :class => "vDateField", :value => value.respond_to?(:strftime) ? value.strftime("%Y-%m-%d %H:%M:%S") : nil, :label => label) %>
+                  <p class="help">
+                    <%= required ? "Required." : "Optional." %>
+                  </p>
+                </div>

data/app/views/main/delete.html.erb

@@ -0,0 +1,12 @@
+        <p>Are you sure you want to delete the <%= @abstract_model.pretty_name.downcase %>? All of the following related items will be deleted:</p>
+        <ul>
+          <li>
+            <%= link_to(@model_name, url(:admin_edit, :model_name => @abstract_model.singular_name, :id => @object.id))%>
+          </li>
+        </ul>
+        <%= form_for(@object, :action => url(:admin_destroy, :model_name => @abstract_model.singular_name, :id => @object.id), :method => :delete) do %>
+          <div>
+            <%= submit "Yes, I'm sure" %>
+          </div>
+        <% end =%>
+

data/app/views/main/edit.html.erb

@@ -0,0 +1,25 @@
+        <div id="content-main">
+        <%= form_for(@object, :action => url(:admin_update, :model_name => @abstract_model.singular_name, :id => @object.id)) do %>
+          <div>
+<%= partial('properties', :properties => @properties) -%>
+            <% @abstract_model.belongs_to_associations.each do |association| %>
+<%= partial('belongs_to', :association => association) -%>
+            <% end %>
+            <% @abstract_model.has_one_associations.each do |association| %>
+<%= partial('has_one', :association => association) -%>
+            <% end %>
+            <% @abstract_model.has_many_associations.each do |association| %>
+<%= partial('has_many', :association => association) -%>
+            <% end %>
+            <div class="submit-row" >
+              <%= submit "Save", :class => "default", :name => "_save" %>
+              <p class="deletelink-box">
+                <%= link_to("Delete", url(:admin_delete, :model_name => @abstract_model.singular_name, :id => @object.id), :class => "deletelink") %>
+              </p>
+              <%= submit "Save and add another", :name => "_add_another" %>
+              <%= submit "Save and continue editing", :name => "_continue" %>
+            </div>
+          </div>
+        <% end =%>
+
+        </div>

data/app/views/main/index.html.erb

@@ -0,0 +1,22 @@
+        <div id="content-main">
+          <div class="module">
+            <table summary="Models available in the application.">
+              <caption>
+                <%= link_to("Models", url(:admin_dashboard), :class => "section") %>
+              </caption>
+              <% @abstract_models.each do |abstract_model| %>
+              <tr>
+                <th scope="row">
+                  <%= link_to(abstract_model.plural_name.to_s.capitalize, url(:admin_list, :model_name => abstract_model.singular_name)) %>
+                </th>
+                <td>
+                  <%= link_to("Add", url(:admin_new, :model_name => abstract_model.singular_name), :class => "addlink") %>
+                </td>
+                <td>
+                  <%= link_to("Edit", url(:admin_list, :model_name => abstract_model.singular_name), :class => "changelink") %>
+                </td>
+              </tr>
+              <% end %>
+            </table>
+          </div>
+        </div>

data/app/views/main/list.html.erb

@@ -0,0 +1,72 @@
+<%
+  params = request.params.except(:action, :controller, :model_name)
+%>
+        <div id="content-main">
+          <ul class="object-tools">
+            <li>
+              <%= link_to("Add #{@abstract_model.pretty_name.downcase}", url(:admin_new, :model_name => @abstract_model.singular_name), :class => "addlink") %>
+            </li>
+          </ul>
+          <div class="module" id="changelist">
+            <table cellspacing="0">
+              <thead>
+                <tr>
+                  <% @properties.each do |property| %>
+                  <% name = property[:name] %>
+                  <% pretty_name = property[:pretty_name] %>
+                  <th>
+                    <%= pretty_name %>
+                  </th>
+                  <% end %>
+                </tr>
+              </thead>
+              <tbody>
+                <% @objects.each_with_index do |object, index| %>
+                <tr class="row<%= index % 2 == 0 ? '1' : '2' %>">
+                  <% @properties.each do |property| %>
+                  <% type = property[:type] %>
+                  <% name = property[:name] %>
+                  <td>
+                    <a href="<%= url(:admin_edit, :model_name => @abstract_model.singular_name, :id => object.id) %>">
+                      <% case type %>
+                      <% when :boolean %>
+                      <% if object.send(name) == true %>
+                      <img alt="True" src="<%= image_path("icon-yes.gif") %>"/>
+                      <% else %>
+                      <img alt="False" src="<%= image_path("icon-no.gif") %>"/>
+                      <% end %>
+                      <% when :date_time %>
+                      <% value = object.send(name) %>
+                      <%= value.respond_to?(:strftime) ? value.strftime("%b. %d, %Y, %I:%M%p") : nil %>
+                      <% when :date %>
+                      <% value = object.send(name) %>
+                      <%= value.respond_to?(:strftime) ? value.strftime("%b. %d, %Y") : nil %>
+                      <% when :time %>
+                      <% value = object.send(name) %>
+                      <%= value.respond_to?(:strftime) ? value.strftime("%I:%M%p") : nil %>
+                      <% when :string %>
+                      <%= object.send(name).to_s.truncate(50) %>
+                      <% when :text %>
+                      <%= object.send(name).to_s.truncate(50) %>
+                      <% else %>
+                      <%= object.send(name) %>
+                      <% end %>
+                    </a>
+                  </td>
+                  <% end %>
+                </tr>
+                <% end %>
+              </tbody>
+            </table>
+            <p class="paginator">
+              <% if @page_count.to_i > 1 %>
+              <%= paginate(@current_page, @page_count, :url => '?' + Merb::Parse.params_to_query_string(params)) %>
+              <% end %>
+              <%= @record_count %> <%= @record_count == 1 ? @abstract_model.pretty_name.downcase : @abstract_model.pretty_name.downcase.pluralize %>
+              <% if @page_count.to_i == 2 %>
+              <%= link_to("Show all", '?' + Merb::Parse.params_to_query_string(params.merge(:all => true)), :class => "showall") %>
+              <% end %>
+            </p>
+          </div>
+        </div>
+        <br class="clear" />

data/app/views/main/new.html.erb

@@ -0,0 +1,22 @@
+        <div id="content-main">
+        <%= form_for(@object, :action => url(:admin_create, :model_name => @abstract_model.singular_name)) do %>
+          <div>
+<%= partial('properties', :properties => @properties) -%>
+            <% @abstract_model.belongs_to_associations.each do |association| %>
+<%= partial('belongs_to', :association => association) -%>
+            <% end %>
+            <% @abstract_model.has_one_associations.each do |association| %>
+<%= partial('has_one', :association => association) -%>
+            <% end %>
+            <% @abstract_model.has_many_associations.each do |association| %>
+<%= partial('has_many', :association => association) -%>
+            <% end %>
+            <div class="submit-row" >
+              <%= submit "Save", :class => "default", :name => "_save" %>
+              <%= submit "Save and add another", :name => "_add_another" %>
+              <%= submit "Save and continue editing", :name => "_continue" %>
+            </div>
+          </div>
+        <% end =%>
+
+        </div>

data/lib/abstract_model.rb

@@ -0,0 +1,67 @@
+require 'generic_support'
+require 'activerecord_support'
+require 'datamapper_support'
+
+module MerbAdmin
+  class AbstractModel
+    # Returns all models for a given Merb app
+    def self.all
+      return @models if @models
+      @models ||= []
+      case Merb.orm
+      when :activerecord
+        Dir.glob(Merb.dir_for(:model) / Merb.glob_for(:model)).each do |filename|
+          # FIXME: This heuristic for finding ActiveRecord models is too strict
+          File.read(filename).scan(/^class ([\w\d_\-:]+) < ActiveRecord::Base$/).flatten.each do |m|
+            model = lookup(m.to_s.to_sym)
+            @models << new(model) if model
+          end
+        end
+        @models.sort!{|a, b| a.model.to_s <=> b.model.to_s}
+      when :datamapper
+        DataMapper::Resource.descendants.each do |m|
+          # Remove DataMapperSessionStore because it's included by default
+          next if m == Merb::DataMapperSessionStore if Merb.const_defined?(:DataMapperSessionStore)
+          model = lookup(m.to_s.to_sym)
+          @models << new(model) if model
+        end
+        @models.sort!{|a, b| a.model.to_s <=> b.model.to_s}
+      else
+        raise "MerbAdmin does not support the #{Merb.orm} ORM"
+      end
+    end
+
+    # Given a symbol +model_name+, finds the corresponding model class
+    def self.lookup(model_name)
+      begin
+        model = const_get(model_name)
+      rescue NameError
+        raise "MerbAdmin could not find model #{model_name}"
+      end
+
+      case Merb.orm
+      when :activerecord
+        return model if model.superclass == ActiveRecord::Base
+      when :datamapper
+        return model if model.include?(DataMapper::Resource)
+      end
+      nil
+    end
+
+    attr_accessor :model
+
+    def initialize(model)
+      model = self.class.lookup(model.to_s.camel_case) unless model.is_a?(Class)
+      @model = model
+      self.extend(GenericSupport)
+      case Merb.orm
+      when :activerecord
+        self.extend(ActiverecordSupport)
+      when :datamapper
+        self.extend(DatamapperSupport)
+      else
+        raise "MerbAdmin does not support the #{Merb.orm} ORM"
+      end
+    end
+  end
+end

data/lib/activerecord_support.rb

@@ -0,0 +1,169 @@
+module MerbAdmin
+  class AbstractModel
+    module ActiverecordSupport
+      def count(options = {})
+        model.count(options)
+      end
+
+      def get(id)
+        model.find(id).extend(InstanceMethods)
+      rescue
+        nil
+      end
+
+      def first(options = {})
+        model.first(options).extend(InstanceMethods)
+      end
+
+      def all(options = {})
+        model.all(options)
+      end
+
+      def all_in(ids, options = {})
+        options[:conditions] = ["id IN (?)", ids]
+        model.all(options)
+      end
+
+      def paginated(options = {})
+        page = options.delete(:page) || 1
+        per_page = options.delete(:per_page) || MerbAdmin[:per_page]
+
+        page_count = (count(options).to_f / per_page).ceil
+
+        options.merge!({
+          :limit => per_page,
+          :offset => (page - 1) * per_page
+        })
+
+        [page_count, all(options)]
+      end
+
+      def create(params = {})
+        model.create(params)
+      end
+
+      def new(params = {})
+        model.new(params).extend(InstanceMethods)
+      end
+
+      def destroy_all!
+        model.all.each do |object|
+          object.destroy
+        end
+      end
+
+      def has_many_associations
+        associations.select do |association|
+          association[:type] == :has_many
+        end
+      end
+
+      def has_one_associations
+        associations.select do |association|
+          association[:type] == :has_one
+        end
+      end
+
+      def belongs_to_associations
+        associations.select do |association|
+          association[:type] == :belongs_to
+        end
+      end
+
+      def associations
+        model.reflect_on_all_associations.map do |association|
+          {
+            :name => association.name,
+            :pretty_name => association.name.to_s.gsub('_', ' ').capitalize,
+            :type => association.macro,
+            :parent_model => association_parent_model_lookup(association),
+            :parent_key => association_parent_key_lookup(association),
+            :child_model => association_child_model_lookup(association),
+            :child_key => association_child_key_lookup(association),
+          }
+        end
+      end
+
+      def properties
+        model.columns.map do |property|
+          {
+            :name => property.name.to_sym,
+            :pretty_name => property.human_name,
+            :type => property.type,
+            :length => property.limit,
+            :nullable? => property.null,
+            :serial? => property.primary,
+            :key? => property.primary,
+            :flag_map => property.type.respond_to?(:flag_map) ? property.type.flag_map : nil,
+          }
+        end
+      end
+
+      private
+
+      def association_parent_model_lookup(association)
+        case association.macro
+        when :belongs_to
+          association.klass
+        when :has_one, :has_many
+          association.active_record
+        else
+          raise "Unknown association type"
+        end
+      end
+
+      def association_parent_key_lookup(association)
+        [:id]
+      end
+
+      def association_child_model_lookup(association)
+        case association.macro
+        when :belongs_to
+          association.active_record
+        when :has_one, :has_many
+          association.klass
+        else
+          raise "Unknown association type"
+        end
+      end
+
+      def association_child_key_lookup(association)
+        case association.macro
+        when :belongs_to
+          ["#{association.class_name.snake_case}_id".to_sym]
+        when :has_one, :has_many
+          [association.primary_key_name.to_sym]
+        else
+          raise "Unknown association type"
+        end
+      end
+
+      module InstanceMethods
+        def id
+          super
+        end
+
+        def save
+          super
+        end
+
+        def destroy
+          super
+        end
+
+        def update_attributes(attributes)
+          super
+        end
+
+        def errors
+          super
+        end
+
+        def clear_association(association)
+          association.clear
+        end
+      end
+
+    end
+  end
+end