exo_cms 0.0.1

data/app/models/exo/contributor.rb

@@ -0,0 +1,42 @@
+class Exo
+  class Contributor
+    include ::Exo::Document
+
+    # Include default devise modules. Others available are:
+    # :confirmable, :lockable, :timeoutable and :omniauthable
+    devise :database_authenticatable, #:registerable,
+           :recoverable, :rememberable, :trackable, :validatable
+
+    field :email,              :type => String, :default => ""
+    field :encrypted_password, :type => String, :default => ""
+
+    ## Recoverable
+    field :reset_password_token,   :type => String
+    field :reset_password_sent_at, :type => Time
+
+    ## Rememberable
+    field :remember_created_at, :type => Time
+
+    ## Trackable
+    field :sign_in_count,      :type => Integer, :default => 0
+    field :current_sign_in_at, :type => Time
+    field :last_sign_in_at,    :type => Time
+    field :current_sign_in_ip, :type => String
+    field :last_sign_in_ip,    :type => String
+    
+    ##Other stuff
+    
+    field :name
+    #field :is_able_to, type: Roles, default: Roles.new
+    
+    def name
+      self[:name] || email.split('@').first
+    end
+    
+    def avatar_url
+      ::Gravatar.new(email).image_url
+    end
+    
+    has_and_belongs_to_many :sites, class_name: 'Exo::Site', inverse_of: :contributors
+  end
+end

data/app/models/exo/resource/item/abstract_relation.rb

@@ -0,0 +1,21 @@
+class Exo
+  class Resource::Item
+    class AbstractRelation < AbstractValue
+      field :resource_slug_id
+
+      validates_presence_of :resource_slug_id
+      validate :resource_existance, if: :item
+
+      protected
+      def resource_existance
+        resource!
+      rescue ::Mongoid::Errors::DocumentMissing => e
+        errors.add :resource_slug_id, :invalid
+      end
+
+      def resource!
+        item.site.slug_scope(Exo::Resource).find_by slug_id: resource_slug_id
+      end
+    end
+  end
+end

data/app/models/exo/resource/item/abstract_value.rb

@@ -0,0 +1,35 @@
+class Exo
+  class Resource::Item::AbstractValue
+    include Exo::Document
+
+    embedded_in :item, class_name: 'Exo::Resource::Item'
+
+    field :field_slug_id
+
+    validates_presence_of :field_slug_id
+    validate :field_existance
+
+    def site
+      item ? item.site : nil
+    end
+
+    def value_update params
+      raise "value_update should be overrided in #{self.class}"
+    end
+
+    def meta_field_validation meta_field
+      
+    end
+
+    def form_value
+      raise "form_value should be overrided in #{self.class}"
+    end
+
+    protected
+    def field_existance
+      unless item.resource.meta_field_for self.field_slug_id
+        errors.add :field_slug_id, :invalid
+      end
+    end
+  end
+end

data/app/models/exo/resource/item/asset_value.rb

@@ -0,0 +1,17 @@
+class Exo
+  class Resource::Item
+    class AssetValue < AbstractValue
+      mount_uploader :content, Exo::ItemAssetUploader
+
+      field :content_type
+      field :content_size
+
+      validates_presence_of :content
+      validates_integrity_of :content
+      
+      def value_update value
+        self.content = value
+      end
+    end
+  end
+end

data/app/models/exo/resource/item/belongs_to_value.rb

@@ -0,0 +1,26 @@
+class Exo
+  class Resource::Item
+    class BelongsToValue < AbstractRelation
+      field :item_id, type: String, default: nil
+
+      before_validation :clean_blank_item_id
+      validate :item_existance, if: :item_id
+
+      def form_value
+        item_id
+      end
+
+      protected
+      def item_existance
+        raise "SHOULD USE SLUG ID"
+        unless resource!.items.where(_id: item_id).exists?
+          errors.add :item_id, :invalid
+        end
+      end
+
+      def clean_blank_item_id
+        self.item_id = nil if self.item_id.blank?
+      end
+    end
+  end
+end

