314 lines
10 KiB
Ruby
314 lines
10 KiB
Ruby
|
# blorgit --- blogging with org-mode
|
||
|
|
require 'rubygems'
|
||
|
|
require 'sinatra'
|
||
|
|
require 'backend/rewrite_content_disposition'
|
||
|
|
require 'yaml'
|
||
|
|
$global_config ||= YAML.load(File.read(File.join(File.dirname(__FILE__), 'blorgit.yml')))
|
||
|
|
$blogs_dir ||= File.expand_path($global_config[:blogs_dir])
|
||
|
|
$url_prefix ||= $global_config[:url_prefix]
|
||
|
|
require 'backend/init.rb'
|
||
|
|
|
||
|
|
# Configuration (http://sinatra.rubyforge.org/book.html#configuration)
|
||
|
|
#--------------------------------------------------------------------------------
|
||
|
|
use RewriteContentDisposition, {"org" => "attachment"}
|
||
|
|
set(:public, $blogs_dir)
|
||
|
|
enable(:static)
|
||
|
|
set(:app_file, __FILE__)
|
||
|
|
set(:haml, { :format => :html5, :attr_wrapper => '"' })
|
||
|
|
set(:url_prefix, $url_prefix)
|
||
|
|
use_in_file_templates!
|
||
|
|
mime(:org, 'text/org')
|
||
|
|
|
||
|
|
# Routes (http://sinatra.rubyforge.org/book.html#routes)
|
||
|
|
#--------------------------------------------------------------------------------
|
||
|
|
get('/') do
|
||
|
|
if config['index']
|
||
|
|
redirect(path_for(config['index']))
|
||
|
|
else
|
||
|
|
"It seems you haven't yet configured a blogs directory. Try"+
|
||
|
|
" running <tt>rake new</tt> from the root. of your blorgit directory"
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
post(/^\/.search/) do
|
||
|
|
@query = params[:query]
|
||
|
|
@results = Blog.search(params[:query])
|
||
|
|
haml :results
|
||
|
|
end
|
||
|
|
|
||
|
|
get(/^\/\.edit\/(.*)?$/) do
|
||
|
|
pass unless config['editable']
|
||
|
|
path, format = split_format(params[:captures].first)
|
||
|
|
if @blog = Blog.find(path)
|
||
|
|
@title = @blog.title
|
||
|
|
@files = (Blog.files(path) or [])
|
||
|
|
haml :edit
|
||
|
|
else
|
||
|
|
"Nothing here to edit."
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
get(/^\/(.*)?$/) do
|
||
|
|
path, format = split_format(params[:captures].first)
|
||
|
|
@files = (Blog.files(path) or [])
|
||
|
|
@blog = Blog.find(path)
|
||
|
|
if @blog or File.directory?(Blog.expand(path))
|
||
|
|
if format == 'html'
|
||
|
|
@title = @blog ? @blog.title : path
|
||
|
|
haml :blog
|
||
|
|
elsif @blog
|
||
|
|
content_type(format)
|
||
|
|
attachment extension(@blog.path, format)
|
||
|
|
@blog.send("to_#{format}")
|
||
|
|
else
|
||
|
|
pass
|
||
|
|
end
|
||
|
|
elsif config['editable'] and extension(path, 'org').match(Blog.location_regexp)
|
||
|
|
pass if path.match(/^\./)
|
||
|
|
protected!
|
||
|
|
@path = path
|
||
|
|
haml :confirm_create
|
||
|
|
else
|
||
|
|
"Can't create a new page at #{path}"
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
post(/^\/(.*)?$/) do
|
||
|
|
path, format = split_format(params[:captures].first)
|
||
|
|
@blog = Blog.find(path)
|
||
|
|
if params[:comment]
|
||
|
|
pass unless (@blog and config['commentable'])
|
||
|
|
return "Sorry, review your math..." unless params[:checkout] == params[:captca]
|
||
|
|
@blog.add_comment(Comment.build(2, params[:title], params[:author], params[:body]))
|
||
|
|
@blog.save
|
||
|
|
redirect(path_for(@blog))
|
||
|
|
elsif config['editable']
|
||
|
|
protected!
|
||
|
|
if @blog and params[:edit]
|
||
|
|
@blog.body = params[:body]
|
||
|
|
@blog.change_log = params[:change_log] if params[:change_log]
|
||
|
|
@blog.save
|
||
|
|
redirect(path_for(@blog))
|
||
|
|
elsif extension(path, 'org').match(Blog.location_regexp)
|
||
|
|
@blog = Blog.new(:path => extension(path, 'org'),
|
||
|
|
:body => "# -*- mode: org -*-\n#+TITLE: #{File.basename(path)}\n#+OPTIONS: toc:nil ^:nil\n\n")
|
||
|
|
@blog.save
|
||
|
|
redirect(path_for(@blog))
|
||
|
|
elsif path.match(/^\./)
|
||
|
|
pass
|
||
|
|
else
|
||
|
|
"Can't create a new page at #{path}"
|
||
|
|
end
|
||
|
|
else
|
||
|
|
pass
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
# Helpers (http://sinatra.rubyforge.org/book.html#helpers)
|
||
|
|
#--------------------------------------------------------------------------------
|
||
|
|
helpers do
|
||
|
|
def config
|
||
|
|
$local_config_file ||= File.join($blogs_dir, '.blorgit.yml')
|
||
|
|
$local_config ||= $global_config[:config].merge(File.exists?($local_config_file) ? YAML.load(File.read($local_config_file)) : {})
|
||
|
|
config_file = File.join(File.dirname(File.join($blogs_dir, (params[:captures] ? params[:captures].first : ''))), '.blorgit.yml')
|
||
|
|
$local_config.merge((File.exists?(config_file)) ? YAML.load(File.read(config_file)) : {})
|
||
|
|
end
|
||
|
|
|
||
|
|
def split_format(url) url.match(/(.+)\.(.+)/) ? [$1, $2] : [url, 'html'] end
|
||
|
|
|
||
|
|
def path_for(path, opts ={})
|
||
|
|
path = (path.class == Blog ? path.path : path)
|
||
|
|
File.join(options.url_prefix, extension(path, (opts[:format] or nil)))
|
||
|
|
end
|
||
|
|
|
||
|
|
def show(blog, options={}) haml("%a{ :href => '#{path_for(blog)}' } #{blog.title}", :layout => false) end
|
||
|
|
|
||
|
|
def comment(blog, parent_comment) end
|
||
|
|
|
||
|
|
def extension(path, format = nil) (path.match(/^(.+)\..+$/) ? $1 : path)+(format ? "."+format : '') end
|
||
|
|
|
||
|
|
def time_ago(from_time)
|
||
|
|
distance_in_minutes = (((Time.now - from_time.to_time).abs)/60).round
|
||
|
|
case distance_in_minutes
|
||
|
|
when 0..1 then 'about a minute'
|
||
|
|
when 2..44 then "#{distance_in_minutes} minutes"
|
||
|
|
when 45..89 then 'about 1 hour'
|
||
|
|
when 90..1439 then "about #{(distance_in_minutes.to_f / 60.0).round} hours"
|
||
|
|
when 1440..2879 then '1 day'
|
||
|
|
when 2880..43199 then "#{(distance_in_minutes / 1440).round} days"
|
||
|
|
when 43200..86399 then 'about 1 month'
|
||
|
|
when 86400..525599 then "#{(distance_in_minutes / 43200).round} months"
|
||
|
|
when 525600..1051199 then 'about 1 year'
|
||
|
|
else "over #{(distance_in_minutes / 525600).round} years"
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
# from http://www.sinatrarb.com/faq.html#auth
|
||
|
|
def protected!
|
||
|
|
response['WWW-Authenticate'] = %(Basic realm="username and password required") and \
|
||
|
|
throw(:halt, [401, "Not authorized\n"]) and \
|
||
|
|
return unless ((not config['auth']) or authorized?)
|
||
|
|
end
|
||
|
|
|
||
|
|
def authorized?
|
||
|
|
@auth ||= Rack::Auth::Basic::Request.new(request.env)
|
||
|
|
@auth.provided? && @auth.basic? && @auth.credentials && @auth.credentials == config['auth']
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
# HAML Templates (http://haml.hamptoncatlin.com/)
|
||
|
|
#--------------------------------------------------------------------------------
|
||
|
|
__END__
|
||
|
|
@@ layout
|
||
|
|
!!!
|
||
|
|
%html
|
||
|
|
%head
|
||
|
|
%meta{'http-equiv' => "content-type", :content => "text/html;charset=UTF-8"}
|
||
|
|
:javascript
|
||
|
|
function toggle(item) {
|
||
|
|
el = document.getElementById(item);
|
||
|
|
if(el.style.display == "none") { document.getElementById(item).style.display = "block" }
|
||
|
|
else { document.getElementById(item).style.display = "none" }
|
||
|
|
}
|
||
|
|
- if config['favicon']
|
||
|
|
%link{:rel => "icon", :type => "image/x-icon", :href => path_for(config['favicon'], :format => 'ico')}
|
||
|
|
%link{:rel => "stylesheet", :type => "text/css", :href => path_for(config['style'], :format => 'css')}
|
||
|
|
%title= "#{config['title']}: #{@title}"
|
||
|
|
%body
|
||
|
|
#container
|
||
|
|
#titlebar= render(:haml, :titlebar, :layout => false)
|
||
|
|
#insides
|
||
|
|
#sidebar= render(:haml, :sidebar, :locals => { :files => @files }, :layout => false)
|
||
|
|
#contents= yield
|
||
|
|
|
||
|
|
@@ titlebar
|
||
|
|
#title_pre
|
||
|
|
#title
|
||
|
|
%a{ :href => path_for(''), :title => 'home' }= config['title']
|
||
|
|
#title_post
|
||
|
|
#search= haml :search, :layout => false
|
||
|
|
- if @blog
|
||
|
|
#actions
|
||
|
|
%ul
|
||
|
|
- if config['editable']
|
||
|
|
%li
|
||
|
|
%a{ :href => path_for(File.join(".edit", @blog.path)), :title => "edit #{@title}" } edit
|
||
|
|
%li
|
||
|
|
%a{ :href => path_for(@blog, :format => 'org'), :title => 'download as org-mode' } .org
|
||
|
|
%li
|
||
|
|
%a{ :href => path_for(@blog, :format => 'tex'), :title => 'download as LaTeX' } .tex
|
||
|
|
%li
|
||
|
|
%a{ :href => path_for(@blog, :format => 'pdf'), :title => 'download as PDF' } .pdf
|
||
|
|
#title_separator
|
||
|
|
|
||
|
|
@@ sidebar
|
||
|
|
- if (config['recent'] and (config['recent'] > 0))
|
||
|
|
#recent= haml :recent, :layout => false
|
||
|
|
- if (config['dir_list'] and @files)
|
||
|
|
#dir= haml :dir, :locals => { :files => files }, :layout => false
|
||
|
|
|
||
|
|
@@ search
|
||
|
|
%form{ :action => path_for('.search'), :method => :post, :id => :search }
|
||
|
|
%ul
|
||
|
|
%li
|
||
|
|
%input{ :id => :query, :name => :query, :type => :text, :size => 12 }
|
||
|
|
%li
|
||
|
|
%input{ :id => :search, :name => :search, :value => :search, :type => :submit }
|
||
|
|
|
||
|
|
@@ recent
|
||
|
|
%label Recent
|
||
|
|
%ul
|
||
|
|
- Blog.all.sort_by(&:ctime).reverse[(0..(config['recent'] - 1))].each do |blog|
|
||
|
|
%li
|
||
|
|
%a{ :href => path_for(blog)}= blog.title
|
||
|
|
|
||
|
|
@@ dir
|
||
|
|
%label Directory
|
||
|
|
%ul
|
||
|
|
- files.each do |file|
|
||
|
|
%li
|
||
|
|
%a{ :href => path_for(file) + (File.directory?(Blog.expand(file)) ? "/" : "") }= File.basename(file)
|
||
|
|
|
||
|
|
@@ results
|
||
|
|
#results_list
|
||
|
|
%h1
|
||
|
|
Search Results for
|
||
|
|
%em= "/" + @query + "/"
|
||
|
|
%ul
|
||
|
|
- @results.sort_by{ |b,h| -h }.each do |blog, hits|
|
||
|
|
%li
|
||
|
|
%a{ :href => path_for(blog) }= blog.name
|
||
|
|
= "(#{hits})"
|
||
|
|
|
||
|
|
@@ edit
|
||
|
|
%h1= "Edit #{@title}"
|
||
|
|
%form{ :action => path_for(@blog), :method => :post, :id => :comment_form }
|
||
|
|
%textarea{ :id => :body, :name => :body, :rows => 28, :cols => 82 }= @blog.body
|
||
|
|
%br
|
||
|
|
Change log:
|
||
|
|
%input{ :id => :change_log, :name => :change_log, :type => :text }
|
||
|
|
%input{ :id => :submit, :name => :edit, :value => :update, :type => :submit }
|
||
|
|
%a{ :href => path_for(@blog) } Cancel
|
||
|
|
|
||
|
|
@@ blog
|
||
|
|
- if @blog
|
||
|
|
#blog_body= @blog.to_html
|
||
|
|
- if (config['commentable'] and (not @blog.commentable == 'disabled'))
|
||
|
|
#comments= render(:haml, :comments, :locals => {:comments => @blog.comments, :commentable => @blog.commentable}, :layout => false)
|
||
|
|
- else
|
||
|
|
#dir= haml :dir, :locals => { :files => @files }, :layout => false
|
||
|
|
|
||
|
|
@@ comments
|
||
|
|
#existing_commment
|
||
|
|
%label= "Comments (#{comments.size})"
|
||
|
|
%ul
|
||
|
|
- comments.each do |comment|
|
||
|
|
%li
|
||
|
|
%ul
|
||
|
|
%li
|
||
|
|
%label title
|
||
|
|
= comment.title
|
||
|
|
%li
|
||
|
|
%label author
|
||
|
|
= comment.author
|
||
|
|
%li
|
||
|
|
%label date
|
||
|
|
= time_ago(comment.date) + " ago"
|
||
|
|
%li
|
||
|
|
%label comment
|
||
|
|
%div= Blog.string_to_html(comment.body)
|
||
|
|
- unless commentable == 'closed'
|
||
|
|
#new_comment
|
||
|
|
%label{ :onclick => "toggle('comment_form');"} Post a new Comment
|
||
|
|
%form{ :action => path_for(@blog), :method => :post, :id => :comment_form, :style => 'display:none' }
|
||
|
|
- equation = "#{rand(10)} #{['+', '*', '-'].sort_by{rand}.first} #{rand(10)}"
|
||
|
|
%ul
|
||
|
|
%li
|
||
|
|
%label name
|
||
|
|
%input{ :id => :author, :name => :author, :type => :text }
|
||
|
|
%li
|
||
|
|
%label title
|
||
|
|
%input{ :id => :title, :name => :title, :type => :text, :size => 36 }
|
||
|
|
%li
|
||
|
|
%label comment
|
||
|
|
%textarea{ :id => :body, :name => :body, :rows => 8, :cols => 68 }
|
||
|
|
%li
|
||
|
|
%input{ :id => :checkout, :name => :checkout, :type => :hidden, :value => eval(equation) }
|
||
|
|
%span
|
||
|
|
%p to protect against spam, please answer the following
|
||
|
|
= equation + " = "
|
||
|
|
%input{ :id => :captca, :name => :captca, :type => :text, :size => 4 }
|
||
|
|
%li
|
||
|
|
%input{ :id => :submit, :name => :comment, :value => :comment, :type => :submit }
|
||
|
|
|
||
|
|
@@ confirm_create
|
||
|
|
%form{ :action => path_for(@path), :method => 'post', :id => 'creation_form'}
|
||
|
|
%label
|
||
|
|
Create a new page at
|
||
|
|
%em= @path
|
||
|
|
?
|
||
|
|
%input{ :id => 'submit', :name => 'submit', :value => 'create', :type => 'submit' }
|
||
|
|
%a{ :href => path_for('/') } cancel
|
||
|
|
|