root / trunk / examples / campsh.rb

#!/usr/bin/env ruby

$:.unshift File.dirname(__FILE__) + "/../../lib"
%w(rubygems redcloth camping camping/db acts_as_versioned).each { |lib| require lib }
  
Camping.goes :CampSh

module CampSh
    NAME = 'CampSh'
    DESCRIPTION = %{
        Script your own URL commands, then run these commands through 
        the proxy with "cmd/CommandName".  All scripts are versioned 
        and attributed.
    }
    VERSION = '0.1'
    ANON = 'AnonymousCoward'

    begin
        require 'syntax/convertors/html'
        SYNTAX = ::Syntax::Convertors::HTML.for_syntax "ruby"
    rescue LoadError
    end

    def self.create
        Models.create_schema :assume => (Models::Command.table_exists? ? 1.0 : 0.0)
    end
end

module CampSh::Models
    class Command < Base
        validates_uniqueness_of :name
        validates_presence_of :author
        acts_as_versioned
    end
    class CreateBasics < V 1.0
        def self.up
            create_table :campsh_commands do |t|
                t.column :author,     :string,  :limit => 40
                t.column :name,       :string,  :limit => 255
                t.column :created_at, :datetime
                t.column :doc,        :text
                t.column :code,       :text
            end
            Command.create_versioned_table
            Command.reset_column_information
        end
        def self.down
            drop_table :campsh_commands
            Command.drop_versioned_table
        end
    end
end

