aslakjo-comatose 2.0.5.2

data/lib/comatose_page.rb

@@ -0,0 +1,141 @@
+# ComatosePage attributes
+#  - parent_id
+#  - title
+#  - full_path
+#  - slug
+#  - keywords
+#  - body
+#  - author
+#  - filter_type
+#  - position
+#  - version
+#  - updated_on
+#  - created_on
+class ComatosePage < ActiveRecord::Base
+  
+  set_table_name 'comatose_pages'
+  
+  # Only versions the content... Not all of the meta data or position
+  acts_as_versioned :table_name=>'comatose_page_versions', :if_changed => [:title, :slug, :keywords, :body]
+  
+  define_option :active_mount_info, {:root=>'', :index=>''}
+
+  acts_as_tree :order => "position, title"
+  acts_as_list :scope => :parent_id
+
+  #before_create :create_full_path
+  before_save :cache_full_path, :create_full_path
+  after_save :update_children_full_path
+
+  # Using before_validation so we can default the slug from the title
+  before_validation do |record|
+    # Create slug from title
+    if record.slug.blank? and !record.title.blank?
+      record.slug = record.title.downcase.lstrip.rstrip.gsub( /[^-a-z0-9~\s\.:;+=_]/, '').gsub(/[\s\.:;=_+]+/, '-').gsub(/[\-]{2,}/, '-').to_s
+    end
+  end
+  
+  # Manually set these, because record_timestamps = false
+  before_create do |record|
+    record.created_on = record.updated_on = Time.now
+  end
+
+  validates_presence_of :title, :on => :save, :message => "must be present"
+  validates_uniqueness_of :slug, :on => :save, :scope=>'parent_id', :message => "is already in use"
+  validates_presence_of :parent_id, :on=>:create, :message=>"must be present"
+
+  # Tests ERB/Liquid content...
+  validates_each :body, :allow_nil=>true, :allow_blank=>true do |record, attr, value|
+    begin
+      body_html = record.to_html
+    rescue SyntaxError
+      record.errors.add :body, "syntax error: #{$!.to_s.gsub('<', '&lt;')}"
+    rescue 
+      record.errors.add :body, "content error: #{$!.to_s.gsub('<', '&lt;')}"
+    end
+  end
+    
+  # Returns a pages URI dynamically, based on the active mount point
+  def uri
+    if full_path == ''
+      active_mount_info[:root]
+    else
+      page_path = (full_path || '').split('/')
+      idx_path = active_mount_info[:index].split('/')
+      uri_root = active_mount_info[:root].split('/')
+      uri_path = ( uri_root + (page_path - idx_path) ).flatten.delete_if {|i| i == "" }
+      ['',uri_path].join('/')
+    end
+  end
+  
+  # Check if a page has a selected keyword... NOT case sensitive. 
+  # So the keyword McCray is the same as mccray
+  def has_keyword?(keyword)
+     @key_list ||= (self.keywords || '').downcase.split(',').map {|k| k.strip }
+     @key_list.include? keyword.to_s.downcase
+   rescue
+     false
+   end
+
+  # Returns the page's content, transformed and filtered...
+  def to_html(options={})
+    #version = options.delete(:version)
+    text = self.body
+    binding = Comatose::ProcessingContext.new(self, options)
+    filter_type = self.filter_type || Comatose.config.default_filter
+    TextFilters.transform(text, binding, filter_type, Comatose.config.default_processor)
+  end
+
+# Static helpers...
+  
+  # Returns a Page with a matching path.
+  def self.find_by_path( path )
+     path = path.split('.')[0] unless path.empty? # Will ignore file extension...
+     path = path[1..-1] if path.starts_with? "/"
+     find( :first, :conditions=>[ 'full_path = ?', path ] )
+  end
+  
+# Overrides...
+
+  # I don't want the AR magic timestamping support for this class...
+  def record_timestamps
+    false
+  end
+  def self.record_timestamps
+    false
+  end
+  
+protected
+
+  # Creates a URI path based on the Page tree
+  def create_full_path
+     if parent_node = self.parent
+        # Build URI Path
+        path = "#{parent_node.full_path}/#{self.slug}"
+        # strip leading space, if there is one...
+        path = path[1..-1] if path.starts_with? "/"
+        self.full_path = path || ""
+     else
+        # I'm the root -- My path is blank
+        self.full_path = ""
+     end
+  end
+  def create_full_path!
+    create_full_path
+    save
+  end
+  
+  # Caches old path (before save) for comparison later
+  def cache_full_path
+    @old_full_path = self.full_path
+  end
+
+  # Updates all this content's child URI paths
+  def update_children_full_path(should_save=true)
+    # OPTIMIZE: Only update all the children if the :slug/:fullpath is different
+    for child in self.children
+      child.create_full_path! unless child.frozen?
+      child.update_children_full_path(should_save)
+    end
+  end
+end

