bivouac 0.3.0 → 0.4.0

data/examples/blog/app/controllers/comment.rb

@@ -0,0 +1,17 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 14:17:05 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Controllers
+  class CommentAdd
+    def post
+      Comment.create(:username => input.comment_user, :body => input.comment_body,
+        :post_id => input.post_id)
+        
+      redirect PostView, input.post_id
+    end
+  end
+end

data/examples/blog/app/controllers/index.rb

@@ -0,0 +1,15 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 12:28:10 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Controllers
+  class Index < R '/'
+    def get
+      @posts = Post.all(:order => 'updated_at DESC')
+      render :index_index
+    end
+  end
+end

data/examples/blog/app/controllers/login.rb

@@ -0,0 +1,33 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 12:47:18 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Controllers
+  class Login
+    def get
+      @to = input.to
+      render :login_login
+    end
+    
+    def post
+      @user = User.find_by_username_and_password(input.username, input.password)
+      @to = input.to
+      
+      if @user
+        @state.user_id = @user.id
+        if @to
+          redirect @to
+        else
+          redirect R(Index)
+        end
+      else
+        @info = 'Wrong username or password'
+      end
+
+      render :login_login
+    end
+  end
+end

data/examples/blog/app/controllers/logout.rb

@@ -0,0 +1,15 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 12:46:12 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Controllers
+  class Logout
+    def get
+      @state.user_id = nil
+      redirect Index
+    end
+  end 
+end

data/examples/blog/app/controllers/not_found.rb

@@ -0,0 +1,14 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 11:58:29 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog
+  def r404(p=env.PATH)
+    @status = 404
+    @path = p
+    render :not_found
+  end
+end

data/examples/blog/app/controllers/post.rb

@@ -0,0 +1,48 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 12:39:38 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Controllers
+  class PostAdd < R '/post/add'
+    def get
+      require_login!
+      @post = Post.new
+      
+      render :post_add
+    end
+    def post
+      require_login!
+      post = Post.create(:title => input.post_title, :body => input.post_body,
+        :user_id => @state.user_id)
+        
+      redirect PostView, post
+    end
+  end
+  
+  class PostView < R '/post/(\d+)/view'
+    def get(post_id)
+      @post = Post.find(post_id)
+      
+      render :post_view
+    end
+  end
+  
+  class PostEdit < R '/post/(\d+)/edit'
+    def get(post_id)
+      require_login! 
+      @post = Post.find(post_id)
+      
+      render :post_edit
+    end
+    def post(post_id)
+      require_login!
+      @post = Post.find(post_id)
+      @post.update_attributes :title => input.post_title, :body => input.post_body
+      
+      redirect PostView, @post
+    end
+  end
+end

data/examples/blog/app/helpers/_helpers.rb

@@ -0,0 +1,30 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 11:58:26 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+#  DO NOT EDIT THIS FILE OR YOU REALLY KNOW WHAT YOU ARE DOING
+#  USE script/generate helper my_helper
+#
+require 'bivouac/helpers/view/goh/base'
+require 'bivouac/helpers/view/goh/html'
+require 'bivouac/helpers/view/goh/form'
+require 'bivouac/helpers/view/goh/scriptaculous'
+require 'bivouac/helpers/view/goh/javascript'
+require 'bivouac/helpers/view/goh/sound'
+
+helpers = [
+  BivouacHelpers::BaseView,
+  BivouacHelpers::HtmlView, 
+  BivouacHelpers::FormView,
+  BivouacHelpers::ScriptAculoUsView,
+  BivouacHelpers::JavaScriptView, 
+  BivouacHelpers::SoundView, 
+] + viewHelperModule
+
+Blog.module_eval "class Mab < Markaby::Builder; include #{helpers.join(', ')}; end"
+
+if controllerHelperModule.size > 0
+  Blog.class_eval "include #{controllerHelperModule.join(', ')}"
+end

data/examples/blog/app/helpers/blog.rb

@@ -0,0 +1,14 @@
+require 'redcloth'
+
+module Blog::Helpers
+  def logged_in?
+    !!@state.user_id
+  end
+  
+  def require_login!
+    unless logged_in?
+      redirect Blog::Controllers::Login #, :to => @env.REQUEST_URI
+      # throw :halt
+    end
+  end
+end

data/examples/blog/app/models/comment.rb

@@ -0,0 +1,18 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 11:52:56 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Models
+  class Comment < Base
+    belongs_to :post
+    
+    before_save do |record|
+      cloth = RedCloth.new(record.body)
+      cloth.hard_breaks = false
+      record.html_body = cloth.to_html
+    end
+  end
+end

data/examples/blog/app/models/post.rb

@@ -0,0 +1,19 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 11:51:35 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Models
+  class Post < Base
+    belongs_to :user
+    has_many :comments
+
+    before_save do |record|
+      cloth = RedCloth.new(record.body)
+      cloth.hard_breaks = false
+      record.html_body = cloth.to_html
+    end
+  end
+end

