lokka 0.1.1

data/lib/lokka/before.rb

@@ -0,0 +1,29 @@
+module Lokka
+  module Before
+    def self.registered(app)
+      app.before do
+        begin
+          Site.first
+        rescue DataObjects::SyntaxError
+          Lokka::Database.new.create.setup
+        end
+      end
+
+      app.before do
+        @site = Site.first
+        @title = @site.title
+        @theme = Theme.new(settings.theme)
+        @theme_types = []
+        session[:locale] = params[:locale] if params[:locale]
+      end
+
+      app.before %r{(?!^/admin/login$)^/admin/.*$} do
+        login_required
+      end
+
+      app.before %r{(?!^/admin/login$)^/admin/.*$} do
+        login_required
+      end
+    end
+  end
+end

data/lib/lokka/bread_crumb.rb

@@ -0,0 +1,34 @@
+class Bread
+  attr_accessor :name, :link, :last
+
+  def initialize(name, link, last = false)
+    @name = name
+    @link = link
+    @last = last
+  end
+
+  def last?
+    @last
+  end
+end
+
+class BreadCrumb
+  include Enumerable
+  attr_accessor :breads
+
+  def initialize(breads = [])
+    @breads = breads
+
+  end
+
+  def add(name, link)
+    @breads << Bread.new(name, link)
+  end
+
+  def each
+    @breads.last.last = true
+    @breads.each do |bread|
+      yield bread
+    end
+  end
+end

data/lib/lokka/category.rb

@@ -0,0 +1,33 @@
+class Category
+  include DataMapper::Resource
+
+  property :id, Serial
+  property :slug, Slug, :length => 255, :unique => true
+  property :title, String, :length => 255, :unique => true
+  property :description, Text
+  property :type, Discriminator
+  property :created_at, DateTime
+  property :updated_at, DateTime
+  property :parent_id, Integer
+
+  is :tree, :order => :title
+
+  has n, :entries
+
+  def self.get_by_fuzzy_slug(str)
+    ret = first(:slug => str)
+    ret.blank? ? get(str) : ret
+  end
+
+  def fuzzy_slug
+    slug.blank? ? id : slug
+  end
+
+  def link
+    cats = [fuzzy_slug]
+    ancestors.each do |ancestor|
+      cats.unshift ancestor.fuzzy_slug
+    end
+    "/category/#{cats.join('/')}/"
+  end
+end

data/lib/lokka/comment.rb

@@ -0,0 +1,26 @@
+class Comment
+  include DataMapper::Resource
+
+  property :id, Serial
+  property :entry_id, Integer
+  property :name, String
+  property :homepage, String
+  property :body, Text
+  property :created_at, DateTime
+  property :updated_at, DateTime
+
+  belongs_to :entry
+
+  default_scope(:default).update(:order => :created_at.desc)
+
+  validates_presence_of :name
+  validates_presence_of :body
+
+  def self.recent(count = 5)
+    all(:limit => count, :order => [:created_at.desc])
+  end
+
+  def link
+    "#{self.entry.link}#comment-#{id}"
+  end
+end

data/lib/lokka/entry.rb