module CampSh::Controllers
    class Index < R '/'
        def get
            redirect List
        end
    end

    class List
        def get
            @cmds = Command.find :all, :order => 'name'
            @title = "Command List"
            render :list
        end
    end

    class Run < R '/run/(\w+)', '/run/(\w+)/(.+)', '/run/(\w+) (.+)'
        def get(cmd, args=nil)
            @cmd = Command.find_by_name(cmd)
            unless @cmd
                redirect New, name
                return
            end

            args = args.to_s.strip.split(/[\/\s]+/)
            eval(@cmd.code)
        end
    end

    class Authors
        def get
            @authors = 
                Command.find(:all, :order => "author, name").inject({}) do |hsh, cmd|
                    (hsh[cmd.author] ||= []) << cmd
                    hsh
                end
            @title = "Author"
            render :authors
        end
    end

    class Recent
        def get
            @days = 
                Command.find(:all, :order => "created_at DESC").inject({}) do |hsh, cmd|
                    (hsh[cmd.created_at.strftime("%B %d, %Y")] ||= []) << cmd
                    hsh
                end
            @title = "Recently Revised"
            render :recent
        end
    end

    class Show < R '/show/(\w+)', '/show/(\w+)/(\d+)', '/cancel_edit/(\w+)'
        def get(name, version = nil)
            unless @cmd = Command.find_by_name(name)
                redirect(Edit, name)
                return
            end
            @version = (version.nil? or version == @cmd.version.to_s) ? @cmd : @cmd.versions.find_by_version(version)
            render :show
        end
    end

    class New < R '/new', '/new/(\w+)'
        def get(name)
            @cmd = Command.new(:name => name)
            @title = "Creating #{name}"
            render :edit
        end
        def post
            @cmd = Command.new(:name => input.cmd)
            @title = "Creating #{input.cmd}"
            render :edit
        end
    end

    class Edit < R '/edit/(\w+)', '/edit/(\w+)/(\d+)'
        def get(name, version = nil)
            @cmd = Command.find_by_name(name)
            @cmd = @cmd.versions.find_by_version(version) unless version.nil? or version == @cmd.version.to_s
            @title = "Editing #{name}"
            @author = @cookies.cmd_author || CampSh::ANON
            render :edit
        end
        def post(name)
            @cookies.cmd_author = input.command.author
            Command.find_or_create_by_name(name).update_attributes(input.command)
            redirect Show, name
        end
    end

    class HowTo 
        def get
            @title = "How To"
            render :howto
        end
    end

    class Style < R '/styles.css'
        def get
            @headers['Content-Type'] = 'text/css'
            %Q[
                h1#pageName, .newWikiWord a, a.existingWikiWord, .newWikiWord a:hover, 
                #TextileHelp h3 { color: #003B76; }

                #container { width: 720px; }

                #container {
                    float: none;
                    margin: 0 auto;
                    text-align: center;
                    padding: 2px;
                    border: solid 2px #999;
                }

                #content {
                    margin: 0;
                    padding: 9px;
                    text-align: left;
                    border-top: none;
                    border: solid 1px #999;
                    background-color: #eee;
                }

                body, p, ol, ul, td {
                    font-family: verdana, arial, helvetica, sans-serif;
                    font-size:   15px;
                    line-height: 110%;
                }

                a { color: #000; }

                .newWikiWord { background-color: #eee; }
                .newWikiWord a:hover { background-color: white; }

                a:visited { color: #666; }
                a:hover { color: #fff; background-color:#000; }

                /* a.edit:link, a.edit:visited { color: #DA0006; } */


                h1, h2, h3 { color: #333; font-family: georgia, verdana; text-align: center; line-height: 70%; margin-bottom: 0; }
                h1 { font-size: 28px }
                h2 { font-size: 22px }
                h3 { font-size: 19px }

                h1#pageName {
                    margin: 5px 0px 0px 0px;
                    padding: 0px 0px 0px 0px;
                    line-height: 28px;
                }

                h1#pageName small {
                    color: grey;
                    line-height: 10px;
                    font-size: 10px;
                    padding: 0px;
                }

                a.nav, a.nav:link, a.nav:visited { color: #000; }
                a.nav:hover { color: #fff; background-color:#000; }

                li { margin-bottom: 7px }

                .navigation {
                    margin-top: 5px;
                    font-size : 12px;
                    color: #999;
                    text-align: center;
                }

                .navigation a:hover { color: #fff; background-color:#000; }

                .navigation a {
                    font-size: 11px;
                    color: black;
                    font-weight: bold;
                }

                .navigation small a {
                    font-weight: normal;
                    font-size: 11px;
                }

                .navOn{
                    font-size: 11px;
                    color: grey;
                    font-weight: bold;
                    text-decoration: none;
                }

                .help {
                    font-family: verdana, arial, helvetica, sans-serif;
                    font-size: 11px;
                }

                .inputBox {
                    font-family: verdana, arial, helvetica, sans-serif;
                    font-size: 11px;
                    background-color: #eee;
                    padding: 5px;
                    margin-bottom: 20px;
                }

                blockquote {
                    display: block;
                    margin: 0px 0px 20px 0px;
                    padding: 0px 30px;
                    font-size:11px;
                    line-height:17px;
                    font-style: italic;  
                }

                pre {
                    background-color: #eee;
                    padding: 10px;
                    font-size: 11px;
                }

                ol.setup {
                    font-size: 19px;
                    font-family: georgia, verdana;
                    padding-left: 25px;
                }

                ol.setup li {
                    margin-bottom: 20px
                }

                .byline {
                    font-size: 10px;
                    font-style: italic;  
                    margin-bottom: 10px;
                    color: #999;
                }

                .references {
                    font-size: 10px;
                }

                .diffdel {
                    background: pink;
                }

                .diffins {
                    background: lightgreen;
                }

                #allCommands ul {
                    list-style: none;
                }

                #allCommands li {
                    padding: 1px 4px;
                }

                #allCommands li:hover {
                    background-color: white;
                }

                #allCommands a,
                #allCommands a:hover,
                #allCommands a:link,
                #allCommands a:visited,
                #allCommands h2 {
                    color: #369;
                    background-color: transparent;
                    font-weight: normal;
                    font-size: 24px;
                    text-align: left;
                }

                #TextileHelp table {
                    margin-bottom: 0;
                }

                #TextileHelp table+h3 {
                    margin-top: 11px;
                }

                #TextileHelp table td {
                    font-size: 11px;
                    padding: 3px;
                    vertical-align: top;
                    border-top: 1px dotted #ccc;
                }

                #TextileHelp table td.arrow {
                    padding-right: 5px;
                    padding-left: 10px;
                    color: #999;
                }

                #TextileHelp table td.label {
                    font-weight: bold;
                    white-space: nowrap;
                    font-size: 10px;
                    padding-right: 15px;
                    color: #000;
                }

                #TextileHelp h3 {
                    font-size: 11px;
                    font-weight: bold;
                    font-weight: normal;
                    margin: 0 0 5px 0;
                    padding: 5px 0 0 0;
                }

                #TextileHelp p {
                    font-size: 10px;
                }

                .rightHandSide {
                    float: right;
                    width: 147px;
                    margin-left: 10px;
                    padding-left: 20px;
                    border-left: 1px dotted #ccc;
                }

                .rightHandSide p {
                    font-size: 10px;
                }

                .newsList {
                margin-top: 20px;
                }

                .newsList p {
                margin-bottom:30px
                }

                .leftHandSide
                {
                    float: right;
                    width: 147px;
                    margin-left: 10px;
                    padding-left: 20px;
                    border-left: 1px dotted #ccc;
                }

                .leftHandSide p
                {
                    font-size: 10px;
                    margin: 0;
                    padding: 0;
                }

                .leftHandSide h2
                {
                    font-size: 12px;
                    margin-bottom: 0;
                    padding-bottom: 0;
                }

                .property
                {
                    color: grey;
                    font-size: 9px;
                    text-align: right;
                }

                body
                {
                    background-color: #ccc;
                    padding: 0;
                    margin: 20px;
                    color: #333;
                    line-height: 1.5;
                    font-size: 85%;
                    /*  hacky hack */
                    voice-family: "\"}\"";
                    voice-family: inherit;
                    font-size: 80%;
                }

                /* be nice to opera */
                html>body { font-size: 80%; }

                /* syntax highlighting */
                .keyword {
                    font-weight: bold;
                }
                .comment {
                    color: #555;
                }
                .string, .number {
                    color: #396;
                }
                .regex {
                    color: #435;
                }
                .ident {
                    color: #369;
                }
                .symbol {
                    color: #000;
                }
                .constant, .class {
                    color: #630;
                    font-weight: bold;
                }
            ]
        end
    end

