o-sam-o

desc 'Uses graphviz to construct a graph of SuperCategories'
task :super_category_graph => :environment do
  File.open('super_categories.dot', 'w') do |f|
    f.puts "digraph super_categories {\n"
    SuperCategory.all.each do |super_category|
      super_category.children.each do |child|
        f.puts %{"#{super_category.name}" -> "#{child.name}";\n}
      end
    end
    f.puts '}'

o-sam-o

Then /^the "([^"]*)" cookie should be set to "([^"]*)"$/ do |key, value|
  cookies = {}
  response.header['Set-Cookie'].each do |cookie| 
    CGI::Cookie::parse(cookie).each { |k,v| cookies[k] = v.first }
  end

  cookies[key].should == value
end

o-sam-o

# Setup dir so changes to a ruby version and gemset on entry 
rvm --rvmrc --create <ruby>@<gemset>

# Backup a mysql database
mysqldump -u [username] -p [databasename] > [backupfile.sql]

# Stop mac from sleeping
pmset noidle

# Strip quotes around digits in VIM

o-sam-o

" Disable toolbar
if has("gui_running")
    set guioptions=egmrt
endif

color rootwater

set guifont=Monaco:h12

set spell

o-sam-o

require 'rubygems'
require 'nokogiri'
require 'sqlite3'
require 'highline/import'

# Login to Forrst if we haven't already done so
unless File.exists?('f-cookie')
  email = ask("Email Address or Username?")
  password = ask("Password?") { |q| q.echo = 'x' }

o-sam-o

enable :inline_templates

get '/:username' do |username|
  pass if username.blank?
  resp = Net::HTTP.get_response(URI.parse("http://api.forrst.com/api/v2/users/posts?username=#{username}"))
  data = resp.body
  result = JSON.parse(data).with_indifferent_access
  pass if result[:stat] == 'fail'

  response['Cache-Control'] = "public, max-age=3600"

o-sam-o

list = []
File.open("list.txt", "r") do |infile|
   while (line = infile.gets)
      list << line.strip
   end
end
list.uniq.each do |l|
  p l
end

o-sam-o

require 'net/http'

url = URI.parse('http://localhost:7001/AppName')
                     
class Producer
  def initialize(thread_id)
    @write_count = 0
    @thread_id = thread_id
  end

o-sam-o

import Data.Char
import Data.Maybe
import Data.List
import Data.Map hiding (map)
import Text.Printf

main = do
        src <- readFile "grades.txt"
        let pairs   = map (split.words) (lines src)
        let grades  = foldr insert empty pairs

o-sam-o

myQS :: (Ord a) => [a] -> [a]
myQS [] = []
myQS (x:xs) = myQS lessThanPivot ++ [x] ++ myQS greaterThanEqualToPivot
    where lessThanPivot = [l | l <- xs, l < x] 
          greaterThanEqualToPivot =  [l | l <- xs, l >= x]