kch

find app/views -name '*.html.erb' | 
  perl -pe 's/\.erb$//'           | 
  xargs -I @ html2haml --erb @.erb @.haml

kch

#!/usr/bin/env ruby1.9 -ryaml
# encoding: UTF-8

class Class
  def initialize_with_attributes(*attrs)
    attr_reader *attrs
    define_method(:initialize) do |*args|
      attrs.zip(args).each { |attr, v| instance_variable_set("@#{attr}", v) }
    end
  end

kch

#!/usr/bin/env ruby
# encoding: UTF-8
require 'rubygems'
require 'appscript'
include Appscript

# Copy Window's URLs:
#   Copies the URLs from all tabs in Safari/WebKit's front window to the pasteboard.

# `process_for_either_browser` will be any process named Safari, this includes

kch

#!/usr/bin/ruby
# encoding: UTF-8

require 'rubygems'
require 'fsevent'
require 'shellwords'

class Time
  def age_in_seconds(now = Time.now)
    now - self

kch

#!/usr/local/bin/ruby
# encoding: UTF-8
require 'yaml'
require "base64"
require 'rexml/document'

class PList < BasicObject
  ELEMENT_PROCESSORS = {}
  def self.process_element_named(name, &block); ELEMENT_PROCESSORS[name.to_s] = block;  end
  def self.process_element(elt)               ; ELEMENT_PROCESSORS[elt.name][elt];      end

kch

#!/usr/bin/env ruby
# encoding: UTF-8

# URL regexp from http://daringfireball.net/2010/07/improved_regex_for_matching_urls
# URL regexp adapted to have captures removed

RX_URL = %r[
  \b
  (?:
    [a-z][\w-]+:                # URL protocol and colon

kch

#!/usr/bin/env ruby
# encoding: UTF-8
require 'yaml'
require 'rexml/document'

class PlistWriter
  PLIST_STUB_DOC = %q[
  <?xml version="1.0" encoding="UTF-8"?>
  <!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
  <plist version="1.0"></plist>]

kch

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">

<plist version="1.0">
  <dict>
    <key>CFBundleDevelopmentRegion</key>     <string>English</string>
    <key>CFBundleExecutable</key>            <string>upcase</string>
    <key>CFBundleIdentifier</key>            <string>com.caiochassot.services.upcase</string>
    <key>CFBundleInfoDictionaryVersion</key> <string>6.0</string>
    <key>CFBundlePackageType</key>           <string>BNDL</string>

kch

Contents/MacOS/main

kch

;; drops the first element from a list and returns it
(macro shift! (l)
     `(let (e (car ,l))
           (set ,l (cdr ,l))
           e))

;; drops the first cell from a list if it is equal to e
(macro cond-shift! (l e) `(if (eq (car ,l) ,e) (shift! ,l)))

;; appends e to the list l