nsm-activeadmin 0.2.2

data/lib/active_admin/arbre/html.rb

@@ -0,0 +1,84 @@
+module Arbre
+  module HTML
+    def current_dom_context
+      @__current_dom_element__ ||= Arbre::Context.new(assigns, helpers)
+      @__current_dom_element__.current_dom_context
+    end
+
+    def helpers
+      @_helpers
+    end
+
+    def method_missing(name, *args, &block)
+      if current_dom_context.respond_to?(name)
+        current_dom_context.send name, *args, &block
+      elsif assigns && assigns.has_key?(name)
+        assigns[name]
+      elsif helpers.respond_to?(name)
+        helpers.send(name, *args, &block)
+      else
+        super
+      end
+    end
+
+    module BuilderMethods
+      def build_tag(klass, *args, &block)
+        tag = klass.new(assigns, helpers)
+
+        # If you passed in a block and want the object
+        if block_given? && block.arity > 0
+          # Set out context to the tag, and pass responsibility to the tag
+          with_current_dom_context tag do
+            tag.build(*args, &block)
+          end
+        else
+          # Build the tag
+          tag.build(*args)
+
+          # Render the blocks contents
+          if block_given?
+            with_current_dom_context tag do
+              insert_text_node_if_string(yield)
+            end
+          end
+        end
+
+        tag
+      end
+
+      def insert_tag(klass, *args, &block)
+        tag = build_tag(klass, *args, &block)
+        current_dom_context.add_child(tag)
+        tag
+      end
+
+      def current_dom_context
+        @__current_dom_element_buffer__ ||= [self]
+        current_element = @__current_dom_element_buffer__.last
+        if current_element == self
+          self
+        else
+          current_element.current_dom_context
+        end
+      end
+
+      def with_current_dom_context(tag)
+        raise ArgumentError, "Can't be in the context of nil. #{@__current_dom_element_buffer__.inspect}" unless tag
+        current_dom_context # Ensure a context is setup
+        @__current_dom_element_buffer__.push tag
+        yield
+        @__current_dom_element_buffer__.pop
+      end
+      alias_method :within, :with_current_dom_context
+
+      # Inserts a text node if the tag is a string
+      def insert_text_node_if_string(tag)
+        if tag.is_a?(String)
+          current_dom_context << TextNode.from_string(tag)
+        end
+      end
+    end
+
+  end
+end
+

data/lib/active_admin/arbre/html5_elements.rb

@@ -0,0 +1,47 @@
+module Arbre
+  module HTML
+
+    AUTO_BUILD_ELEMENTS = [ :a, :abbr, :address, :area, :article, :aside, :audio, :b, :base,
+                       :bdo, :blockquote, :body, :br, :button, :canvas, :caption, :cite,
+                       :code, :col, :colgroup, :command, :datalist, :dd, :del, :details,
+                       :dfn, :div, :dl, :dt, :em, :embed, :fieldset, :figcaption, :figure,
+                       :footer, :form, :h1, :h2, :h3, :h4, :h5, :h6, :head, :header, :hgroup, 
+                       :hr, :html, :i, :iframe, :img, :input, :ins, :keygen, :kbd, :label, 
+                       :legend, :li, :link, :map, :mark, :menu, :meta, :meter, :nav, :noscript, 
+                       :object, :ol, :optgroup, :option, :output, :pre, :progress, :q,
+                       :s, :samp, :script, :section, :select, :small, :source, :span,
+                       :strong, :style, :sub, :summary, :sup, :table, :tbody, :td,
+                       :textarea, :tfoot, :th, :thead, :time, :title, :tr, :ul, :var, :video ]
+
+    HTML5_ELEMENTS = [ :p ] + AUTO_BUILD_ELEMENTS
+
+    AUTO_BUILD_ELEMENTS.each do |name|
+      class_eval <<-EOF
+        class #{name.to_s.capitalize} < Tag
+          builder_method :#{name}
+        end
+      EOF
+    end
+
+    class P < Tag
+      builder_method :para
+    end
+
+    class Table < Tag
+      def initialize(*)
+        super
+        set_table_tag_defaults
+      end
+
+      protected
+
+      # Set some good defaults for tables
+      def set_table_tag_defaults
+        set_attribute :border,      0
+        set_attribute :cellspacing, 0
+        set_attribute :cellpadding, 0
+      end
+    end
+
+  end
+end

data/lib/active_admin/arbre/tag.rb

