merbiful-release 0.0.1

data/lib/merbiful-release/images.rb

@@ -0,0 +1,28 @@
+
+module Merbiful
+
+  module Images
+
+    IMAGE_REGEXP = /\.(gif|jpg|jpeg|png|bmp)$/i
+    
+    def self.images
+      rval = []
+      Dir.glob(File.join(Merb.root, "public", "images", "*")).each do |file|
+        if file.match(IMAGE_REGEXP)
+          rval << Pathname.new("/").join(Pathname.new(file).relative_path_from(Pathname.new(File.join(Merb.root, "public"))))
+        end
+      end
+      rval
+    end
+
+    def self.delete_possible?(image)
+      Pathname.new(File.join(Merb.root, "public", image)).writable?
+    end
+
+    def self.upload_possible?
+      Pathname.new(File.join(Merb.root, "public", "images")).writable?
+    end
+
+  end
+
+end

data/lib/merbiful-release/js.rb

@@ -0,0 +1,69 @@
+
+module Merbiful
+
+  class Js
+    
+    include DataMapper::Resource
+    include DataMapper::Validate
+    extend Forwardable
+    
+    property :id, Serial
+
+    property :name, DataMapper::Types::Text, :nullable => false
+    property :cached, Boolean, :default => true, :nullable => false
+
+    property :created_at, DateTime
+    property :updated_at, DateTime
+
+    has n, :js_nesses, :class_name => "Merbiful::Js::Ness"
+    has n, :page_versions, :through => :js_nesses, :class_name => "Merbiful::Page::Version"
+    has n, :js_versions, :class_name => "Merbiful::Js::Version"
+
+    def latest
+      js_versions.first(:js_id => self.id, :order => [:id.desc])
+    end
+
+    def_delegators :latest, :render, :body, :filter
+
+    def path
+      "/javascripts/#{latest.id}"
+    end
+
+    class Ness
+      include DataMapper::Resource
+      include DataMapper::Validate
+
+      property :id, Serial
+
+      belongs_to :js, :class_name => "Merbiful::Js"
+      belongs_to :page_version, :class_name => "Merbiful::Page::Version"
+    end
+
+    class Version
+      
+      include DataMapper::Resource
+      include DataMapper::Validate
+      include Merbiful::Body
+      
+      property :id, Serial
+      
+      property :js_id, Integer, :index => true, :nullable => false
+      
+      property :body, DataMapper::Types::Text
+      property :filter, DataMapper::Types::Text
+      
+      property :created_at, DateTime
+      property :updated_at, DateTime
+      
+      belongs_to :js, :class_name => "Merbiful::Js"
+      
+      before :save do
+        clear_cache(js.path) if js.latest
+      end
+
+    end
+
+  end
+
+
+end

data/lib/merbiful-release/js.rb~

@@ -0,0 +1,62 @@
+
+module Merbiful
+
+  class Css
+    
+    include DataMapper::Resource
+    include DataMapper::Validate
+    extend Forwardable
+    
+    property :id, Serial
+
+    property :name, DataMapper::Types::Text, :nullable => false
+    property :media, DataMapper::Types::Text
+    property :cached, Boolean, :default => true, :nullable => false
+
+    property :created_at, DateTime
+    property :updated_at, DateTime
+
+    has n, :css_nesses, :class_name => "Merbiful::Css::Ness"
+    has n, :page_versions, :through => :css_nesses, :class_name => "Merbiful::Page::Version"
+    has n, :css_versions, :class_name => "Merbiful::Css::Version"
+
+    def latest
+      css_versions.first(:order => [:id.desc])
+    end
+
+    def_delegators :latest, :render
+
+    class Ness
+      include DataMapper::Resource
+      include DataMapper::Validate
+
+      property :id, Serial
+
+      belongs_to :css, :class_name => "Merbiful::Css"
+      belongs_to :page_version, :class_name => "Merbiful::Page::Version"
+    end
+
+    class Version
+      
+      include DataMapper::Resource
+      include DataMapper::Validate
+      include Merbiful::Body
+      
+      property :id, Serial
+      
+      property :css_id, Integer, :index => true, :nullable => false
+      
+      property :body, DataMapper::Types::Text
+      property :filter, DataMapper::Types::Text
+      
+      property :created_at, DateTime
+      property :updated_at, DateTime
+      
+      belongs_to :css, :class_name => "Merbiful::Css"
+      
+    end
+
+  end
+
+
+end

