locomotive_cms 0.0.1

data/app/models/extensions/page/tree.rb

@@ -0,0 +1,97 @@
+module Models  
+  module Extensions    
+    module Page      
+      module Tree  
+
+        extend ActiveSupport::Concern
+
+        included do
+          include Mongoid::Acts::Tree
+          
+          ## fields ##
+          field :position, :type => Integer
+          
+          ## behaviours ##
+          acts_as_tree :order => ['position', 'asc']
+          
+          ## callbacks ##
+          before_validate :reset_parent
+          before_save { |p| p.parent_id = nil if p.parent_id.blank? }
+          before_save :change_parent
+          before_create { |p| p.send(:fix_position, false) }
+          before_create :add_to_list_bottom
+          before_destroy :remove_from_list
+
+          # Fixme (Didier L.): Instances methods are defined before the include itself
+          alias :ancestors :hacked_ancestors
+          alias :fix_position :hacked_fix_position
+        end 
+        
+        module InstanceMethods
+          
+          def sort_children!(ids)
+            ids.each_with_index do |id, position|
+              child = self.children.detect { |p| p._id == id }
+              child.position = position
+              child.save
+            end
+          end
+          
+          def parent=(owner) # missing in acts_as_tree
+            @_parent = owner
+            self.fix_position(false)
+            self.instance_variable_set :@_will_move, true
+          end
+          
+          def hacked_ancestors
+            return [] if root?
+            self.class.find(self.path.clone << nil) # bug in mongoid (it does not handle array with one element) 
+          end          
+          
+          protected
+          
+          def change_parent
+            if self.parent_id_changed?
+              self.fix_position(false)
+              self.add_to_list_bottom
+              self.instance_variable_set :@_will_move, true
+            end
+          end
+
+          def hacked_fix_position(perform_save = true)
+            if parent.nil?
+              self[parent_id_field] = nil
+              self[path_field] = []
+              self[depth_field] = 0
+            else
+              self[parent_id_field] = parent._id
+              self[path_field] = parent[path_field] + [parent._id]
+              self[depth_field] = parent[depth_field] + 1
+              self.save if perform_save
+            end
+          end          
+          
+          def reset_parent
+            if self.parent_id_changed?
+              @_parent = nil
+            end
+          end
+          
+          def add_to_list_bottom  
+            self.position = (::Page.where(:_id.ne => self._id).and(:parent_id => self.parent_id).max(:position) || 0) + 1
+          end
+
+          def remove_from_list
+            return if (self.site rescue nil).nil?
+
+            ::Page.where(:parent_id => self.parent_id).and(:position.gt => self.position).each do |p|
+              p.position -= 1
+              p.save
+            end
+          end
+          
+        end        
+      end      
+    end    
+  end  
+end

data/app/models/layout.rb

@@ -0,0 +1,49 @@
+class Layout < LiquidTemplate
+
+  ## associations ##
+  has_many_related :pages
+  embeds_many :parts, :class_name => 'PagePart'
+  
+  ## callbacks ##
+  before_save :build_parts_from_value
+  after_save :update_parts_in_pages
+  
+  ## validations ##
+  validates_format_of :value, :with => Locomotive::Regexps::CONTENT_FOR_LAYOUT, :message => :missing_content_for_layout
+  
+  ## methods ##
+    
+  protected
+  
+  def build_parts_from_value
+    if self.value_changed? || self.new_record?
+      self.parts.each { |p| p.disabled = true }
+      
+      self.value.scan(Locomotive::Regexps::CONTENT_FOR).each do |attributes|
+        slug = attributes[0].strip.downcase
+        name = attributes[1].strip.gsub("\"", '')    
+        name = nil if name.empty?
+        name ||= I18n.t('attributes.defaults.page_parts.name') if slug == 'layout'
+        
+        if part = self.parts.detect { |p| p.slug == slug }
+          part.name = name if name.present?
+          part.disabled = false
+        else
+          self.parts.build :slug => slug, :name => name || slug
+        end        
+      end
+      
+      # body always first
+      body = self.parts.detect { |p| p.slug == 'layout' }
+      self.parts.delete(body)
+      self.parts.insert(0, body)
+      
+      @_update_pages = true if self.value_changed?
+    end
+  end
+  
+  def update_parts_in_pages
+    self.pages.each { |p| p.send(:update_parts!, self.parts) } if @_update_pages
+  end  
+  
+end

data/app/models/liquid_template.rb