data/app/models/exo/resource/item/has_many_value.rb

@@ -0,0 +1,24 @@
+class Exo
+  class Resource::Item
+    class HasManyValue < AbstractRelation
+      field :item_ids, type: Array, default: Array
+
+      validate :item_existance
+
+      def form_value
+        items_ids
+      end
+
+      protected
+      def item_existance
+        raise "SHOULD USE SLUG ID"
+        items_ids.each do |id|
+          unless resource!.items.where(_id: id).exists?
+            errors.add :item_ids, :invalid
+            break
+          end
+        end
+      end
+    end
+  end
+end

data/app/models/exo/resource/item/list_value.rb

@@ -0,0 +1,23 @@
+class Exo
+  class Resource::Item
+    class ListValue < AbstractValue
+      JOIN_SEPARATOR = ', '
+      SPLIT_REGEXP = /,\s*/
+
+
+      field :array_values, type: Array, default: []
+
+      def form_value
+        list_value
+      end
+
+      def list_value
+        array_values.join JOIN_SEPARATOR
+      end
+
+      def list_value= list
+        self.array_values = list.split SPLIT_REGEXP
+      end
+    end
+  end
+end

data/app/models/exo/resource/item/markdown_value.rb

@@ -0,0 +1,52 @@
+class Exo
+  class Resource::Item
+    class MarkdownValue < AbstractValue
+      SPLIT = '---PREVIEW---'
+
+      field :html_value
+      field :intro_html_value
+      field :raw_value
+      
+      def value_update value
+        self.raw_value = value
+        intro, content = self.raw_value.split(SPLIT)
+        if content
+          self.intro_html_value = markdown_to_html intro
+          self.html_value = markdown_to_html content
+        else
+          self.intro_html_value = ''
+          self.html_value = markdown_to_html self.raw_value
+        end
+      end
+      
+      def value
+        self.intro_html_value + "<hr/>" + self.html_value #FIXME
+      end
+
+      def form_value
+        raw_value
+      end
+
+      protected
+      class HTMLwithPygments < Redcarpet::Render::HTML
+        def block_code(code, language)
+          Pygments.highlight(code, lexer: language) #, options: {linenos: true}
+        end
+      end
+
+      def markdown_to_html md
+        options = {
+          hard_wrap: true,
+          filter_html: true,
+          autolink: true,
+          no_intraemphasis: true,
+          fenced_code: true,
+          fenced_code_blocks: true,
+          gh_blockcode: true
+        }
+        renderer = HTMLwithPygments.new(:hard_wrap => true)
+        Redcarpet::Markdown.new(renderer, options).render md.to_s
+      end
+    end
+  end
+end

data/app/models/exo/resource/item/simple_value.rb

@@ -0,0 +1,15 @@
+class Exo
+  class Resource::Item
+    class SimpleValue < AbstractValue
+      field :value
+      
+      def form_value
+        value
+      end
+
+      def value_update value
+        self.value = value
+      end
+    end
+  end
+end

data/app/models/exo/resource/item.rb