data/lib/merbiful-release/layout.rb

@@ -0,0 +1,49 @@
+
+module Merbiful
+
+  class Layout
+    
+    include DataMapper::Resource
+    include DataMapper::Validate
+    extend Forwardable
+    
+    property :id, Serial
+
+    property :name, DataMapper::Types::Text, :nullable => false
+
+    property :created_at, DateTime
+    property :updated_at, DateTime
+
+    has n, :layout_versions, :class_name => "Merbiful::Layout::Version"
+    has n, :page_versions, :class_name => "Merbiful::Page::Version"
+
+    def latest
+      layout_versions.first(:layout_id => self.id, :order => [:id.desc])
+    end
+
+    def_delegators :latest, :render, :body, :filter
+
+    class Version
+      
+      include DataMapper::Resource
+      include DataMapper::Validate
+      include Merbiful::Body
+      
+      property :id, Serial
+      
+      property :layout_id, Integer, :index => true, :nullable => false
+      
+      property :body, DataMapper::Types::Text
+      property :filter, DataMapper::Types::Text
+      
+      property :created_at, DateTime
+      property :updated_at, DateTime
+      
+      belongs_to :layout, :class_name => "Merbiful::Layout"
+      
+    end
+
+  end
+
+
+end

data/lib/merbiful-release/layout.rb~

@@ -0,0 +1,21 @@
+
+class Page
+
+  include DataMapper::Resource
+  include DataMapper::Validate
+  
+  property :id, Integer, :key => true, :serial => true
+  property :version, Integer, :key => true
+  property :body, DataMapper::Types::Text
+  property :filter, DataMapper::Types::Text
+  property :parent_id, Integer
+  property :path, DataMapper::Types::Text, :key => true
+  property :created_at, DateTime
+  property :updated_at, DateTime
+  property :position, Integer
+  property :author, DataMapper::Types::Text
+  property :layout, Integer
+  property :title, DataMapper::Types::Text
+  property :keywords, DataMapper::Types::Text
+
+end

data/lib/merbiful-release/merbiful.rb~

@@ -0,0 +1,8 @@
+
+class Merbiful < Application
+
+  def peek
+    
+  end
+
+end

data/lib/merbiful-release/page.rb

@@ -0,0 +1,98 @@
+
+module Merbiful
+
+  class Page
+
+    class NoSuchFilterError < RuntimeError
+    end
+
+    include DataMapper::Resource
+    include DataMapper::Validate
+    extend Forwardable
+
+    property :id, Serial
+    property :parent_id, Integer, :index => true
+
+    property :path, DataMapper::Types::Text, :unique_index => true, :nullable => false
+    property :position, Integer
+    property :cached, Boolean, :default => true, :nullable => false
+
+    property :created_at, DateTime
+    property :updated_at, DateTime
+
+    belongs_to :parent, :class_name => "Merbiful::Page", :child_key => [:parent_id]
+    has n, :children, :class_name => "Merbiful::Page", :child_key => [:parent_id]
+    has n, :versions, :class_name => "Merbiful::Page::Version"
+
+    validates_is_unique :path
+
+    before :save do
+      if self.position.nil?
+        last_position = self.class.first(:parent_id => self.parent_id, :id.not => self.id)
+        if last_position.nil?
+          self.position = 0
+        else
+          self.position = last_position.position + 1
+        end
+      end
+    end
+
+    def latest
+      versions.first(:page_id => self.id, :order => [:id.desc])
+    end
+
+    def_delegators :latest, :render, :layout, :csses, :add_css, :remove_css, :jses, :add_js, :remove_js, :body, :filter, :title, :keywords
+
+    class Version
+
+      include DataMapper::Resource
+      include DataMapper::Validate
+      include Merbiful::Body
+      
+      property :id, Serial
+      
+      property :page_id, Integer, :nullable => false, :index => true
+      property :layout_id, Integer, :index => true
+      
+      property :body, DataMapper::Types::Text
+      property :filter, DataMapper::Types::Text
+      property :title, DataMapper::Types::Text
+      property :keywords, DataMapper::Types::Text
+      
+      property :created_at, DateTime
+      property :updated_at, DateTime
+      
+      belongs_to :page, :class_name => "Merbiful::Page"
+      belongs_to :layout, :class_name => "Merbiful::Layout"
+
+      has n, :css_nesses, :class_name => "Merbiful::Css::Ness"
+      has n, :csses, :through => :css_nesses, :class_name => "Merbiful::Css", :remote_name => :css
+
+      has n, :js_nesses, :class_name => "Merbiful::Js::Ness"
+      has n, :jses, :through => :js_nesses, :class_name => "Merbiful::Js", :remote_name => :js
+
+      before :save do
+        clear_cache(page.path) if page.latest
+      end
+      
+      def add_css(css)
+        Merbiful::Css::Ness.new(:css => css, :page_version => self).save
+      end
+      
+      def remove_css(css)
+        css_nesses.first(:css_id => css.id).destroy
+      end
+
+      def add_js(js)
+        Merbiful::Js::Ness.new(:js => js, :page_version => self).save
+      end
+
+      def remove_js(js)
+        js_nesses.first(:js_id => js.id).destroy
+      end
+
+    end
+
+  end
+
+end