@@ -0,0 +1,137 @@
+require 'erb'
+
+module Arbre
+  module HTML
+
+    class Tag < Element
+      attr_reader :attributes
+
+      def initialize(*)
+        super
+        @attributes = Attributes.new
+      end
+
+      def build(*args)
+        super
+        attributes = args.extract_options!
+        self.content = args.first if args.first
+
+        set_for_attribute(attributes.delete(:for))
+
+        attributes.each do |key, value|
+          set_attribute(key, value)
+        end
+      end
+
+      def set_attribute(name, value)
+        @attributes[name.to_sym] = value
+      end
+
+      def get_attribute(name)
+        @attributes[name.to_sym]
+      end
+      alias :attr :get_attribute
+
+      def has_attribute?(name)
+        @attributes.has_key?(name.to_sym)
+      end
+
+      def remove_attribute(name)
+        @attributes.delete(name.to_sym)
+      end
+
+      def id
+        get_attribute(:id)
+      end
+
+      # Generates and id for the object if it doesn't exist already
+      def id!
+        return id if id
+        self.id = object_id.to_s
+        id
+      end
+
+      def id=(id)
+        set_attribute(:id, id)
+      end
+
+      def add_class(class_names)
+        class_list.add class_names
+      end
+
+      def remove_class(class_names)
+        class_list.delete(class_names)
+      end
+
+      # Returns a string of classes
+      def class_names
+        class_list.to_html
+      end
+
+      def class_list
+        get_attribute(:class) || set_attribute(:class, ClassList.new)
+      end
+
+      def to_html
+        indent("<#{tag_name}#{attributes_html}>", content, "</#{tag_name}>").html_safe
+      end
+
+      private
+
+      INDENT_SIZE = 2
+      
+      def indent(open_tag, child_content, close_tag)
+        spaces = ' ' * indent_level * INDENT_SIZE
+
+        html = ""
+
+        if no_child? || child_is_text?
+          if self_closing_tag?
+            html << spaces << open_tag.sub( />$/, '/>' )
+          else
+            # one line
+            html << spaces << open_tag << child_content << close_tag
+          end
+        else
+          # multiple lines
+          html << spaces << open_tag << "\n"
+          html << child_content # the child takes care of its own spaces
+          html << spaces << close_tag
+        end
+
+        html << "\n"
+
+        html
+      end
+      
+      def self_closing_tag?
+        %w|meta link|.include?(tag_name)
+      end
+      
+      def no_child?
+        children.empty?
+      end
+
+      def child_is_text?
+        children.size == 1 && children.first.is_a?(TextNode)
+      end
+
+
+      def attributes_html
+        attributes.any? ? " " + attributes.to_html : nil
+      end
+
+      def set_for_attribute(record)
+        return unless record
+        set_attribute :id, ActionController::RecordIdentifier.dom_id(record, default_id_for_prefix)
+        add_class ActionController::RecordIdentifier.dom_class(record)
+      end
+
+      def default_id_for_prefix
+        nil
+      end
+
+    end
+
+  end
+end

data/lib/active_admin/arbre/text_node.rb

@@ -0,0 +1,35 @@
+require 'erb'
+
+module Arbre
+  module HTML
+
+    class TextNode < Element
+
+      builder_method :text_node
+
+      # Builds a text node from a string
+      def self.from_string(string)
+        node = new
+        node.build(string)
+        node
+      end
+
+      def add_child(*args)
+        raise "TextNodes do not have children"
+      end
+
+      def build(string)
+        @content = string
+      end
+
+      def tag_name
+        nil
+      end
+
+      def to_html
+        ERB::Util.html_escape(@content.to_html)
+      end
+    end
+
+  end
+end

data/lib/active_admin/asset_registration.rb

@@ -0,0 +1,34 @@
+module ActiveAdmin
+  module AssetRegistration
+
+    # Stylesheets
+
+    def register_stylesheet(name)
+      stylesheets << name
+    end
+
+    def stylesheets
+      @stylesheets ||= []
+    end
+
+    def clear_stylesheets!
+      @stylesheets = []
+    end
+
+
+    # Javascripts
+
+    def register_javascript(name)
+      javascripts << name
+    end
+
+    def javascripts
+      @javascripts ||= []
+    end
+
+    def clear_javascripts!
+      @javascripts = []
+    end
+
+  end
+end

data/lib/active_admin/callbacks.rb