@@ -0,0 +1,32 @@
+class LiquidTemplate
+  
+  include Locomotive::Mongoid::Document
+  
+  ## fields ##
+  field :name
+  field :slug
+  field :value
+  
+  ## associations ##
+  belongs_to_related :site
+  
+  ## callbacks ##
+  before_validate :normalize_slug
+  
+  ## validations ##
+  validates_presence_of   :site, :name, :slug, :value
+  validates_uniqueness_of :slug, :scope => :site_id
+  
+  ## behaviours ##
+  liquify_template :value
+  
+  ## methods ##
+    
+  protected
+  
+  def normalize_slug
+    self.slug = self.name.clone if self.slug.blank? && self.name.present?
+    self.slug.slugify!(:without_extension => true, :downcase => true) if self.slug.present?
+  end
+      
+end

data/app/models/membership.rb

@@ -0,0 +1,36 @@
+class Membership
+  
+  include Locomotive::Mongoid::Document
+  
+  ## fields ##
+  field :admin, :type => Boolean, :default => false
+  
+  ## associations ##
+  belongs_to_related :account
+  embedded_in :site, :inverse_of => :memberships
+  
+  ## validations ##
+  validates_presence_of :account
+  
+  ## methods ##
+  
+  def email; @email; end
+  
+  def email=(email)
+    @email = email
+    self.account = Account.where(:email => email).first
+  end
+  
+  def action_to_take
+    if @email.blank?
+      :error
+    elsif self.account.nil?
+      :create_account
+    elsif self.site.memberships.find_all { |m| m.account_id == self.account_id }.size > 1
+      :nothing
+    else
+      :save_it
+    end
+  end
+  
+end

data/app/models/page.rb

@@ -0,0 +1,87 @@
+class Page
+  
+  include Locomotive::Mongoid::Document
+
+  ## Extensions ##  
+  include Models::Extensions::Page::Tree
+  include Models::Extensions::Page::Parts
+  include Models::Extensions::Page::Render
+  
+  ## fields ##
+  field :title
+  field :slug
+  field :fullpath
+  field :published, :type => Boolean, :default => false
+  field :keywords
+  field :description
+  
+  ## associations ##
+  belongs_to_related :site
+  belongs_to_related :layout
+  embeds_many :parts, :class_name => 'PagePart'
+    
+  ## callbacks ##
+  before_validate :normalize_slug
+  before_save { |p| p.fullpath = p.fullpath(true) }
+  before_destroy :do_not_remove_index_and_404_pages
+  
+  ## validations ##
+  validates_presence_of     :site, :title, :slug
+  validates_uniqueness_of   :slug, :scope => [:site_id, :parent_id]
+  validates_exclusion_of    :slug, :in => Locomotive.config.reserved_slugs, :if => Proc.new { |p| p.depth == 0 }
+  
+  ## named scopes ##
+  named_scope :latest_updated, :order_by => [[:updated_at, :desc]], :limit => Locomotive.config.lastest_items_nb
+  named_scope :index, :where => { :slug => 'index', :depth => 0, :published => true }
+  named_scope :not_found, :where => { :slug => '404', :depth => 0, :published => true }
+  
+  ## behaviours ##
+  liquify_template :joined_parts
+  
+  ## methods ##
+  
+  def index?
+    self.slug == 'index' && self.depth.to_i == 0
+  end
+  
+  def not_found?
+    self.slug == '404' && self.depth.to_i == 0
+  end
+  
+  def fullpath(force = false)
+    if read_attribute(:fullpath).present? && !force
+      return read_attribute(:fullpath)
+    end
+    
+    if self.index? || self.not_found?
+      self.slug
+    else
+      slugs = self.self_and_ancestors.map(&:slug)
+      slugs.shift
+      File.join slugs
+    end
+  end
+  
+  def url
+    "http://#{self.site.domains.first}/#{self.fullpath}.html"
+  end
+    
+  protected
+  
+  def do_not_remove_index_and_404_pages
+    # safe_site = self.site rescue nil
+    
+    # return if safe_site.nil?
+    return if (self.site rescue nil).nil?
+    
+    if self.index? || self.not_found?
+      raise I18n.t('errors.messages.protected_page')
+    end
+  end
+      
+  def normalize_slug  
+    self.slug = self.title.clone if self.slug.blank? && self.title.present?    
+    self.slug.slugify!(:without_extension => true) if self.slug.present?
+  end
+    
+end