data/lib/merbiful-release/page.rb~

@@ -0,0 +1,57 @@
+
+module Merbiful
+
+  class Page
+
+    class NoSuchFilterError < RuntimeError
+    end
+
+    include DataMapper::Resource
+    include DataMapper::Validate
+    include Merbiful::Body
+
+    validates_is_unique :version, :scope => [:path]
+
+    property :id, Serial
+    property :version, Integer, :index => true
+    property :body, DataMapper::Types::Text
+    property :filter, DataMapper::Types::Text
+    property :path, DataMapper::Types::Text, :index => true
+    property :position, Integer
+    property :created_at, DateTime
+    property :updated_at, DateTime
+    property :title, DataMapper::Types::Text
+    property :keywords, DataMapper::Types::Text
+    property :parent_path, DataMapper::Types::Text
+    property :layout_id, Integer
+
+    belongs_to :layout, :class_name => "Merbiful::Layout"
+
+    before :save do
+      last_version = self.class.first(:path => self.path, :order => [:version.desc])
+      if last_version.nil?
+        self.version = 0
+      else
+        self.version = last_version.version + 1
+      end
+      if self.position.nil?
+        last_position = self.class.first(:parent_path => self.parent_path, :path.not => self.path)
+        if last_position.nil?
+          self.position = 0
+        else
+          self.position = last_position.position + 1
+        end
+      end
+      if self.path.nil?
+        self.path = "/"
+      end
+
+    end
+
+    def children
+      Page.find_by_sql(["SELECT id FROM merbiful_pages WHERE parent_path = ? GROUP BY path ORDER BY version DESC", self.path])
+    end
+
+  end
+
+end

data/lib/merbiful-release/relative_time.rb

