docs.rb

require 'sinatra'
require 'haml'
require 'sass'
require 'compass'
require 'fancy-buttons'
require 'rdiscount'
require 'mail'

H1_FORMAT = /<h1>(.*)<\/h1>/i

configure do
  Compass.configuration do |config|
    config.project_path = File.dirname(__FILE__)
    config.sass_dir = 'views'
  end
  
  set :haml, { :format => :html5 }
  set :sass, Compass.sass_engine_options
end

helpers do
  def protected!
    unless authorized?
      response['WWW-Authenticate'] = %(Basic realm="Testing HTTP Auth")
      throw(:halt, [401, "Not authorized\n"])
    end
  end

  def authorized?
    @auth ||=  Rack::Auth::Basic::Request.new(request.env)
    @auth.provided? && @auth.basic? && @auth.credentials && @auth.credentials == ['docs', ENV["DOCS_PASSWORD"] || 'preview']
  end
end

get '/' do
  redirect '/faqs'
end

get '/:id' do
  protected! if params[:id][0..0] == '_' # protect files that start underscored
  
  if get_path(params[:id])
    doc = RDiscount.new(File.read(get_path(params[:id])), :autolink)
    html = doc.to_html
  
    h1_match = html.match(H1_FORMAT)
    
    @title = h1_match[1] if h1_match
    @body = html.gsub(H1_FORMAT, '')
    
    @docs = Hash[*Dir[File.join(File.dirname(__FILE__), "docs/*.md")].sort.map do |d|
      match = d.match(/([^\/]*).md/)
      if match && match[1][0..0] != '_' # only if there is a match and this is not underscored to protect
        [match[1][0..0].upcase + match[1][1..-1].gsub('_', ' '), match[1]]
      else
        []
      end
    end.flatten]
    
    haml :doc
  else
    pass
  end
end

get '/stylesheets/docs.css' do
  content_type 'text/css', :charset => 'utf-8'
  sass :docs
end

post /\/incoming_mail\/?/i do
  mail = Mail.new(params[:message])
  mail.subject
end

def get_path(file_name)
  File.join(File.dirname(__FILE__), "docs/#{file_name}.md")
end