data/app/models/page_part.rb

@@ -0,0 +1,38 @@
+class PagePart
+  
+  include Mongoid::Document
+
+  ## fields ##
+  field :name, :type => String
+  field :slug, :type => String
+  field :value, :type => String
+  field :disabled, :type => Boolean, :default => false
+  field :value, :type => String
+    
+  ## associations ##
+  embedded_in :page, :inverse_of => :parts
+  
+  ## callbacks ##
+  # before_validate  { |p| p.slug ||= p.name.slugify if p.name.present? }  
+  
+  ## validations ##
+  validates_presence_of :name, :slug
+  
+  ## named scopes ##
+  named_scope :enabled, where(:disabled => false)
+  
+  ## methods ##
+  
+  def template
+    "{% capture content_for_#{self.slug} %}#{self.value}{% endcapture %}"
+  end
+  
+  def self.build_body_part
+    self.new({
+      :name => I18n.t('attributes.defaults.page_parts.name'), 
+      :value => I18n.t('attributes.defaults.pages.other.body'), 
+      :slug => 'layout'
+    })
+  end
+  
+end

data/app/models/site.rb

@@ -0,0 +1,93 @@
+class Site
+  
+  include Locomotive::Mongoid::Document
+  
+  ## fields ##
+  field :name
+  field :subdomain, :type => String
+  field :domains, :type => Array, :default => []
+  
+  ## associations ##
+  has_many_related :pages
+  has_many_related :layouts
+  has_many_related :snippets
+  has_many_related :theme_assets
+  has_many_related :asset_collections
+  has_many_related :content_types
+  embeds_many :memberships
+  
+  ## validations ##
+  validates_presence_of     :name, :subdomain
+  validates_uniqueness_of   :subdomain
+  validates_exclusion_of    :subdomain, :in => Locomotive.config.reserved_subdomains
+  validates_format_of       :subdomain, :with => Locomotive::Regexps::SUBDOMAIN, :allow_blank => true
+  validate                  :domains_must_be_valid_and_unique  
+  
+  ## callbacks ##
+  after_create :create_default_pages!
+  before_save :add_subdomain_to_domains
+  after_destroy :destroy_in_cascade!
+  
+  ## named scopes ##
+  named_scope :match_domain, lambda { |domain| { :where => { :domains => domain } } }
+  named_scope :match_domain_with_exclusion_of, lambda { |domain, site| { :where => { :domains => domain, :_id.ne => site.id } } }
+    
+  ## behaviours ##
+  liquid_methods :name
+  
+  ## methods ##
+
+  def accounts
+    Account.criteria.in(:_id => self.memberships.collect(&:account_id))
+  end
+  
+  def admin_memberships
+    self.memberships.find_all { |m| m.admin? }
+  end
+  
+  def add_subdomain_to_domains
+    self.domains ||= []    
+    (self.domains << "#{self.subdomain}.#{Locomotive.config.default_domain}").uniq!
+  end
+  
+  def domains_without_subdomain
+    (self.domains || []) - ["#{self.subdomain}.#{Locomotive.config.default_domain}"]
+  end
+  
+  def domains_with_subdomain
+    ((self.domains || []) + ["#{self.subdomain}.#{Locomotive.config.default_domain}"]).uniq
+  end
+    
+  protected
+  
+  def domains_must_be_valid_and_unique
+    return if self.domains.empty?
+            
+    self.domains_without_subdomain.each do |domain|
+      if not self.class.match_domain_with_exclusion_of(domain, self).empty?
+        self.errors.add(:domains, :domain_taken, :value => domain)
+      end
+      
+      if not domain =~ Locomotive::Regexps::DOMAIN
+        self.errors.add(:domains, :invalid_domain, :value => domain)
+      end
+    end
+  end
+  
+  def create_default_pages!
+    %w{index 404}.each do |slug|
+      self.pages.create({
+        :slug => slug, 
+        :title => I18n.t("attributes.defaults.pages.#{slug}.title"), 
+        :body => I18n.t("attributes.defaults.pages.#{slug}.body")
+      })
+    end
+  end
+  
+  def destroy_in_cascade!
+    %w{pages layouts snippets theme_assets asset_collections content_types}.each do |association|
+      self.send(association).destroy_all
+    end
+  end
+  
+end

data/app/models/snippet.rb

@@ -0,0 +1,3 @@
+class Snippet < LiquidTemplate
+
+end