starapor-slippers 0.0.0

data/examples/todolist/spec/todolist.rb

@@ -0,0 +1,133 @@
+require 'rubygems'
+require 'ramaze'
+require 'ramaze/spec/helper'
+
+spec_require 'hpricot'
+
+$LOAD_PATH.unshift base = __DIR__('..')
+require 'start'
+
+describe 'todolist' do
+  behaves_like 'http'
+
+  def h_get(*args)
+    Hpricot(get(*args).body)
+  end
+
+  def task_titles
+    doc = h_get('/')
+    doc.search("td[@class='title']").
+      map{|t| t.inner_html.strip}.sort
+  end
+
+  def tasks
+    (h_get('/')/:tr)
+  end
+
+  def task(name)
+    tasks.find do |task|
+      (task/:td).find do |td|
+        td['class'] == 'title' and
+        td.inner_html.strip == name
+      end
+    end
+  end
+
+  def spectask
+    task('spectask')
+  end
+
+  def spectask_status
+    spectask.search("td[@class='status']").inner_html.strip
+  end
+
+  def error_on_page(url, response)
+    doc = h_get(url, :cookie => response.headers['Set-Cookie'])
+
+    error = doc.search("div[@class='error']")
+    error.inner_html.strip
+  end
+
+  it 'should start' do
+    ramaze :public_root => base/:public,
+           :view_root   => base/:template
+    get('/').status.should == 200
+  end
+
+  it 'should have no empty mainpage' do
+    get('/').body.should.not == nil
+  end
+
+  it 'should have two preset tasks' do
+    task_titles.should == %w[Laundry Wash\ dishes]
+  end
+
+  it 'should have a link to new tasks' do
+    doc = h_get('/')
+    link = (doc/:a).find{|a| a.inner_html == 'New Task'}
+    link['href'].should == '/new'
+  end
+
+  it 'should have a page to create new tasks' do
+    get('/new').body.should.not == nil
+  end
+
+  it 'should have a form to create a tasks on the /new page' do
+    doc = h_get('/new')
+    form = doc.at :form
+    form.should.not == nil
+    input = form.at(:input)
+    input['type'].should == 'text'
+    input['name'].should == 'title'
+  end
+
+  it 'should POST new task and redirect to /' do
+    result = post('/create', 'title' => 'spectask')
+    result.status.should == 302
+  end
+
+  it 'should show have the new task' do
+    task_titles.should.include('spectask')
+  end
+
+  it 'should toggle the spectask' do
+    get('/close/spectask').status.should == 302
+    spectask.should.not == nil
+    spectask_status.should == 'done'
+    get('/open/spectask').status.should == 302
+    spectask.should.not == nil
+    spectask_status.should == 'not done'
+  end
+
+  it 'should raise on modifying a not existing task' do
+    %w[open close].each do |action|
+      response = get("/#{action}/nothere", :referrer => "/")
+      response.status.should == 302
+      response.original_headers['Location'].should == '/'
+      error_on_page('/', response).should == "No such Task: `nothere'"
+    end
+  end
+
+  it 'should delete the new task' do
+    get('/delete/spectask').status.should == 302
+    task_titles.should.not.include('spectask')
+  end
+
+  it 'should not create empty tasks but show a subtle error message' do
+    response = post('/create', 'title' => '', :referrer => "/new")
+
+    response.status.should == 302
+    response.original_headers['Location'].should == '/new'
+
+    error_on_page('/new', response).should == 'Please enter a title'
+  end
+
+  it 'should escape harmful titles' do
+    response = post('/create', 'title' => '#{puts "gotcha"}')
+
+    task('#{puts "gotcha"}').should.be.nil
+    task('#{puts "gotcha"}').should.not.be.nil
+  end
+
+  FileUtils.rm('todolist.db') rescue nil
+end

data/examples/todolist/src/controller/main.rb