data/lib/liquid/block.rb

@@ -0,0 +1,96 @@
+module Liquid
+  
+  class Block < Tag
+    def parse(tokens)
+      @nodelist ||= []
+      @nodelist.clear
+
+      while token = tokens.shift 
+
+        case token
+        when /^#{TagStart}/                   
+          if token =~ /^#{TagStart}\s*(\w+)\s*(.*)?#{TagEnd}$/
+
+            # if we found the proper block delimitor just end parsing here and let the outer block
+            # proceed                               
+            if block_delimiter == $1
+              end_tag
+              return
+            end
+
+            # fetch the tag from registered blocks
+            if tag = Template.tags[$1]
+              @nodelist << tag.new($2, tokens)
+            else
+              # this tag is not registered with the system 
+              # pass it to the current block for special handling or error reporting
+              unknown_tag($1, $2, tokens)
+            end              
+          else
+            raise SyntaxError, "Tag '#{token}' was not properly terminated with regexp: #{TagEnd.inspect} "
+          end
+        when /^#{VariableStart}/
+          @nodelist << create_variable(token)
+        when ''
+          # pass
+        else
+          @nodelist << token
+        end
+      end       
+      
+      # Make sure that its ok to end parsing in the current block. 
+      # Effectively this method will throw and exception unless the current block is 
+      # of type Document 
+      assert_missing_delimitation!
+    end                     
+    
+    def end_tag      
+    end
+
+    def unknown_tag(tag, params, tokens)
+      case tag 
+      when 'else'
+        raise SyntaxError, "#{block_name} tag does not expect else tag"
+      when 'end'
+        raise SyntaxError, "'end' is not a valid delimiter for #{block_name} tags. use #{block_delimiter}"
+      else
+        raise SyntaxError, "Unknown tag '#{tag}'"
+      end
+    end
+
+    def block_delimiter
+      "end#{block_name}"
+    end                           
+
+    def block_name
+      self.class.name.scan(/\w+$/).first.downcase
+    end
+
+    def create_variable(token)
+      token.scan(/^#{VariableStart}(.*)#{VariableEnd}$/) do |content|
+        return Variable.new(content.first)
+      end
+      raise SyntaxError.new("Variable '#{token}' was not properly terminated with regexp: #{VariableEnd.inspect} ")
+    end
+
+    def render(context)
+      render_all(@nodelist, context)
+    end
+
+    protected
+
+    def assert_missing_delimitation!
+      raise SyntaxError.new("#{block_name} tag was never closed")
+    end
+
+    def render_all(list, context)
+      list.collect do |token|
+        if token.respond_to?(:render)
+          token.render(context)
+        else
+          token.to_s
+        end
+      end      
+    end
+  end  
+end

data/lib/liquid/context.rb

@@ -0,0 +1,190 @@
+module Liquid
+  
+  class ContextError < StandardError
+  end
+  
+  # Context keeps the variable stack and resolves variables, as well as keywords
+  #
+  #   context['variable'] = 'testing'
+  #   context['variable'] #=> 'testing'
+  #   context['true']     #=> true
+  #   context['10.2232']  #=> 10.2232
+  #   
+  #   context.stack do 
+  #      context['bob'] = 'bobsen'
+  #   end
+  #
+  #   context['bob']  #=> nil  class Context
+  class Context
+    attr_reader :assigns
+    attr_accessor :registers
+    
+    def initialize(assigns = {}, registers = nil)
+      @assigns = [assigns]
+      @registers = registers || {}
+    end
+           
+    def strainer
+      @strainer ||= Strainer.create(self)
+    end
+               
+    # adds filters to this context. 
+    # this does not register the filters with the main Template object. see <tt>Template.register_filter</tt> 
+    # for that
+    def add_filters(filter)
+      return unless filter.is_a?(Module)
+      strainer.extend(filter)
+    end
+                              
+    def invoke(method, *args)
+      if strainer.respond_to?(method)
+        strainer.__send__(method, *args)
+      else
+        return args[0]
+      end        
+    end
+
+    # push new local scope on the stack. use <tt>Context#stack</tt> instead
+    def push
+      @assigns.unshift({})
+    end
+    
+    # merge a hash of variables in the current local scope
+    def merge(new_assigns)
+      @assigns[0].merge!(new_assigns)
+    end
+  
+    # pop from the stack. use <tt>Context#stack</tt> instead
+    def pop
+      raise ContextError if @assigns.size == 1 
+      @assigns.shift
+    end
+    
+    # pushes a new local scope on the stack, pops it at the end of the block
+    #
+    # Example:
+    #
+    #   context.stack do 
+    #      context['var'] = 'hi'
+    #   end
+    #   context['var]  #=> nil
+    #
+    def stack(&block)
+      push
+      begin
+        result = yield
+      ensure 
+        pop
+      end
+      result      
+    end
+  
+    # Only allow String, Numeric, Hash, Array or <tt>Liquid::Drop</tt>
+    def []=(key, value)
+      @assigns[0][key] = value
+    end
+  
+    def [](key)
+      resolve(key)
+    end
+  
+    def has_key?(key)
+      resolve(key) != nil
+    end
+        
+    private
+    
+    # Look up variable, either resolve directly after considering the name. We can directly handle 
+    # Strings, digits, floats and booleans (true,false). If no match is made we lookup the variable in the current scope and 
+    # later move up to the parent blocks to see if we can resolve the variable somewhere up the tree.
+    # Some special keywords return symbols. Those symbols are to be called on the rhs object in expressions
+    #
+    # Example: 
+    #
+    #   products == empty #=> products.empty?
+    #
+    def resolve(key)    
+      case key
+      when nil
+        nil
+      when 'true'
+        true
+      when 'false'
+        false
+      when 'empty'
+        :empty?
+      when 'nil', 'null'
+        nil
+      # Single quoted strings
+      when /^'(.*)'$/
+        $1.to_s
+      # Double quoted strings
+      when /^"(.*)"$/
+        $1.to_s        
+      # Integer and floats
+      when /^(\d+)$/ 
+        $1.to_i
+      when /^(\d[\d\.]+)$/ 
+        $1.to_f
+      else
+        variable(key)
+      end
+    end
+    
+    # fetches an object starting at the local scope and then moving up 
+    # the hierachy 
+    def fetch(key)
+      begin
+        for scope in @assigns
+          if scope.has_key?(key)
+            obj = scope[key]
+            if obj.is_a?(Liquid::Drop)
+              obj.context = self 
+            end
+            return obj
+          end
+        end
+      rescue => e
+        raise ContextError, "Could not fetch key #{key} from context: " + e.message
+      end 
+      nil
+    end
+
+    # resolves namespaced queries gracefully.
+    # 
+    # Example
+    # 
+    #  @context['hash'] = {"name" => 'tobi'}
+    #  assert_equal 'tobi', @context['hash.name']
+    def variable(key)                  
+      parts = key.split(VariableAttributeSeparator)
+      
+      
+      if object = fetch(parts.shift).to_liquid
+        object.context = self if object.is_a?(Liquid::Drop)
+        
+        while not parts.size.zero?
+          next_part_name = parts.shift
+          
+          # If the last part of the context variable is .size we just 
+          # return the count of the objects in this object
+          if next_part_name == 'size' and parts.empty?
+            return object.size if object.is_a?(Array)
+            return object.size if object.is_a?(Hash) && !object.has_key?(next_part_name)
+          end
+          
+          return nil if not object.respond_to?(:has_key?)
+          return nil if not object.has_key?(next_part_name)
+          
+          object = object[next_part_name].to_liquid
+          object.context = self if object.is_a?(Liquid::Drop)
+        end
+
+        object
+      else
+        nil
+      end
+    end                                   
+    
+  end
+end

data/lib/liquid/document.rb

@@ -0,0 +1,17 @@
+module Liquid
+  class Document < Block                                                             
+    # we don't need markup to open this block
+    def initialize(tokens)
+      parse(tokens)
+    end                                                                        
+  
+    # There isn't a real delimter   
+    def block_delimiter
+      []
+    end
+  
+    # Document blocks don't need to be terminated since they are not actually opened
+    def assert_missing_delimitation!
+    end    
+  end
+end

data/lib/liquid/drop.rb

@@ -0,0 +1,48 @@
+module Liquid
+  
+  # A drop in liquid is a class which allows you to to export DOM like things to liquid
+  # Methods of drops are callable. 
+  # The main use for liquid drops is the implement lazy loaded objects. 
+  # If you would like to make data available to the web designers which you don't want loaded unless needed then 
+  # a drop is a great way to do that
+  #
+  # Example:
+  #
+  # class ProductDrop < Liquid::Drop
+  #   def top_sales
+  #      Shop.current.products.find(:all, :order => 'sales', :limit => 10 )
+  #   end
+  # end
+  #  
+  # tmpl = Liquid::Template.parse( ' {% for product in product.top_sales %} {{ product.name }} {%endfor%} '  )
+  # tmpl.render('product' => ProductDrop.new ) # will invoke top_sales query. 
+  #
+  # Your drop can either implement the methods sans any parameters or implement the before_method(name) method which is a 
+  # catch all
+  class Drop
+    attr_writer :context
+
+    # Catch all for the method 
+    def before_method(method)
+      nil
+    end
+    
+    # called by liquid to invoke a drop
+    def invoke_drop(method)      
+      result = before_method(method)
+      result ||= send(method.to_sym) if self.class.public_instance_methods.include?(method.to_s)
+      result
+    end
+    
+    def has_key?(name)
+      true
+    end
+    
+    def to_liquid
+      self
+    end
+
+    alias :[] :invoke_drop
+  end
+  
+end

data/lib/liquid/errors.rb

@@ -0,0 +1,7 @@
+module Liquid
+  class FilterNotFound < StandardError
+  end
+
+  class FileSystemError < StandardError
+  end
+end

data/lib/liquid/extensions.rb

@@ -0,0 +1,53 @@
+class String
+  def to_liquid
+    self
+  end
+end
+
+class Array 
+  def to_liquid
+    self
+  end
+end
+
+class Hash 
+  def to_liquid
+    self
+  end
+end
+
+class Numeric
+  def to_liquid
+    self
+  end
+end
+
+class Time
+  def to_liquid
+    self
+  end
+end
+
+class DateTime
+  def to_liquid
+    self
+  end
+end
+
+class Date
+  def to_liquid
+    self
+  end
+end
+
+def true.to_liquid
+  self
+end
+
+def false.to_liquid
+  self
+end
+
+def nil.to_liquid
+  self
+end

data/lib/liquid/file_system.rb

@@ -0,0 +1,62 @@
+module Liquid
+  # A Liquid file system is way to let your templates retrieve other templates for use with the include tag.
+  #
+  # You can implement subclasses that retrieve templates from the database, from the file system using a different 
+  # path structure, you can provide them as hard-coded inline strings, or any manner that you see fit.
+  #
+  # You can add additional instance variables, arguments, or methods as needed.
+  #
+  # Example:
+  #
+  # Liquid::Template.file_system = Liquid::LocalFileSystem.new(template_path)
+  # liquid = Liquid::Template.parse(template)
+  #
+  # This will parse the template with a LocalFileSystem implementation rooted at 'template_path'.
+  class BlankFileSystem
+    # Called by Liquid to retrieve a template file
+    def read_template_file(template_path)
+      raise FileSystemError, "This liquid context does not allow includes."
+    end
+  end
+  
+  # This implements an abstract file system which retrieves template files named in a manner similar to Rails partials,
+  # ie. with the template name prefixed with an underscore. The extension ".liquid" is also added.
+  #
+  # For security reasons, template paths are only allowed to contain letters, numbers, and underscore.
+  #
+  # Example:
+  #
+  # file_system = Liquid::LocalFileSystem.new("/some/path")
+  # 
+  # file_system.full_path("mypartial")       # => "/some/path/_mypartial.liquid"
+  # file_system.full_path("dir/mypartial")   # => "/some/path/dir/_mypartial.liquid"
+  #
+  class LocalFileSystem
+    attr_accessor :root
+    
+    def initialize(root)
+      @root = root
+    end
+    
+    def read_template_file(template_path)
+      full_path = full_path(template_path)
+      raise FileSystemError, "No such template '#{template_path}'" unless File.exists?(full_path)
+      
+      File.read(full_path)
+    end
+    
+    def full_path(template_path)
+      raise FileSystemError, "Illegal template name '#{template_path}'" unless template_path =~ /^[^.\/][a-zA-Z0-9_\/]+$/
+      
+      full_path = if template_path.include?('/')
+        File.join(root, File.dirname(template_path), "_#{File.basename(template_path)}.liquid")
+      else
+        File.join(root, "_#{template_path}.liquid")
+      end
+      
+      raise FileSystemError, "Illegal template path '#{File.expand_path(full_path)}'" unless File.expand_path(full_path) =~ /^#{File.expand_path(root)}/
+      
+      full_path
+    end
+  end
+end

data/lib/liquid/htmltags.rb

@@ -0,0 +1,64 @@
+module Liquid
+  class TableRow < Block                                             
+    Syntax = /(\w+)\s+in\s+(#{AllowedVariableCharacters}+)/   
+    
+    def initialize(markup, tokens)
+      super
+
+      if markup =~ Syntax
+        @variable_name = $1
+        @collection_name = $2
+        @attributes = {}
+        markup.scan(TagAttributes) do |key, value|
+          @attributes[key] = value
+        end
+      else
+        raise SyntaxError.new("Syntax Error in 'table_row loop' - Valid syntax: table_row [item] in [collection] cols=3")
+      end
+    end
+    
+    def render(context)        
+      collection = context[@collection_name] or return ''
+      
+      if @attributes['limit'] or @attributes['offset']
+        limit = context[@attributes['limit']] || -1
+        offset = context[@attributes['offset']] || 0
+        collection = collection[offset.to_i..(limit.to_i + offset.to_i - 1)]
+      end
+            
+      length = collection.length
+      
+      cols = context[@attributes['cols']].to_i
+
+      row = 1
+      col = 0
+
+      result = ["<tr class=\"row1\">\n"]
+      context.stack do 
+
+        collection.each_with_index do |item, index|
+          context[@variable_name] = item
+          context['tablerowloop'] = {
+            'length'  => length,
+            'index'   => index + 1, 
+            'index0'  => index, 
+            'rindex'  => length - index,
+            'rindex0' => length - index -1,
+            'first'   => (index == 0),
+            'last'    => (index == length - 1) }
+                                
+          result << ["<td class=\"col#{col += 1}\">"] + render_all(@nodelist, context) + ['</td>']
+
+          if col == cols and not (index == length - 1)            
+            col  = 0
+            result << ["</tr>\n<tr class=\"row#{row += 1}\">"] 
+          end
+          
+        end
+      end
+      result + ["</tr>\n"]
+    end    
+  end
+  
+  Template.register_tag('tablerow', TableRow)  
+end