data/examples/blog/app/models/user.rb

@@ -0,0 +1,12 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 11:30:33 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Models
+  class User < Base
+    # ...
+  end
+end

data/examples/blog/app/views/_partials.rb

@@ -0,0 +1,81 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 12:20:34 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Views
+  def _admin_menu
+    text [['Log out', R(Logout)], ['New', R(PostAdd)]].map { |name, to|
+      capture { a name, :href => to}
+    }.join(' – ')
+  end
+  
+  def _post(post)
+    h2 post.title
+    p.info do
+      text "Written by <strong>#{post.user.username}</strong> "
+      text post.updated_at.strftime('%B %M, %Y @ %H:%M ')
+      _post_menu(post)
+    end
+    text post.html_body
+  end
+  
+  def _post_menu(post)
+    text '('
+    a 'comments', :href => R(PostView, post)
+    if logged_in?
+      text ', '
+      a 'edit', :href => R(PostEdit, post)
+    end
+    text ')'
+  end
+  
+  def _comment(comment)
+    div.comment do
+      p.cinfo do 
+        text "Comment by <strong>#{comment.username}</strong> "
+        text comment.updated_at.strftime('%B %M, %Y @ %H:%M ')
+      end
+      text comment.html_body
+    end
+    
+    br
+  end
+  
+  def _comments(post)
+    post.comments.each { |c| _comment(c) }
+  end
+  
+  def _add_comment(post)
+    form( :method => "post", :action => R(CommentAdd) ) do
+      label 'Author'
+      input :name => "comment_user", :id => "comment_user", :type => "text"
+      
+      label 'Content'
+      textarea "", :name => "comment_body", :id => "comment_body"
+      
+      br
+      
+      input :type => 'hidden', :name => 'post_id', :value => post.id
+      input :type => 'submit', :class => 'submit', :value => 'Submit'
+    end
+  end
+  
+  def _form(post, opts)
+    form({:method => 'post'}.merge(opts)) do
+      label 'Title', :for => 'post_title'
+      input :name => 'post_title', :id => 'post_title', :type => 'text', 
+            :value => post.title
+  
+      label 'Body', :for => 'post_body'
+      textarea post.body, :name => 'post_body', :id => 'post_body'
+  
+      br
+      
+      input :type => 'hidden', :name => 'post_id', :value => post.id
+      input :type => 'submit', :class => 'submit', :value => 'Submit'
+    end
+  end
+end

data/examples/blog/app/views/index/index.rb

@@ -0,0 +1,23 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 12:28:11 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Views
+  def index_index
+    if @posts.empty?
+      h2 'No posts'
+      p do
+        text 'Could not find any posts. Feel free to '
+        a 'add one', :href => R(PostAdd)
+        text ' yourself'
+      end
+    else
+      @posts.each do |post|
+        _post(post)
+      end
+    end
+  end
+end

data/examples/blog/app/views/layouts/default_layout.rb

@@ -0,0 +1,40 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 11:24:50 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Views
+  
+  # Default Layout  
+  def default_layout
+    html do
+      head do
+        title 'My Blog'
+        stylesheet_link_tag "blog", :media => 'screen'
+      end
+      body do
+        h1 { a 'My Blog', :href => R(Index) }
+    
+        div.wrapper! do
+          text self << yield
+        end
+    
+        hr
+    
+        p.footer! do
+          if logged_in?
+            _admin_menu
+          else
+            a 'Login', :href => R(Login, :to => @env.REQUEST_URI)
+            text ' to the adminpanel'
+          end
+          text ' &ndash; Powered by '
+          a 'Camping', :href => 'http://code.whytheluckystiff.net/camping'
+        end
+      end
+    end
+  end
+
+end

data/examples/blog/app/views/login/login.rb

@@ -0,0 +1,27 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 12:47:18 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Views
+  def login_login
+    h2 'Login'
+    p.info @info if @info
+    
+    form :action => R(Login), :method => 'post' do
+      input :name => 'to', :type => 'hidden', :value => @to if @to
+    
+      label 'Username', :for => 'username'
+      input :name => 'username', :id => 'username', :type => 'text'
+    
+      label 'Password', :for => 'password'
+      input :name => 'password', :id => 'password', :type => 'password'
+      
+      br
+    
+      input :type => 'submit', :class => 'submit', :value => 'Login'
+    end
+  end
+end

data/examples/blog/app/views/not_found.rb

@@ -0,0 +1,13 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 11:24:50 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Views
+  def not_found
+    h1.header { "Blog::Views#not_found" }
+    p "Sorry baby, #{@path} does nor exist !"
+  end
+end

data/examples/blog/app/views/post/add.rb

@@ -0,0 +1,12 @@
+#
+#  Project Blog
+#
+#  Created using bivouac on Thu Nov 13 12:39:39 +0100 2008.
+#  Copyright (c) 2008 __My__. All rights reserved.
+#
+
+module Blog::Views
+  def post_add
+    _form(@post, :action => R(PostAdd))
+  end
+end