@@ -0,0 +1,71 @@
+#          Copyright (c) 2006 Michael Fellinger m.fellinger@gmail.com
+# All files in this distribution are subject to the terms of the Ruby license.
+
+# Default url mappings are:
+#  a controller called Main is mapped on the root of the site: /
+#  a controller called Something is mapped on: /something
+# If you want to override this, add a line like this inside the class
+#  map '/otherurl'
+# this will force the controller to be mounted on: /otherurl
+
+class MainController < Ramaze::Controller
+  engine :Slippers
+  def index
+    @tasks = []
+    TodoList.original.each do |title, value|
+      if value[:done]
+        status = 'done'
+        toggle = 'open'
+      else
+        status = 'not done'
+        toggle = 'close'
+      end
+      delete = A('Delete', :href => Rs(:delete, title))
+      @tasks << {:title => title, :status => status, :resource => title, :toggle => toggle}
+    end
+    @heading = "TodoList"
+    #@tasks.sort!
+  end
+
+  def create
+    if title = request['title']
+      title.strip!
+      if title.empty?
+        failed("Please enter a title")
+        redirect '/new'
+      end
+      TodoList[title] = {:done => false}
+    end
+  end
+
+  def open title
+    task_status title, false
+  end
+
+  def close title
+    task_status title, true
+  end
+
+  def delete title
+    TodoList.delete title
+  end
+
+  helper :aspect
+  after(:create, :open, :close, :delete){ redirect(Rs()) unless redirected? }
+
+  private
+
+  def failed(message)
+    flash[:error] = message
+  end
+
+  def task_status title, status
+    unless task = TodoList[title]
+      failed "No such Task: `#{title}'"
+      redirect_referer
+    end
+
+    task[:done] = status
+    TodoList[title] = task
+  end
+end

data/examples/todolist/src/element/page.rb

