diff options
Diffstat (limited to 'emacs.d/nxhtml/tests/in/blorgit.rb')
| -rw-r--r-- | emacs.d/nxhtml/tests/in/blorgit.rb | 313 |
1 files changed, 313 insertions, 0 deletions
diff --git a/emacs.d/nxhtml/tests/in/blorgit.rb b/emacs.d/nxhtml/tests/in/blorgit.rb new file mode 100644 index 0000000..5ec40e5 --- /dev/null +++ b/emacs.d/nxhtml/tests/in/blorgit.rb @@ -0,0 +1,313 @@ +# 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 + |