@@ -0,0 +1,169 @@
+class Exo::Resource
+  class Item
+    include Exo::Document
+
+    scope :published, lambda { where(:published_at.lte => DateTime.now, :published_at.ne => nil) }
+
+    field :slug_id
+    field :name
+    field :published_at, type: DateTime, default: nil
+    field :site_slug_id
+    field :resource_slug_id
+    field :values, type: Hash, default: {}
+
+    before_validation :reset_meta_errors
+    before_validation :generate_slug_id
+    validates_presence_of :name
+    validates_presence_of :slug_id
+    validates_presence_of :site_slug_id
+    validates_presence_of :resource_slug_id
+    validate :meta_field_validation
+
+    #embeds_many :assets, class_name: 'Exo::Resource::ItemAsset'
+
+    #field :_values, type: Hash, default: {}
+    embeds_many :values, class_name: 'Exo::Resource::Item::AbstractValue'
+
+    def migrate_values!
+      self._values = values
+      self.save!
+      self[:values] = nil
+      self.save!
+    end
+
+    def slugify value
+      _slug = value.downcase.gsub /([^a-z0-9])+/i, '-'
+      _slug = _slug[1..-1] if _slug[0] == '-'
+      _slug = _slug[0..-2] if _slug[-1] == '-'
+      _slug
+    end
+
+    def set_asset field_slug, value
+      puts "set asset #{field_slug} #{value}"
+      if value == nil
+        puts "empty"
+        nil
+      elsif !value
+        puts "remove"
+        assets.where(slug_id: field_slug).destroy_all
+        nil
+      else
+        puts "push !"
+        asset = assets.where(field_slug_id: field_slug).first || Exo::Resource::ItemAsset.new
+        asset.field_slug_id = field_slug unless asset.field_slug_id
+        asset.item = self unless asset.item
+        asset.content = value
+        asset.save
+        puts "asset #{asset.inspect}"
+        temp_asset[field_slug] = asset
+        asset
+      end
+    end
+
+    def published= boolean
+      boolean = boolean == 1 if boolean.kind_of?(Fixnum)
+      boolean = boolean == "1" if boolean.kind_of?(String)
+      if boolean
+        self.published_at = DateTime.now unless published_at
+      else
+        self.published_at = nil
+      end
+    end
+
+    def published
+      published_at && published_at <= DateTime.now
+    end
+    
+    def scheduled
+      published_at && published_at > DateTime.now
+    end
+
+    alias :published? :published
+
+    def value_for meta_field
+      meta_field = meta_field.slug_id if meta_field.kind_of?(Exo::Resource::MetaField)
+      self.values.where(field_slug_id: meta_field.to_s).first
+      # if meta_field.kind_of?(Exo::Resource::MetaValue) && meta_field.asset?
+      #   v = self.assets.where(field_slug_id: meta_field.slug_id.to_sym).first
+      #   v = temp_asset[meta_field.slug_id] unless v
+      #   v
+      # else
+      #   self._values[meta_field.slug_id]
+      # end
+    end
+
+    def site= site
+      self.site_slug_id = site.slug_id
+    end
+
+    def site
+      Exo::Site.find_by slug_id: site_slug_id
+    end
+
+    def temp_asset_for meta_field
+      temp_asset[meta_field.slug_id]
+    end
+
+    def resource!
+      #NOT TESTED
+      site.resources.find_by slug_id: self.resource_slug_id
+    end
+
+    def resource= r
+      self.resource_slug_id = r.slug_id
+    end
+
+    def resource
+      #NOT TESTED
+      site.resources.where(slug_id: self.resource_slug_id).first
+    end
+
+    def meta_errors
+      @meta_errors ||= Exo::Resource::MetaErrors.new
+    end
+
+    protected
+    def generate_slug_id
+      self.slug_id = slugify self.name
+    end
+
+    def reset_meta_errors
+      @meta_errors = Exo::Resource::MetaErrors.new
+    end
+
+    def temp_asset
+      @temp_asset ||= HashWithIndifferentAccess.new
+    end
+
+    def meta_field_validation
+      reset_meta_errors
+      resource.meta_fields.each do |meta_field|
+        _value = value_for meta_field
+        raise "'#{meta_field.slug_id}' value missing" if !_value
+        _value.meta_field_validation meta_field
+      end
+
+      #   if f.kind_of?(Exo::Resource::MetaValue) && !f.asset?
+      #     self._values[f.slug_id] = nil if self._values[f.slug_id].blank?
+      #     self._values[f.slug_id] = f.default if !self._values[f.slug_id] && f.default
+      #   end
+      # 
+      #   value = value_for f
+      #   puts "value for #{f.slug_id} -> #{!!value}"
+      #   meta_errors.add f.slug_id, :required if !value && f.required
+      # 
+      #   if f.kind_of?(Exo::Resource::MetaValue) && f.unique
+      #     sibling = resource!.items.where("values.#{f.slug_id}" => value).first
+      #     if sibling && sibling != self
+      #       meta_errors.add f.slug_id, :already_taken
+      #     end
+      #   end
+      # 
+      #   #FIXME format validation
+      # end
+      # unless meta_errors.empty?
+      #   errors.add :_values, :errors
+      # end
+    end
+  end
+end