@@ -0,0 +1,70 @@
+# coding: utf-8
+class Entry
+  include DataMapper::Resource
+
+  property :id, Serial
+  property :user_id, Integer
+  property :category_id, Integer
+  property :slug, Slug, :length => 255
+  property :title, String, :length => 255
+  property :body, Text
+  property :type, Discriminator
+  property :created_at, DateTime
+  property :updated_at, DateTime
+
+  belongs_to :user
+  belongs_to :category, :required => false
+  has n, :comments
+
+  has_tags
+
+  default_scope(:default).update(:order => [:created_at.desc])
+
+  validates_presence_of :title
+  validates_uniqueness_of :slug
+  validates_uniqueness_of :title
+
+  def tag_collection=(string)
+    reg = RUBY_VERSION >= "1.9.0" ? /[^\p{Word}_]/i : /[^\w\s_-]/i
+    @tag_list = string.to_s.split(',').map { |name|
+      name.force_encoding(Encoding.default_external).gsub(reg, '').strip
+    }.reject{|x|x.blank?}.uniq.sort
+  end
+
+  def self.get_by_fuzzy_slug(str)
+    ret = first(:slug => str)
+    ret.blank? ? get(str) : ret
+  end
+
+  def self.search(str)
+    all(:title.like => "%#{str}%") |
+    all(:body.like => "%#{str}%")
+  end
+
+  def self.recent(count = 5)
+    all(:limit => count, :order => [:created_at.desc])
+  end
+
+  def fuzzy_slug
+    slug.blank? ? id : slug
+  end
+
+  def link
+    "/#{fuzzy_slug}"
+  end
+
+  def edit_link
+    "/admin/#{self.class.to_s.tableize}/#{id}/edit"
+  end
+
+  def tags_to_html
+    html = '<ul>'
+    tags.each do |tag|
+      html += %Q(<li><a href="#{tag.link}">#{tag.name}</a></li>)
+    end
+    html + '</ul>'
+  end
+end
+
+class Post < Entry; end
+class Page < Entry; end

data/lib/lokka/helpers.rb

@@ -0,0 +1,214 @@
+module Lokka
+  module Helpers
+    include Rack::Utils
+
+    alias :h :escape_html
+
+    def index?;     @theme_types.include?(:index); end
+    def search?;    @theme_types.include?(:search); end
+    def category?;  @theme_types.include?(:category); end
+    def tag?;       @theme_types.include?(:tag); end
+    def yearly?;    @theme_types.include?(:yearly); end
+    def monthly?;   @theme_types.include?(:monthly); end
+    def daily?;     @theme_types.include?(:daily); end
+    def entry?;     @theme_types.include?(:entry); end
+    def entries?;   @theme_types.include?(:entries); end
+
+    # h + n2br
+    def hbr(str)
+      h(str).gsub(/\r\n|\r|\n/, "<br />\n")
+    end
+
+    def login_required
+      if current_user.class != GuestUser
+        return true
+      else
+        session[:return_to] = request.fullpath
+        redirect '/admin/login'
+        return false
+      end
+    end
+
+    def current_user
+      if session[:user]
+        User.get(session[:user])
+      else
+        GuestUser.new
+      end
+    end
+
+    def logged_in?
+      !!session[:user]
+    end
+
+    def bread_crumb
+      html = '<ol>'
+      @bread_crumbs.each do |bread|
+        html += '<li>'
+        if bread.last?
+          html += bread.name
+        else
+          html += "<a href=\"#{bread.link}\">#{bread.name}</a>"
+        end
+        html += '</li>'
+      end
+      html += '</ol>'
+      html
+    end
+
+    def category_tree(categories = Category.roots)
+      html = '<ul>'
+      categories.each do |category|
+        html += '<li>'
+        html += "<a href=\"#{category.link}\">#{category.title}</a>"
+        if category.children.count > 0
+          html += category_tree(category.children)
+        end
+        html += '</li>'
+      end
+      html += '</ul>'
+      html
+    end
+
+    def render_detect(*names)
+      ret = ''
+      names.each do |name|
+        out = render_any(name)
+        unless out.blank?
+          ret = out
+          break
+        end
+      end
+
+      if ret.blank?
+        raise Lokka::NoTemplateError, "Template not found. #{[names.join(', ')]}"
+      else
+        ret
+      end
+    end
+
+    def partial(name, options = {})
+      options[:layout] = false
+      render_any(name, options)
+    end
+
+    def render_any(name, options = {})
+      ret = ''
+      settings.supported_templates.each do |ext|
+        out = rendering(ext, name, options)
+        out.force_encoding(Encoding.default_external) unless out.nil?
+        unless out.blank?
+          ret = out
+          break
+        end
+      end
+      ret
+    end
+
+    def rendering(ext, name, options = {})
+      locals = options[:locals] ? {:locals => options[:locals]} : {}
+      dir = request.path_info =~ %r{^/admin/.*} ? 'admin' : "theme/#{@theme.name}"
+      layout = "#{dir}/layout"
+      path = "#{dir}/#{name}"
+
+      puts "ext, name, theme, dir, file: #{ext}, #{name}, #{@theme.name}, #{dir}, #{settings.views}/#{path}.#{ext}"
+
+      if File.exist?("#{settings.views}/#{layout}.#{ext}")
+        options[:layout] = layout.to_sym if options[:layout].nil?
+      end
+      if File.exist?("#{settings.views}/#{path}.#{ext}")
+        send(ext.to_sym, path.to_sym, options, locals)
+      end
+    end
+
+    def comment_form
+      haml :'system/comments/form', :layout => false
+    end
+
+    def link_to_if(cond, name, url, options = {})
+      cond ? link_to(name, url, options) : name
+    end
+
+    def link_to_unless(cond, name, url, options = {})
+      link_to_if !cond, name, url, options
+    end
+
+    def link_to(name, url, options = {})
+      attrs = {:href => url}
+      if options[:confirm] and options[:method]
+        attrs[:onclick] = "if(confirm('#{options[:confirm]}')){var f = document.createElement('form');f.style.display = 'none';this.parentNode.appendChild(f);f.method = 'POST';f.action = this.href;var m = document.createElement('input');m.setAttribute('type', 'hidden');m.setAttribute('name', '_method');m.setAttribute('value', '#{options[:method]}');f.appendChild(m);f.submit();};return false"
+      end
+
+      options.delete :confirm
+      options.delete :method
+
+      attrs.update(options)
+
+      str = ''
+      attrs.each do |key, value|
+        str += %Q(#{key.to_s}="#{value}")
+      end
+
+      %Q(<a #{str}>#{name}</a>)
+    end
+
+    def select_field(object, method, values = [], options = {})
+      name = "#{object.class.name.downcase}[#{method}]"
+      v = object.send(method)
+
+      attrs = ''
+      options.each do |key, value|
+        attrs += %Q( #{key}="#{value}")
+      end
+
+      html = %Q(<select name="#{name}"#{attrs}>)
+      values.each do |value|
+        padding = value[0] == v ? ' selected="selected"' : ''
+        html += %Q(<option value="#{value[0]}"#{padding}>#{value[1]}</option>)
+      end
+      html + '</select>'
+    end
+
+    def truncate(text, options = {})
+      options = {:length => 30, :ommision => '...'}.merge(options)
+      if options[:length] < text.length
+        text[0..options[:length]] + options[:ommision]
+      else
+        text
+      end
+    end
+
+    def strip_tags(text)
+      text.gsub(/<.+?>/, '')
+    end
+
+    def months
+      ms = {}
+      Post.all.each do |post|
+        m = post.created_at.strftime('%Y-%m')
+        if ms[m].nil?
+          ms[m] = 1
+        else
+          ms[m] += 1
+        end
+      end
+
+      months = []
+      ms.each do |m, count|
+        year, month = m.split('-')
+        months << OpenStruct.new({:year => year, :month => month, :count => count})
+      end
+      months.sort {|x, y| y.year + y.month <=> x.year + x.month }
+    end
+
+    def header
+      s = yield_content :header
+      s unless s.blank?
+    end
+
+    def footer
+      s = yield_content :footer
+      s unless s.blank?
+    end
+  end
+end

data/lib/lokka/option.rb

@@ -0,0 +1,23 @@
+class Option
+  include DataMapper::Resource
+
+  property :name, String, :length => 255, :key => true
+  property :value, Text
+  property :created_at, DateTime
+  property :updated_at, DateTime
+
+  validates_presence_of :name
+
+  def self.method_missing(method, *args)
+    attribute = method.to_s
+    if attribute =~ /=$/
+      column = attribute[0, attribute.size - 1]
+      o = self.first_or_new(:name => column)
+      o.value = args.first
+      o.save
+    else
+      o = self.first_or_new(:name => method)
+      o.value
+    end
+  end
+end

data/lib/lokka/site.rb

@@ -0,0 +1,19 @@
+class Site
+  include DataMapper::Resource
+
+  property :id, Serial
+  property :title, String, :length => 255
+  property :description, String, :length => 255
+  property :theme, String, :length => 64
+  property :created_at, DateTime
+  property :updated_at, DateTime
+
+  def method_missing(method, *args)
+    if method.to_s =~ /=$/
+      super
+    else
+      o = Option.first_or_new(:name => method)
+      o.value
+    end
+  end
+end