@@ -0,0 +1,31 @@
+#          Copyright (c) 2006 Michael Fellinger m.fellinger@gmail.com
+# All files in this distribution are subject to the terms of the Ruby license.
+
+class Page < Ezamar::Element
+  def render
+    %{
+    <html>
+      <head>
+        <title>TodoList</title>
+        <style>
+          table     { width:       100%;              }
+          tr        { background:  #efe; width: 100%; }
+          tr:hover  { background:  #dfd;              }
+          td.title  { font-weight: bold; width: 60%;  }
+          td.status { margin:      1em;               }
+          a         { color:       #3a3;              }
+        </style>
+      </head>
+      <body>
+        <h1>#{@title}</h1>
+        <?r if flash[:error] ?>
+          <div class="error">
+            \#{flash[:error]}
+          </div>
+        <?r end ?>
+        #{content}
+      </body>
+    </html>
+    }
+  end
+end

data/examples/todolist/src/model.rb

@@ -0,0 +1,14 @@
+#          Copyright (c) 2006 Michael Fellinger m.fellinger@gmail.com
+# All files in this distribution are subject to the terms of the Ruby license.
+
+require 'ramaze/store/default'
+
+TodoList = Ramaze::Store::Default.new('todolist.db')
+
+{
+  'Laundry'     => {:done => false},
+  'Wash dishes' => {:done => false},
+
+}.each do |title, value|
+  TodoList[title] = value
+end

data/examples/todolist/start.rb

@@ -0,0 +1,11 @@
+#          Copyright (c) 2006 Michael Fellinger m.fellinger@gmail.com
+# All files in this distribution are subject to the terms of the Ruby license.
+
+require 'rubygems'
+require 'ramaze'
+
+require 'src/controller/main'
+require 'src/element/page'
+require 'src/model'
+
+Ramaze.start :port => 3000

data/examples/todolist/template/index.st

@@ -0,0 +1,39 @@
+<html>
+<head>
+    <title>TodoList</title>
+    <style>
+        table {
+            width: 100%;
+        }
+
+        tr {
+            background: #efe;
+            width: 100%;
+        }
+
+        tr:hover {
+            background: #dfd;
+        }
+
+        td.title {
+            font-weight: bold;
+            width: 60%;
+        }
+
+        td.status {
+            margin: 1em;
+        }
+
+        a {
+            color: #3a3;
+        }
+    </style>
+</head>
+<body>
+<h1>$heading$</h1>
+<a href="/new">New Task</a>
+<table>
+    $tasks:tasks()$
+</table>
+</body>
+</html>

data/examples/todolist/template/index.xhtml

@@ -0,0 +1,17 @@
+<Page title="TodoList">
+  <a href="/new">New Task</a>
+  <?r if @tasks.empty? ?>
+    No Tasks
+  <?r else ?>
+    <table>
+      <?r @tasks.each do |title, status, toggle, delete| ?>
+        <tr>
+          <td class="title">  #{h title}  </td>
+          <td class="status"> #{status} </td>
+          <td class="toggle"> #{toggle} </td>
+          <td class="delete"> #{delete} </td>
+        </tr>
+      <?r end ?>
+    </table>
+  <?r end ?>
+</Page>

data/examples/todolist/template/new.st

@@ -0,0 +1,41 @@
+<html>
+<head>
+    <title>TodoList</title>
+    <style>
+        table {
+            width: 100%;
+        }
+
+        tr {
+            background: #efe;
+            width: 100%;
+        }
+
+        tr:hover {
+            background: #dfd;
+        }
+
+        td.title {
+            font-weight: bold;
+            width: 60%;
+        }
+
+        td.status {
+            margin: 1em;
+        }
+
+        a {
+            color: #3a3;
+        }
+    </style>
+</head>
+<body>
+<h1>New Task</h1>
+<a href="/">Back to TodoList</a>
+<form method="POST" action="create">
+  Task: <input type="text" name="title" /><br />
+  <input type="submit" />
+</form>
+
+</body>
+</html>

data/examples/todolist/template/new.xhtml

@@ -0,0 +1,7 @@
+<Page title="New Task">
+  <a href="/">Back to TodoList</a>
+  <form method="POST" action="create">
+    Task: <input type="text" name="title" /><br />
+    <input type="submit" />
+  </form>
+</Page>

data/examples/todolist/template/tasks.st

@@ -0,0 +1,6 @@
+  <tr>
+    <td class="title">$title$</td>
+    <td class="status">$status$</td>
+    <td class="status"><a href="/$toggle$/$resource$">$toggle$ tasks</a></td>
+    <td class="status"><a href="/delete/$resource$">delete</a></td>
+  </tr>

data/examples/todolist/todolist.db

@@ -0,0 +1,7 @@
+--- 
+Wash dishes: 
+  :done: false
+Watch the tv: 
+  :done: false
+Laundry: 
+  :done: false

data/examples/todolist.db

@@ -0,0 +1,5 @@
+--- 
+Wash dishes: 
+  :done: false
+Laundry: 
+  :done: false

data/examples/view/index.st

@@ -0,0 +1,8 @@
+<html>
+	<head>
+		<title>Slippers</title>
+	</head>
+	<body>
+		$person:person/index()$
+	</body>
+</html>

data/examples/view/person/age.st

@@ -0,0 +1 @@
+was born in $year$

data/examples/view/person/index.st

@@ -0,0 +1,2 @@
+<h3>Introducing....</h3>
+the faboulous <strong>$name$</strong> who $dob:person/age()$

data/examples/view/person/name.st

@@ -0,0 +1 @@
+$first$ $last$

data/lib/engine/binding_wrapper.rb

@@ -0,0 +1,10 @@
+module Slippers
+  class BindingWrapper
+    def initialize(bindings)
+      @bindings = bindings
+    end
+    def [](method)
+      eval('@'+ method.to_s, @bindings) || super
+    end
+  end
+end

data/lib/engine/engine.rb

@@ -0,0 +1,26 @@
+Treetop.load File.dirname(__FILE__) + '/slippers'
+
+module Slippers
+  class Engine
+    
+    def initialize(template, params={})
+      @main_template = Slippers::Template.new(template)
+      @template_group = params[:template_group]
+    end
+    attr_reader :main_template, :template_group
+    
+    def render(object_to_render=nil)
+      parser = SlippersParser.new
+      parser.parse(@main_template.template).eval(object_to_render, @template_group) 
+    end
+    
+    def eql?(other)
+      @main_template.eql?(other.main_template) && @template_group.eql?(other.template_group)
+    end
+    
+    def hash
+      @main_template.hash + @template_group.hash*23
+    end
+
+  end
+end

data/lib/engine/file_template.rb

@@ -0,0 +1,12 @@
+module Slippers 
+  class FileTemplate  < Template
+    def initialize(filename)
+      @filename = filename
+    end
+    attr_reader :filename
+    def template()
+      return @template if @template
+      @template = File.read(@filename)
+    end
+  end
+end

data/lib/engine/slippers.treetop

@@ -0,0 +1,109 @@
+grammar Slippers
+	
+  rule expression
+	 before:some_text templated_expression space after:expression <ExpressionNode> / some_text
+  end
+  
+  rule templated_expression
+    "$" foo "$" <TemplatedExpressionNode>
+  end
+  
+  rule foo
+    apply_attribute_to_template / template / attribute
+  end
+  
+  rule apply_attribute_to_template 
+    attribute apply_op template <ApplyAttributeToTemplateNode>
+  end
+  
+  rule template
+    known_template / anonymous_template
+  end
+  
+  rule known_template
+    template_path "()" <TemplateNode>
+  end
+  
+  rule anonymous_template
+    "{" anonymous_template_words "}" <AnonymousTemplateNode>
+  end
+	  
+  rule attribute
+  	word <AttributeNode>
+  end
+	
+  rule some_text
+    not_delimiter* {
+ 	  def eval(*args)
+ 	   to_s
+ 	  end
+      def to_s
+        text_value
+      end
+    }
+  end
+  
+  rule not_delimiter 
+    !"$" . {
+      def to_s
+        text_value
+      end
+    }
+  end
+  
+  rule anonymous_template_words
+    not_curly* {
+      def to_s
+        text_value
+      end
+    }
+  end
+	
+  rule template_path
+    word_with_underscore ("/" word_with_underscore)? {
+      def to_s
+        text_value
+      end
+    }
+  end
+  
+  rule word_with_underscore
+    word ("_" word)*
+  end
+  
+  rule not_curly
+    !("{" / "}") . {
+      def to_s
+        text_value
+      end
+    }
+  end
+  
+  rule word
+	[a-zA-Z]+ {
+      def to_s
+        text_value
+      end
+      }
+  end
+	
+  rule space
+    ' '* {
+        def eval(object_to_render=nil, template_group=nil)
+          to_s
+        end
+        def to_s
+            text_value
+        end
+      }
+  end
+  
+  rule apply_op
+   ':' {
+      def to_s
+        text_value
+      end
+   }
+  end
+	
+end

data/lib/engine/slippers_nodes.rb

@@ -0,0 +1,90 @@
+module Slippers
+  module AttributeNode 
+
+    def eval(object_to_render, template_group=nil)
+      [object_to_render].flatten.inject('') { |rendered, item| rendered + value_of(item).to_s }
+    end
+
+    def value_of(item)
+      return item.send(to_s) if item.respond_to?(to_s)
+      return item[to_sym] if item.respond_to?('[]'.to_sym) && item[to_sym]
+      ''
+    end
+
+    def to_sym
+      text_value.to_sym
+    end
+    
+    def to_s
+      text_value
+    end
+
+  end
+
+  class TemplateNode < Treetop::Runtime::SyntaxNode
+
+    def eval(object_to_render, template_group)
+      apply_attribute_to_subtemplate(object_to_render, template_group)
+    end
+
+    def apply_attribute_to_subtemplate(item, template_group)
+      return '' unless template_group
+      subtemplate = template_group.find(template_path.to_s)
+      return '' unless (subtemplate && subtemplate.respond_to?('render')) 
+      subtemplate.render(item)
+    end
+
+    def to_s
+      text_value
+    end
+  end
+  
+  class AnonymousTemplateNode < Treetop::Runtime::SyntaxNode
+    
+    def eval(object_to_render, template_group)
+      apply_attribute_to_subtemplate(object_to_render, template_group)
+    end
+    
+    def apply_attribute_to_subtemplate(item, template_group)
+      SlippersParser.new.parse(anonymous_template_words.to_s).eval(item, template_group)
+    end
+    
+    def to_s
+      text_value
+    end
+  end
+
+  class ApplyAttributeToTemplateNode < Treetop::Runtime::SyntaxNode
+
+    def eval(object_to_render, template_group)
+      [object_to_render].flatten.inject('') { |rendered, item| rendered + find_attribute_and_render(item, template_group) }
+    end
+
+    def find_attribute_and_render(item, template_group)
+      object_to_render = attribute.value_of(item)
+      [object_to_render].flatten.inject('') { |rendered, i| rendered + template.apply_attribute_to_subtemplate(i, template_group).to_s }
+    end
+
+
+    def to_s
+      text_value
+    end
+
+  end
+
+  class TemplatedExpressionNode < Treetop::Runtime::SyntaxNode
+
+    def eval(object_to_render, template_group=nil)
+      foo.eval(object_to_render, template_group)
+    end
+
+  end
+
+  class ExpressionNode < Treetop::Runtime::SyntaxNode
+
+    def eval(object_to_render, template_group=nil)
+      before.eval + templated_expression.eval(object_to_render, template_group) + space.eval + after.eval(object_to_render, template_group)
+    end
+
+  end
+end

data/lib/engine/template.rb

@@ -0,0 +1,17 @@
+module Slippers 
+  class Template
+    def initialize(template)
+      @template = template
+    end
+    attr_reader :template
+    
+    def eql?(other)
+      template.eql?(other.template)
+    end
+    
+    def hash
+      template.hash
+    end
+    
+  end    
+end