lokka 0.1.1

data/init.rb

@@ -0,0 +1,7 @@
+$:.unshift File.expand_path(File.join(File.dirname(__FILE__)))
+$:.unshift File.expand_path(File.join(File.dirname(__FILE__), 'lib'))
+
+require 'rubygems'
+require 'bundler'
+Bundler.setup
+require 'lokka'

data/install.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+
+def _run(cmd)
+  puts cmd
+  system cmd
+end
+
+Dir.chdir(File.dirname(__FILE__))
+
+_run 'gem update --system'
+_run 'gem install bundler --no-rdoc --no-ri --version "1.0.3"'
+_run 'bundle install --path bundle --without production test'
+_run 'bundle exec rake db:reset'
+puts '--- Installation complete ---'
+puts 'Press Enter.'
+STDIN.getc

data/lib/lokka.rb

@@ -0,0 +1,138 @@
+# coding: utf-8
+require 'rubygems'
+require 'pathname'
+require 'erb'
+require 'ostruct'
+require 'digest/sha1'
+
+require 'active_support/all'
+require 'sinatra/base'
+require 'sinatra/r18n'
+require 'sinatra/content_for'
+require 'rack/flash'
+require 'dm-core'
+require 'dm-timestamps'
+require 'dm-migrations'
+require 'dm-validations'
+require 'dm-types'
+require 'dm-is-tree'
+require 'dm-tags'
+require 'dm-pager'
+require 'haml'
+require 'builder'
+require 'exceptional'
+
+require 'lokka/theme'
+require 'lokka/user'
+require 'lokka/site'
+require 'lokka/option'
+require 'lokka/entry'
+require 'lokka/category'
+require 'lokka/tag'
+require 'lokka/comment'
+require 'lokka/bread_crumb'
+require 'lokka/before'
+require 'lokka/helpers'
+require 'lokka/app'
+
+module Lokka
+  class NoTemplateError < StandardError; end
+
+  class Database
+    def initialize
+      @@models = [Site, Option, User, Entry, Category, Comment, Tag, Tagging]
+    end
+
+    def create
+      puts 'Creating Database...'
+      @@models.each {|m| m.auto_migrate! }
+      self
+    end
+
+    def setup
+      puts 'Initializing Database...'
+      User.create(
+        :name => 'test',
+        :password => 'test',
+        :password_confirmation => 'test')
+      Site.create(
+        :title => 'Test Site',
+        :description => 'description...',
+        :theme => 'jarvi')
+      Post.create(
+        :user_id => 1,
+        :title => "Test Post",
+        :body => "<p>Wellcome to Lokka!</p>\n<p><a href=\"/admin/\">Admin login</a> (user / password : test / test)</p>")
+      self
+    end
+  end
+end
+
+unless String.public_method_defined?(:force_encoding)
+  class String
+    def force_encoding(encoding)
+      self
+    end
+  end
+end
+
+unless String.public_method_defined?(:encoding)
+  class String
+    def encoding
+      self
+    end
+  end
+end
+
+unless defined? Encoding
+  class Encoding
+    def self.default_external
+      nil
+    end
+  end
+end
+
+module Rack
+  module Utils
+    alias :escape_org :escape
+    alias :unescape_org :unescape
+
+    def escape(s)
+      escape_org(s).force_encoding(Encoding.default_external)
+    end
+    def unescape(s)
+      unescape_org(s).force_encoding(Encoding.default_external)
+    end
+  end
+end
+
+module DataMapper
+  module Validations
+    class LengthValidator
+      alias :value_length_org :value_length
+      def value_length(value)
+        value.force_encoding(Encoding.default_external)
+        value_length_org(value)
+      end
+    end
+  end
+end
+
+module LuckySneaks
+  module StringExtensions
+    alias :to_url_org :to_url
+    def to_url
+      self.force_encoding(Encoding.default_external)
+    end
+  end
+end
+
+module Tilt
+  class Template
+    alias :render_org :render
+    def render(scope=Object.new, locals={}, &block)
+      output = render_org(scope, locals, &block)
+      output.force_encoding(Encoding.default_external) unless output.nil?
+    end
+  end
+end

data/lib/lokka/app.rb