end

module CampSh::Views
    def red( str )
        require 'redcloth'
        self << RedCloth.new( str ).to_html
    end

    def layout 
        html do
            head do
                title "CampShell -- #{ @title }"
                style "@import '#{ self / R(Style) }';", :type => 'text/css'
            end
            body do
                div.container! do
                    div.content! do
                        h2 "CampShell"
                        h1 @title
                        _navigation
                        self << yield
                    end
                end
            end
        end
    end

    def _navigation
        form :id => "navigationForm", :class => "navigation", :style => "font-size: 10px" do  
            [["Command List", R(List), "Alphabetical list of commands", "A"],
             ["Recently Revised", R(Recent), "Pages sorted by when they were last changed", "U"],
             ["Authors", R(Authors), "Who wrote what", "W"],
             ["How To", R(HowTo), "How to use CampShell", "H"]
            ].map do |txt, link, title, key|
                a txt, :href => link, :title => title, :accesskey => key
            end.join(" | ")
        end
    end

    def list
        div.allCommands! :style => "width: 500px; margin: 0 100px" do
            form.editForm! :action => R(New), :method => "post" do
                ul do
                    if @cmds.each do |cmd|
                        li do 
                            h2 { a cmd.name, :href => R(Show, cmd.name) }
                            red cmd.doc
                        end
                    end.empty?
                        h2 "No commands created yet."
                    end

                    li do
                        text "Create command: "
                        input :type => "text", :name => "cmd", :id=> "newCmd", :value => "shortcut",
                              :onClick => "this.value == 'shortcut' ? this.value = '' : true"
                    end
                end
            end
        end
    end

    def authors
        ul.authorList! do
            @authors.each do |author, cmds|
                li do
                    strong(author) + " worked on: " +
                        cmds.map { |cmd| a cmd.name, :href => R(Show, cmd.name) }.join(", ")
                end
            end
        end
    end

    def recent
        @days.each do |day, cmds|
            strong day
            ul do
                cmds.each do |cmd|
                    li do
                        a cmd.name, :href => R(Show, cmd.name)
                        div.byline "by #{ cmd.author } at #{ cmd.created_at.strftime("%H:%M") }"
                    end
                end
            end
        end
    end

    def show
        h2 "Instructions"
        red @version.doc

        h2 "Code"
        if defined? SYNTAX
            SYNTAX.convert(@version.code)
        else
            pre @version.code
        end

        div.byline "Revised on #{ @version.created_at } by #{ @version.author }"

        div.navigation do
            a "Edit Page", :href => R(Edit, @version.name, @version.version), 
                           :class => "navlink", :accesskey => "E"
            unless @version.version == 1
                text " | "
                a 'Back in time', :href => R(Show, @version.name, @version.version-1)
            end
            unless @version.version == @cmd.version
                text " | "
                a 'Next',    :href => R(Show, @version.name, @version.version+1)
                text " | "
                a 'Current', :href => R(Show, @version.name)
            end
            if @cmd.versions.size > 1
                small "(#{ @cmd.versions.size } revisions)"
            end
        end
    end

    def edit
        form :id => "editForm", :action => R(Edit, @cmd.name), :method => "post", :onSubmit => "cleanAuthorName();" do
            div :style => "margin: 0 100px;" do
                h2 "Instructions"
                textarea @cmd.doc, :name => "command[doc]", :style => "width: 450px; height: 120px"

                h2 "Code"
                textarea @cmd.code, :name => "command[code]", :style => "width: 450px; height: 380px"

                p do
                    input :type => "submit", :value => "Save"; text " as "
                    input :type => "text", :name => "command[author]", :id => "authorName", :value => @author,
                          :onClick => "this.value == '#{ CampSh::ANON }' ? this.value = '' : true"; text " | "
                    a "Cancel", :href => "/cancel_edit/#{ @cmd.name }"
                end
            end

            script <<-END, :language => "JavaScript1.2"
                function cleanAuthorName() {
                    if (document.getElementById('authorName').value == "") {
                        document.getElementById('authorName').value = '#{ @anon }';
                    }
                }
            END
        end
    end

    def howto
        red %[
            Here's the rundown on CampShell.  It's wiki-like storage for simple Ruby scripts.  You can then run these scripts from
            the URL.  So, your job is to fill up CampShell with these commands, some of which can be found
            "here":http://mousehole.rubyforge.org/wiki/wiki.pl?CampShells.

            h2. Using with Firefox

            For best effect, go to @about:config@ and set @keyword.URL@ to @http://#{env['HTTP_HOST']}#{self./ "/run/"}@. Restart Firefox,
            you will then be able to run commands directly from the address bar.

            For example:

            * @new google@ will open the page for creating a new @google@ command.
            * @show google@ will display the documentation for that command once it is saved.
            * @edit google@ will open the editor for the @google@ command.
            * @google mousehole commands@ will run the @google@ command with the arguments @mousehole@ and @commands@.
            * @list all@ or @keyword:list@ displays all commands.
            * @howto ?@ or @keyword:howto@ shoots you over to this page.
        ].gsub(/^ +/, '')
    end
end