@@ -0,0 +1,116 @@
+
+module Merbiful
+
+  module RelativeTimeHelpers
+
+    class << self
+      attr_accessor :time_class
+      attr_accessor :time_output
+    end
+    
+    self.time_class = Time
+    self.time_output = {
+      :today          => 'today',
+      :yesterday      => 'yesterday',
+      :tomorrow       => 'tomorrow',
+      :initial_format => '%b %d',
+      :year_format    => ', %Y'
+    }
+    
+    def distance_of_time_in_words(from_time, to_time = 0, include_seconds = false)
+      from_time = from_time.to_time if from_time.respond_to?(:to_time)
+      to_time = to_time.to_time if to_time.respond_to?(:to_time)
+      distance_in_minutes = (((to_time - from_time).abs)/60).round
+      distance_in_seconds = ((to_time - from_time).abs).round
+      
+      case distance_in_minutes
+      when 0..1
+        return (distance_in_minutes == 0) ? 'less than a minute' : '1 minute' unless include_seconds
+        case distance_in_seconds
+        when 0..4   then 'less than 5 seconds'
+        when 5..9   then 'less than 10 seconds'
+        when 10..19 then 'less than 20 seconds'
+        when 20..39 then 'half a minute'
+        when 40..59 then 'less than a minute'
+        else             '1 minute'
+        end
+        
+      when 2..44           then "#{distance_in_minutes} minutes"
+      when 45..89          then 'about 1 hour'
+      when 90..1439        then "about #{(distance_in_minutes.to_f / 60.0).round} hours"
+      when 1440..2879      then '1 day'
+      when 2880..43199     then "#{(distance_in_minutes / 1440).round} days"
+      when 43200..86399    then 'about 1 month'
+      when 86400..525599   then "#{(distance_in_minutes / 43200).round} months"
+      when 525600..1051199 then 'about 1 year'
+      else                      "over #{(distance_in_minutes / 525600).round} years"
+      end
+    end
+    
+    def time_ago_in_words(from_time, include_seconds = false)
+      distance_of_time_in_words(from_time, Time.now, include_seconds)
+    end
+    
+    def relative_date(time)
+      date  = time.to_date
+      today = time_class.now.to_date
+      if date == today
+        time_output[:today]
+      elsif date == (today - 1)
+        time_output[:yesterday]
+      elsif date == (today + 1)
+        time_output[:tomorrow]
+      else
+        fmt  = time_output[:initial_format].dup
+        fmt << time_output[:year_format] unless date.year == today.year
+        time.strftime_ordinalized(fmt)
+      end
+    end
+    
+    def relative_date_span(times)
+      times = [times.first, times.last].collect!(&:to_date)
+      times.sort!
+      if times.first == times.last
+        relative_date(times.first)
+      else
+        first = times.first; last = times.last; now = time_class.now
+        [first.strftime_ordinalized('%b %d')].tap do |arr|
+          arr << ", #{first.year}" unless first.year == last.year
+          arr << ' - '
+          arr << last.strftime('%b') << ' ' unless first.year == last.year && first.month == last.month
+          arr << last.day.ordinalize
+          arr << ", #{last.year}" unless first.year == last.year && last.year == now.year
+        end.to_s
+      end
+    end
+    
+    def relative_time_span(times)
+      times = [times.first, times.last].collect!(&:to_time)
+      times.sort!
+      if times.first == times.last
+        "#{prettier_time(times.first)} #{relative_date(times.first)}"
+      elsif times.first.to_date == times.last.to_date
+          same_half = (times.first.hour/12 == times.last.hour/12)
+          "#{prettier_time(times.first, !same_half)} - #{prettier_time(times.last)} #{relative_date(times.first)}"
+
+      else
+        first = times.first; last = times.last; now = time_class.now        
+        [prettier_time(first)].tap do |arr|
+          arr << ' '
+          arr << first.strftime_ordinalized('%b %d')
+          arr << ", #{first.year}" unless first.year == last.year
+          arr << ' - '
+          arr << prettier_time(last)
+          arr << ' '
+          arr << last.strftime('%b') << ' ' unless first.year == last.year && first.month == last.month
+          arr << last.day.ordinalize
+          arr << ", #{last.year}" unless first.year == last.year && last.year == now.year
+        end.to_s
+      end
+    end
+    
+    def prettier_time(time, ampm=true)
+      time.strftime("%I:%M#{" %p" if ampm}").sub(/^0/, '')
+    end
+  end
+end

data/lib/merbiful-release/relative_time.rb~

@@ -0,0 +1,78 @@
+module Merbiful
+
+  module RelativeTimeHelpers
+    mattr_accessor :time_class
+    mattr_accessor :time_output
+    
+    self.time_class = Time
+    self.time_output = {
+      :today          => 'today',
+      :yesterday      => 'yesterday',
+      :tomorrow       => 'tomorrow',
+      :initial_format => '%b %d',
+      :year_format    => ', %Y'
+    }
+
+    def relative_date(time)
+      date  = time.to_date
+      today = time_class.now.to_date
+      if date == today
+        time_output[:today]
+      elsif date == (today - 1)
+        time_output[:yesterday]
+      elsif date == (today + 1)
+        time_output[:tomorrow]
+      else
+        fmt  = time_output[:initial_format].dup
+        fmt << time_output[:year_format] unless date.year == today.year
+        time.strftime_ordinalized(fmt)
+      end
+    end
+    
+    def relative_date_span(times)
+      times = [times.first, times.last].collect!(&:to_date)
+      times.sort!
+      if times.first == times.last
+        relative_date(times.first)
+      else
+        first = times.first; last = times.last; now = time_class.now
+        [first.strftime_ordinalized('%b %d')].tap do |arr|
+          arr << ", #{first.year}" unless first.year == last.year
+          arr << ' - '
+          arr << last.strftime('%b') << ' ' unless first.year == last.year && first.month == last.month
+          arr << last.day.ordinalize
+          arr << ", #{last.year}" unless first.year == last.year && last.year == now.year
+        end.to_s
+      end
+    end
+    
+    def relative_time_span(times)
+      times = [times.first, times.last].collect!(&:to_time)
+      times.sort!
+      if times.first == times.last
+        "#{prettier_time(times.first)} #{relative_date(times.first)}"
+      elsif times.first.to_date == times.last.to_date
+          same_half = (times.first.hour/12 == times.last.hour/12)
+          "#{prettier_time(times.first, !same_half)} - #{prettier_time(times.last)} #{relative_date(times.first)}"
+
+      else
+        first = times.first; last = times.last; now = time_class.now        
+        [prettier_time(first)].tap do |arr|
+          arr << ' '
+          arr << first.strftime_ordinalized('%b %d')
+          arr << ", #{first.year}" unless first.year == last.year
+          arr << ' - '
+          arr << prettier_time(last)
+          arr << ' '
+          arr << last.strftime('%b') << ' ' unless first.year == last.year && first.month == last.month
+          arr << last.day.ordinalize
+          arr << ", #{last.year}" unless first.year == last.year && last.year == now.year
+        end.to_s
+      end
+    end
+    
+    def prettier_time(time, ampm=true)
+      time.strftime("%I:%M#{" %p" if ampm}").sub(/^0/, '')
+    end
+  end
+end