@@ -0,0 +1,562 @@
+module Lokka
+  class App < Sinatra::Base
+    def self.load_plugin
+      names = []
+      Dir["public/plugin/lokka-*/lib/lokka/*.rb"].each do |path|
+        paths = path.split(File::SEPARATOR)
+        $:.push File.join(paths[0], paths[1], paths[2], paths[3])
+
+        i18n = File.join(paths[0], paths[1], paths[2], 'i18n')
+        R18n.extension_places << R18n::Loader::YAML.new(i18n) if File.exist? i18n
+
+        name, ext = paths[5].split('.')
+        require "lokka/#{name}"
+        begin
+          plugee = ::Lokka.const_get(name.camelize)
+          register plugee
+          names << name
+        rescue => e
+          puts "plugin #{paths[2]} is identified as a suspect."
+        end
+      end
+
+      plugins = []
+      unless @routes['GET'].blank?
+        matchers = @routes['GET'].map(&:first)
+        names.map do |name|
+          OpenStruct.new(
+            :name => name,
+            :have_admin_page => matchers.any? {|m| m =~ "/admin/plugins/#{name}" })
+        end
+      end
+      set :plugins, plugins
+    end
+
+    configure do
+      enable :method_override, :raise_errors, :static, :sessions
+      disable :logging
+      set :root, File.expand_path('../../..', __FILE__)
+      set :public => Proc.new { File.join(root, 'public') }
+      set :views => Proc.new { public }
+      set :theme => Proc.new { File.join(public, 'theme') }
+      set :config => YAML.load(ERB.new(File.read("#{root}/config.yml")).result(binding))
+      set :supported_templates => %w(erb haml erubis)
+      set :per_page, 10
+      set :admin_per_page, 50
+      set :default_locale, 'en'
+      set :haml, :ugly => false, :attr_wrapper => '"'
+      register Sinatra::R18n
+      register Lokka::Before
+      helpers Sinatra::ContentFor
+      helpers Lokka::Helpers
+      use Rack::Flash
+      use Rack::Exceptional, ENV['EXCEPTIONAL_API_KEY'] || 'key' if ENV['RACK_ENV'] == 'production'
+
+      load_plugin
+    end
+
+    configure :production do
+      DataMapper.setup(:default, ENV['DATABASE_URL'] || config['production']['dsn'])
+    end
+
+    configure :development do
+      DataMapper.setup(:default, config['development']['dsn'])
+    end
+
+    get '/admin/' do
+      render_any :index
+    end
+
+    get '/admin/login' do
+      render_any :login, :layout => false
+    end
+
+    post '/admin/login' do
+      @user = User.authenticate(params[:name], params[:password])
+      if @user
+        session[:user] = @user.id
+        flash[:notice] = t.logged_in_successfully
+        if session[:return_to]
+          redirect_url = session[:return_to]
+          session[:return_to] = false
+          redirect redirect_url
+        else
+          redirect '/admin/'
+        end
+      else
+        @login_failed = true
+        render_any :login, :layout => false
+      end
+    end
+
+    get '/admin/logout' do
+      session[:user] = nil
+      redirect '/admin/login'
+    end
+
+    # posts
+    get '/admin/posts' do
+      @posts = Post.all(:order => :created_at.desc).
+                    page(params[:page], :per_page => settings.admin_per_page)
+      render_any :'posts/index'
+    end
+
+    get '/admin/posts/new' do
+      @post = Post.new(:created_at => DateTime.now)
+      @categories = Category.all.map {|c| [c.id, c.title] }.unshift([nil, t.not_select])
+      render_any :'posts/new'
+    end
+
+    post '/admin/posts' do
+      @post = Post.new(params['post'])
+      @post.user = current_user
+      if @post.save
+        flash[:notice] = t.post_was_successfully_created
+        redirect '/admin/posts'
+      else
+        @categories = Category.all.map {|c| [c.id, c.title] }.unshift([nil, t.not_select])
+        render_any :'posts/new'
+      end
+    end
+
+    get '/admin/posts/:id/edit' do |id|
+      @post = Post.get(id)
+      @categories = Category.all.map {|c| [c.id, c.title] }.unshift([nil, t.not_select])
+      render_any :'posts/edit'
+    end
+
+    put '/admin/posts/:id' do |id|
+      @post = Post.get(id)
+      if @post.update(params['post'])
+        flash[:notice] = t.post_was_successfully_updated
+        redirect '/admin/posts'
+      else
+        @categories = Category.all.map {|c| [c.id, c.title] }.unshift([nil, t.not_select])
+        render_any :'posts/edit'
+      end
+    end
+
+    delete '/admin/posts/:id' do |id|
+      Post.get(id).destroy
+      flash[:notice] = t.post_was_successfully_deleted
+      redirect '/admin/posts'
+    end
+
+    # pages
+    get '/admin/pages' do
+      @pages = Page.all(:order => :created_at.desc).
+                    page(params[:page], :per_page => settings.admin_per_page)
+      render_any :'pages/index'
+    end
+
+    get '/admin/pages/new' do
+      @page = Page.new(:created_at => DateTime.now)
+      @categories = Category.all.map {|c| [c.id, c.title] }.unshift([nil, t.not_select])
+      render_any :'pages/new'
+    end
+
+    post '/admin/pages' do
+      @page = Page.new(params['page'])
+      @page.user = current_user
+      if @page.save
+        flash[:notice] = t.page_was_successfully_created
+        redirect '/admin/pages'
+      else
+        @categories = Category.all.map {|c| [c.id, c.title] }.unshift([nil, t.not_select])
+        render_any :'pages/new'
+      end
+    end
+    
+    get '/admin/pages/:id/edit' do |id|
+      @page = Page.get(id)
+      @categories = Category.all.map {|c| [c.id, c.title] }.unshift([nil, t.not_select])
+      render_any :'pages/edit'
+    end
+    
+    put '/admin/pages/:id' do |id|
+      @page = Page.get(id)
+      if @page.update(params['page'])
+        flash[:notice] = t.page_was_successfully_updated
+        redirect '/admin/pages'
+      else
+        @categories = Category.all.map {|c| [c.id, c.title] }.unshift([nil, t.not_select])
+        render_any :'pages/edit'
+      end
+    end
+
+    delete '/admin/pages/:id' do |id|
+      Page.get(id).destroy
+      flash[:notice] = t.page_was_successfully_deleted
+      redirect '/admin/pages'
+    end
+
+    # comment
+    get '/admin/comments' do
+      @comments = Comment.all(:order => :created_at.desc).
+                    page(params[:page], :per_page => settings.admin_per_page)
+      render_any :'comments/index'
+    end
+
+    get '/admin/comments/new' do
+      @comment = Comment.new(:created_at => DateTime.now)
+      @entries = Entry.all.map {|e| [e.id, e.title] }.unshift([nil, t.not_select])
+      render_any :'comments/new'
+    end
+
+    post '/admin/comments' do
+      @comment = Comment.new(params['comment'])
+      if @comment.save
+        flash[:notice] = t.comment_was_successfully_created
+        redirect '/admin/comments'
+      else
+        @entries = Entry.all.map {|e| [e.id, e.title] }.unshift([nil, t.not_select])
+        render_any :'comments/new'
+      end
+    end
+    
+    get '/admin/comments/:id/edit' do |id|
+      @comment = Comment.get(id)
+      @entries = Entry.all.map {|e| [e.id, e.title] }.unshift([nil, t.not_select])
+      render_any :'comments/edit'
+    end
+    
+    put '/admin/comments/:id' do |id|
+      @comment = Comment.get(id)
+      if @comment.update(params['comment'])
+        flash[:notice] = t.comment_was_successfully_updated
+        redirect '/admin/comments'
+      else
+        @entries = Entry.all.map {|e| [e.id, e.title] }.unshift([nil, t.not_select])
+        render_any :'comments/edit'
+      end
+    end
+
+    delete '/admin/comments/:id' do |id|
+      Comment.get(id).destroy
+      flash[:notice] = t.comment_was_successfully_deleted
+      redirect '/admin/comments'
+    end
+
+    # category
+    get '/admin/categories' do
+      @categories = Category.all.
+                    page(params[:page], :per_page => settings.admin_per_page)
+      render_any :'categories/index'
+    end
+    
+    get '/admin/categories/new' do
+      @category = Category.new
+      @categories = [nil, t.not_select] + Category.all.map {|c| [c.id, c.title] }
+      render_any :'categories/new'
+    end
+    
+    post '/admin/categories' do
+      @category = Category.new(params['category'])
+      #@category.user = current_user
+      if @category.save
+        flash[:notice] = t.category_was_successfully_created
+        redirect '/admin/categories'
+      else
+        render_any :'categories/new'
+      end
+    end
+    
+    get '/admin/categories/:id/edit' do |id|
+      @category = Category.get(id)
+      render_any :'categories/edit'
+    end
+    
+    put '/admin/categories/:id' do |id|
+      @category = Category.get(id)
+      if @category.update(params['category'])
+        flash[:notice] = t.category_was_successfully_updated
+        redirect '/admin/categories'
+      else
+        render_any :'categories/edit'
+      end
+    end
+
+    delete '/admin/categories/:id' do |id|
+      Category.get(id).destroy
+      flash[:notice] = t.category_was_successfully_deleted
+      redirect '/admin/categories'
+    end
+
+    # tag
+    get '/admin/tags' do
+      @tags = Tag.all.
+                    page(params[:page], :per_page => settings.admin_per_page)
+      render_any :'tags/index'
+    end
+
+    get '/admin/tags/:id/edit' do |id|
+      @tag = Tag.get(id)
+      render_any :'tags/edit'
+    end
+
+    put '/admin/tags/:id' do |id|
+      @tag = Tag.get(id)
+      if @tag.update(params['tag'])
+        flash[:notice] = t.tag_was_successfully_updated
+        redirect '/admin/tags'
+      else
+        render_any :'tags/edit'
+      end
+    end
+
+    delete '/admin/tags/:id' do |id|
+      Tag.get(id).destroy
+      flash[:notice] = t.tag_was_successfully_deleted
+      redirect '/admin/tags'
+    end
+
+    # users
+    get '/admin/users' do
+      @users = User.all(:order => :created_at.desc).
+                    page(params[:page], :per_page => settings.admin_per_page)
+      render_any :'users/index'
+    end
+    
+    get '/admin/users/new' do
+      @user = User.new
+      render_any :'users/new'
+    end
+    
+    post '/admin/users' do
+      @user = User.new(params['user'])
+      if @user.save
+        flash[:notice] = t.user_was_successfully_created
+        redirect '/admin/users'
+      else
+        render_any :'users/new'
+      end
+    end
+    
+    get '/admin/users/:id/edit' do |id|
+      @user = User.get(id)
+      render_any :'users/edit'
+    end
+    
+    put '/admin/users/:id' do |id|
+      @user = User.get(id)
+      if @user.update(params['user'])
+        flash[:notice] = t.user_was_successfully_updated
+        redirect '/admin/users'
+      else
+        render_any :'users/edit'
+      end
+    end
+
+    delete '/admin/users/:id' do |id|
+      target_user = User.get(id)
+      if current_user == target_user
+        flash[:alert] = 'Can not delete your self.'
+      else
+        target_user.destroy
+      end
+      flash[:notice] = t.user_was_successfully_deleted
+      redirect '/admin/users'
+    end
+ 
+    # theme
+    get '/admin/themes' do
+      @themes =
+        Dir.glob("#{settings.theme}/*").map do |f|
+          title = f.split('/').last
+          s = Dir.glob("#{f}/screenshot.*")
+          screenshot = s.empty? ? nil : "/#{s.first.split('/')[-3, 3].join('/')}"
+          OpenStruct.new(:title => title, :screenshot => screenshot)
+        end
+      render_any :'themes/index'
+    end
+
+    put '/admin/themes' do
+      site = Site.first
+      site.update(:theme => params[:title])
+      flash[:notice] = t.theme_was_successfully_updated
+      redirect '/admin/themes'
+    end
+
+    # plugin
+    get '/admin/plugins' do
+      render_any :'plugins/index'
+    end
+
+    # site
+    get '/admin/site/edit' do
+      @site = Site.first
+      render_any :'site/edit'
+    end
+
+    put '/admin/site' do
+      if Site.first.update(params['site'])
+        flash[:notice] = t.site_was_successfully_updated
+        redirect '/admin/site/edit'
+      else
+        render_any :'site/edit'
+      end
+    end
+
+    # index
+    get '/' do
+      @theme_types << :index
+      @theme_types << :entries
+
+      @posts = Post.page(params[:page], :per_page => settings.per_page)
+
+      @bread_crumbs = BreadCrumb.new
+      @bread_crumbs.add('Home', '/')
+
+      render_detect :index, :entries
+    end
+
+    get '/index.atom' do
+      @posts = Post.page(params[:page], :per_page => settings.per_page)
+      content_type 'application/atom+xml', :charset => 'utf-8'
+      builder :'system/index'
+    end
+
+    # search
+    get '/search/' do
+      @theme_types << :search
+      @theme_types << :entries
+
+      @query = params[:query]
+      @posts = Post.search(@query).
+                    page(params[:page], :per_page => settings.per_page)
+
+      @title = "Search by #{@query} - #{@site.title}"
+
+      @bread_crumbs = BreadCrumb.new
+      @bread_crumbs.add('Home', '/')
+      @bread_crumbs.add('Search', '/search/')
+
+      render_detect :search, :entries
+    end
+
+    # category
+    get '/category/*/' do |path|
+      @theme_types << :category
+      @theme_types << :entries
+
+      category_title = path.split('/').last
+      @category = Category.get_by_fuzzy_slug(category_title)
+      return 404 if @category.nil?
+      @posts = Post.all(:category => @category).
+                    page(params[:page], :per_page => settings.per_page)
+
+      @title = "#{@category.title} - #{@site.title}"
+
+      @bread_crumbs = BreadCrumb.new
+      @bread_crumbs.add('Home', '/')
+      @category.ancestors.each do |cat|
+        @bread_crumbs.add(cat.name, cat.link)
+      end
+      @bread_crumbs.add(@category.title, @category.link)
+
+      render_detect :category, :entries
+    end
+
+    # tag
+    get '/tags/:tag/' do |tag|
+      @theme_types << :tag
+      @theme_types << :entries
+
+      @tag = Tag.first(:name => tag)
+      return 404 if @tag.nil?
+      @posts = Post.all(:id.in => @tag.taggings.map {|o| o.taggable_id }).
+                    page(params[:page], :per_page => settings.per_page)
+      @title = "#{@tag.name} - #{@site.title}"
+
+      @bread_crumbs = BreadCrumb.new
+      @bread_crumbs.add('Home', '/')
+      @bread_crumbs.add(@tag.name, @tag.link)
+
+      render_detect :tag, :entries
+    end
+
+    # monthly
+    get %r{^/([\d]{4})/([\d]{2})/$} do |year, month|
+      @theme_types << :monthly
+      @theme_types << :entries
+
+      year, month = year.to_i, month.to_i
+      @posts = Post.all(:created_at.gte => DateTime.new(year, month)).
+                    all(:created_at.lt => DateTime.new(year, month) >> 1).
+                    page(params[:page], :per_page => settings.per_page)
+
+      @title = "#{year}/#{month} - #{@site.title}"
+
+      @bread_crumbs = BreadCrumb.new
+      @bread_crumbs.add('Home', '/')
+      @bread_crumbs.add("#{year}", "/#{year}/")
+      @bread_crumbs.add("#{year}/#{month}", "/#{year}/#{month}/")
+
+      render_detect :monthly, :entries
+    end
+
+    # yearly
+    get %r{^/([\d]{4})/$} do |year|
+      @theme_types << :yearly
+      @theme_types << :entries
+
+      year = year.to_i
+      @posts = Post.all(:created_at.gte => DateTime.new(year)).
+                    all(:created_at.lt => DateTime.new(year + 1)).
+                    page(params[:page], :per_page => settings.per_page)
+
+      @title = "#{year} - #{@site.title}"
+
+      @bread_crumbs = BreadCrumb.new
+      @bread_crumbs.add('Home', '/')
+      @bread_crumbs.add("#{year}", "/#{year}/")
+
+      render_detect :yearly, :entries
+    end
+
+    # entry
+    get %r{^/([0-9a-zA-Z-]+)$} do |id_or_slug|
+      @theme_types << :entry
+
+      @entry = Entry.get_by_fuzzy_slug(id_or_slug)
+      return 404 if @entry.blank?
+
+      @title = "#{@entry.title} - #{@site.title}"
+
+      @bread_crumbs = BreadCrumb.new
+      @bread_crumbs.add('Home', '/')
+      if @entry.category
+        @entry.category.ancestors.each do |cat|
+          @bread_crumbs.add(cat.name, cat.link)
+        end
+        @bread_crumbs.add(@entry.category.title, @entry.category.link)
+      end
+      @bread_crumbs.add(@entry.title, @entry.link)
+
+      render_any :entry
+    end
+
+    # comment
+    post %r{^/([0-9a-zA-Z-]+)$} do |id_or_slug|
+      @theme_types << :entry
+
+      @entry = Entry.get_by_fuzzy_slug(id_or_slug)
+      return 404 if @entry.blank?
+
+      @comment = @entry.comments.new(params['comment'])
+      if @comment.save
+        redirect @entry.link
+      else
+        render_any :entry
+      end
+    end
+
+    not_found do
+      haml :'system/404', :layout => false
+    end
+
+    error do
+      'Error: ' + env['sinatra.error'].name
+    end
+  end
+end