data/app/models/exo/resource/item_asset.rb

@@ -0,0 +1,20 @@
+class Exo
+  class Resource::ItemAsset
+    include Exo::Document
+
+    embedded_in :item, class_name: 'Exo::Resource::Item'
+
+    mount_uploader :content, Exo::ItemAssetUploader
+
+    field :field_slug_id
+    field :content_type
+    field :content_size
+
+    validates_presence_of :content
+    validates_integrity_of :content
+    
+    def site
+      item ? item.site : nil
+    end
+  end
+end

data/app/models/exo/resource/meta_errors.rb

@@ -0,0 +1,24 @@
+class Exo::Resource::MetaErrors
+  attr_accessor :errors
+
+  def initialize
+    self.errors = {}
+  end
+
+  def each &block
+    errors.each &block
+  end
+
+  def collect &block
+    errors.collect &block
+  end
+
+  def add slug_id, error_type
+    errors[slug_id] ||= []
+    errors[slug_id].push error_type unless errors[slug_id].include?(error_type)
+  end
+  
+  def empty?
+    errors.empty?
+  end
+end

data/app/models/exo/resource/meta_field.rb

@@ -0,0 +1,20 @@
+class Exo::Resource
+  class MetaField
+    include Exo::Document
+
+    embedded_in :resource, class_name: 'Exo::Resource', inverse_of: :meta_fields
+
+    field :name,        type: String
+    field :slug_id,     type: String
+    field :required,    type: Boolean, default: false
+
+    validates_presence_of   :name
+    
+    def value_class
+      if self.class == Exo::Resource::MetaField
+        raise "you are using an abstract class"
+      end
+      raise "value_class should be overrided."
+    end
+  end
+end

data/app/models/exo/resource/meta_relation.rb

@@ -0,0 +1,25 @@
+class Exo::Resource
+  class MetaRelation < MetaField
+    field :resource_slug_id
+    field :many,        type: Boolean, default: false
+
+    validates_presence_of   :resource_slug_id
+
+    before_validation :genarate_slug_id, on: :create, if: :name
+
+    protected
+    def clean_default
+      self.default = nil if self.default.blank?
+    end
+
+    def genarate_slug_id
+      if !self.slug_id
+        if many
+          self.slug_id = "#{self.name.to_s.underscore}_ids" #fixme
+        else
+          self.slug_id = "#{self.name.to_s.underscore}_ids"
+        end
+      end
+    end
+  end
+end

data/app/models/exo/resource/meta_value.rb