data/lib/merbiful-release/routes.rb

@@ -0,0 +1,42 @@
+
+Merb.logger.info("Compiling merbiful routes...")
+Merb::Router.append do |r|
+  r.match("/merbiful_admin").to(:controller => "admin", :namespace => "merbiful", :action => "index").name(:merbiful_admin_index)
+  r.match("/merbiful_admin/:action").to(:controller => "admin", :namespace => "merbiful").name(:merbiful_admin)
+  r.match("/stylesheets/admin").to(:controller => "admin", :namespace => "merbiful", :action => "render_css").name(:merbiful_admin_css)
+  r.match("/stylesheets/:id").to(:controller => "controller", :namespace => "merbiful", :action => "css")
+  r.match("/javascripts/:id").to(:controller => "controller", :namespace => "merbiful", :action => "js")
+  r.match(/(.*)/).to(:controller => "controller", :namespace => "merbiful", :action => "display", :what => "[1]")
+end
+
+module Merbiful
+
+  PREPEND_ROUTES = Merb::Router.routes[0..4]
+  APPEND_ROUTES = Merb::Router.routes[5..-1]
+
+end
+
+module Merb
+
+  class Router
+
+    class << self
+
+      alias :merbiful_old_prepare :prepare
+      
+      def prepare(first = [], last = [], &block)
+        merbiful_old_prepare(first + ::Merbiful::PREPEND_ROUTES, last + ::Merbiful::APPEND_ROUTES, &block)
+      end
+
+      alias :merbiful_old_compile :compile
+
+      def compile
+        merbiful_old_compile unless compiled_statement.blank?
+      end
+
+    end
+
+  end
+
+end
+

data/lib/merbiful-release/routes.rb~

@@ -0,0 +1,4 @@
+Merb.logger.info("Compiling merbiful routes...")
+Merb::Router.prepare do |r|
+  r.match(/(.*)/).to(:controller => "merbiful", :action => "peek")
+end

data/lib/merbiful-release/version.rb~

@@ -0,0 +1,45 @@
+
+module Merbiful
+
+  class Page
+
+    class NoSuchFilterError < RuntimeError
+    end
+
+    include DataMapper::Resource
+    include DataMapper::Validate
+    include Merbiful::Body
+
+    validates_is_unique :version, :scope => [:path]
+
+    property :id, Serial
+    property :version, Integer, :index => true
+    property :body, DataMapper::Types::Text
+    property :filter, DataMapper::Types::Text
+    property :path, DataMapper::Types::Text, :index => true
+    property :position, Integer
+    property :created_at, DateTime
+    property :updated_at, DateTime
+    property :title, DataMapper::Types::Text
+    property :keywords, DataMapper::Types::Text
+    property :parent_path, DataMapper::Types::Text
+    property :layout_id, Integer
+
+    before :save do
+      if self.position.nil?
+        last_position = self.class.first(:parent_path => self.parent_path, :path.not => self.path)
+        if last_position.nil?
+          self.position = 0
+        else
+          self.position = last_position.position + 1
+        end
+      end
+      if self.path.nil?
+        self.path = "/"
+      end
+
+    end
+
+  end
+
+end