@@ -0,0 +1,89 @@
+module ActiveAdmin
+  module Callbacks
+    extend ActiveSupport::Concern
+
+    module InstanceMethods
+      protected
+
+      # Simple callback system. Implements before and after callbacks for
+      # use within the controllers.
+      #
+      # We didn't use the ActiveSupport callbacks becuase they do not support
+      # passing in any arbitrary object into the callback method (which we
+      # need to do)
+      
+      def call_callback_with(method, *args)
+        case method
+        when Symbol
+          send(method, *args)
+        when Proc
+          instance_exec(*args, &method)
+        else
+          raise "Please register with callbacks using a symbol or a block/proc."
+        end
+      end
+    end
+
+    module ClassMethods
+
+      # Define a new callback.
+      #
+      # Example:
+      #
+      #   class MyClassWithCallbacks
+      #     include ActiveAdmin::Callbacks
+      #
+      #     define_active_admin_callbacks :save
+      #
+      #     before_save do |arg1, arg2|
+      #       # runs before save
+      #     end
+      #
+      #     after_save :call_after_save
+      #
+      #     def save
+      #       # Will run before, yield, then after
+      #       run_save_callbacks :arg1, :arg2 do
+      #         save!
+      #       end
+      #     end
+      #
+      #     protected
+      #
+      #     def call_after_save(arg1, arg2)
+      #       # runs after save
+      #     end
+      #   end
+      #     
+      def define_active_admin_callbacks(*names)
+        names.each do |name|
+          [:before, :after].each do |type|
+
+            # Define a method to set the callback
+            class_eval(<<-EOS, __FILE__, __LINE__ + 1)
+              # def self.before_create_callbacks
+              def self.#{type}_#{name}_callbacks
+                @#{type}_#{name}_callbacks ||= []
+              end
+
+              # def self.before_create
+              def self.#{type}_#{name}(method = nil, &block)
+                #{type}_#{name}_callbacks << (method || block)
+              end
+            EOS
+          end
+
+          # Define a method to run the callbacks
+          class_eval(<<-EOS, __FILE__, __LINE__ + 1)
+            def run_#{name}_callbacks(*args)
+              self.class.before_#{name}_callbacks.each{|callback| call_callback_with(callback, *args)}
+              value = yield if block_given?
+              self.class.after_#{name}_callbacks.each{|callback| call_callback_with(callback, *args)}
+              return value
+            end
+            EOS
+         end
+       end
+    end
+  end
+end

data/lib/active_admin/comments.rb

@@ -0,0 +1,88 @@
+require 'active_admin/comments/configuration'
+require 'active_admin/comments/comment'
+require 'active_admin/comments/views'
+require 'active_admin/comments/show_page_helper'
+require 'active_admin/comments/namespace_helper'
+require 'active_admin/comments/resource_helper'
+
+# Add the comments configuration
+ActiveAdmin::Application.send :include, ActiveAdmin::Comments::Configuration
+
+# Add the comments module to ActiveAdmin::Namespace
+ActiveAdmin::Namespace.send :include, ActiveAdmin::Comments::NamespaceHelper
+
+# Add the comments module to ActiveAdmin::Resource
+ActiveAdmin::Resource.send :include, ActiveAdmin::Comments::ResourceHelper
+
+# Add the module to the show page
+ActiveAdmin.application.view_factory.show_page.send :include, ActiveAdmin::Comments::ShowPageHelper
+
+# Generate a Comment resource when namespaces are registered
+ActiveAdmin::Event.subscribe ActiveAdmin::Namespace::RegisterEvent do |namespace|
+  if namespace.comments?
+    namespace.register ActiveAdmin::Comment, :as => 'Comment' do
+      actions :index, :show, :create
+
+      # Don't display in the menu
+      menu false
+
+      # Don't allow comments on comments
+      config.comments = false
+
+      # Filter Comments by date
+      filter :resource_type
+      filter :body
+      filter :created_at
+
+      # Only view comments in this namespace
+      scope :all, :default => true do |comments|
+        comments.where(:namespace => active_admin_config.namespace.name)
+      end
+
+      # Always redirect to the resource on show
+      before_filter :only => :show do
+        flash[:notice] = flash[:notice].dup if flash[:notice]
+        comment = ActiveAdmin::Comment.find(params[:id])
+        resource_config = active_admin_config.namespace.resource_for(comment.resource.class)
+        redirect_to send(resource_config.route_instance_path, comment.resource)
+      end
+
+      # Store the author and namespace
+      before_save do |comment|
+        comment.namespace = active_admin_config.namespace.name
+        comment.author = current_active_admin_user
+      end
+
+      # Redirect to the resource show page when failing to add a comment
+      # TODO: Provide helpers to make such kind of customization much simpler
+      controller do
+        def create
+          create! do |success, failure|
+            failure.html do 
+              resource_config = active_admin_config.namespace.resource_for(@comment.resource.class)
+              flash[:error] = "Comment wasn't saved, text was empty."
+              redirect_to send(resource_config.route_instance_path, @comment.resource)
+            end
+          end
+        end
+      end
+
+
+      # Display as a table
+      index do
+        column("Resource"){|comment| auto_link(comment.resource) }
+        column("Author"){|comment| auto_link(comment.author) }
+        column :body
+      end
+    end
+  end
+end
+
+# Register for comments when new resources are registered
+ActiveAdmin::Event.subscribe ActiveAdmin::Resource::RegisterEvent do |resource|
+  if resource.comments?
+    resource.resource.has_many :active_admin_comments, :class_name => "ActiveAdmin::Comment",
+                                                       :as         => :resource, 
+                                                       :dependent  => :destroy
+  end
+end