@@ -0,0 +1,60 @@
+class Exo::Resource
+  class MetaValue < MetaField
+    DATUM_TYPES = [
+      :string,
+      :text,
+      :image,
+      :file,
+      :datetime,
+      :time,
+      :belongs_to,
+      :has_many,
+      :markdown,
+      :list
+    ]
+
+    DEFAULT_VALUE_CLASS = Exo::Resource::Item::SimpleValue
+    VALUE_CLASSES = {
+      belongs_to: Exo::Resource::Item::BelongsToValue,
+      has_many:   Exo::Resource::Item::HasManyValue,
+      markdown:   Exo::Resource::Item::MarkdownValue,
+      list:       Exo::Resource::Item::ListValue,
+
+      image:      Exo::Resource::Item::AssetValue,
+      file:      Exo::Resource::Item::AssetValue
+    }
+
+    field :datum_type,  type: String
+    field :default,     type: String
+    field :unique,      type: Boolean, default: false
+
+    before_validation :clean_default
+
+    validates_presence_of   :name
+    validates_inclusion_of  :datum_type, in: DATUM_TYPES.collect {|t| t.to_s}
+
+    before_validation :genarate_slug_id, on: :create, if: :name
+    #FIXME validate uniqueness of name
+
+    def value_class
+      VALUE_CLASSES[datum_sym] || DEFAULT_VALUE_CLASS
+    end
+
+    def datum_sym
+      datum_type.to_sym if datum_type
+    end
+
+    def asset?
+      ['image'].include? datum_type.to_s
+    end
+
+    protected
+    def clean_default
+      self.default = nil if self.default.blank?
+    end
+
+    def genarate_slug_id
+      self.slug_id = self.name #fixme
+    end
+  end
+end

data/app/models/exo/resource.rb

@@ -0,0 +1,40 @@
+class Exo
+  class Resource
+    include Exo::Document
+
+    embedded_in :site, class_name: 'Exo::Site'
+    embeds_many :meta_fields, class_name: 'Exo::Resource::MetaField', inverse_of: :resource
+
+    field :name
+    field :slug_id
+
+    validates_presence_of :name
+    validates_uniqueness_of :name
+    validates_presence_of :slug_id
+    validates_uniqueness_of :slug_id
+
+    before_validation :generate_slug_id, on: :create, if: :name
+
+    def meta_field_for key
+      meta_fields.where(slug_id: key).first
+    end
+
+    def items
+      site.slug_scope(Exo::Resource::Item).where resource_slug_id: self.slug_id
+    end
+
+    protected
+    def generate_slug_id
+      self.slug_id = self.name #fixme
+    end
+
+    # def slug_uniqueness
+    #   site.routes.each do |r|
+    #     if r.path == self.path && (self.new_record? || r.id != self.id)
+    #       errors.add :path, :already_taken
+    #       break
+    #     end
+    #   end
+    # end
+  end
+end

data/app/models/exo/route/page.rb

@@ -0,0 +1,11 @@
+class Exo
+  class Route::Page < Route
+    field :view_path
+    field :layout_path, type: String
+
+    embeds_many :blocks, class_name: 'Exo::Block'
+
+    validates_format_of :view_path, with: Exo::Regexp::ABSOLUTE_PATH
+    validates_format_of :layout_path, with: Exo::Regexp::ABSOLUTE_PATH, if: :layout_path
+  end
+end

data/app/models/exo/route/redirection.rb

@@ -0,0 +1,8 @@
+class Exo
+  class Route::Redirection < Route
+    field :to_url
+
+    validates_presence_of :to_url
+    #validates_format_of :to_path, with: Exo::Regexp::ABSOLUTE_PATH
+  end
+end

data/app/models/exo/route.rb

@@ -0,0 +1,38 @@
+class Exo
+  class Route
+    include Exo::Document
+
+    embedded_in :site,      class_name: 'Exo::Site'
+    embeds_many :settings,  class_name: 'Exo::Setting', as: :setting_container
+
+    field :slug_id
+    field :path
+
+    validates_presence_of :slug_id
+    validates_format_of :path, with: ::Exo::Regexp::ROUTING_PATH
+    #validates_uniqueness_of :path
+    validate :path_uniqueness, if: :site
+
+    def redirection?
+      self.class == Exo::Route::Redirection
+    end
+
+    def url
+      site.url + self.path
+    end
+
+    def redirection?
+      self.class == Exo::Route::Redirection
+    end
+    
+    protected
+    def path_uniqueness
+      site.routes.each do |r|
+        if (r.path == self.path) && (self != r)
+          errors.add :path, :already_taken
+          break
+        end
+      end
+    end
+  end
+end