kch

tell application "iTunes"
	-- this script only makes sense for iTunes radio, so bail if not it
	if container of current playlist is not equal to source "iTunes Radio" then return
	
	-- mute first because ads are so fucking annoying
	set mute to true
	
	-- tracks shorter than this number of seconds should be muted as they're likely ads
	set _k_mute_threshold to 32
	

kch

struct Placeholder {}
let __ = Placeholder()

func partial<A,B,Z>(f:(A,B) -> Z, a:Placeholder, b:B) -> (A) -> Z { return { f($0,b) } }
func partial<A,B,Z>(f:(A,B) -> Z, a:A, b:Placeholder) -> (B) -> Z { return { f(a,$0) } }

func partial<A,B,C,Z>(f:(A,B,C) -> Z, a:Placeholder, b:B, c:C) -> (A) -> Z { return { f($0,b,c) } }
func partial<A,B,C,Z>(f:(A,B,C) -> Z, a:A, b:Placeholder, c:C) -> (B) -> Z { return { f(a,$0,c) } }
func partial<A,B,C,Z>(f:(A,B,C) -> Z, a:A, b:B, c:Placeholder) -> (C) -> Z { return { f(a,b,$0) } }

kch

class String
  def strip_html!
    gsub!(/
    <
      \/?                 # optional end tag
      ([\w:-]+)           # tag name (capturing)
      (?:                 # optional attribute set (allowing even for end tags)
        (?:               # group for attribute repetition
          \s+             # mandatory space before first attribute
          [\w:-]+         # attribute name

kch

module Tracy

  def self.included k
    k.extend ClassMethods
  end

  module ClassMethods
    def method_added m
      wrap_method(m)
    end

kch

class CASServer::Authenticators::SQL < CASServer::Authenticators::Base

  def validate(credentials)
    read_standard_credentials(credentials)
    
    raise CASServer::AuthenticatorError, "Cannot validate credentials because the authenticator hasn't yet been configured" unless @options
    raise CASServer::AuthenticatorError, "Invalid authenticator configuration!" unless @options[:database]
    
    CASUser.establish_connection @options[:database]
    CASUser.set_table_name @options[:user_table] || "users"

kch

So I ran into a bit of code that looked like this:

def my_method
  list.each do |item|
    return_value = item.some_property
    return return_value if return_value
  end
  nil
end

kch

#!/usr/bin/env ruby
require 'yaml'
require 'pathname'
require 'shellwords'

module_url_by_path = Dir['**/.gitmodules'].inject({}) do |h, path|
  IO.read(path).scan(/^\[submodule .*\].*\n((?:\s+.*\n)+)/).flatten.each do |s_attrs|
    h_attrs = s_attrs.strip.split(/\n/).inject({}) do |h_attrs, s_attr_line|
      k, v = s_attr_line.strip.split(/\s+=\s+/, 2)
      h_attrs[k.to_sym] = v

kch

#!/opt/local/bin/ruby1.9

require 'yaml'

urls = YAML::load <<-STR
http://foo.com/blah_blah                                                  : http://foo.com/blah_blah
http://foo.com/blah_blah/                                                 : http://foo.com/blah_blah/
(Something like http://foo.com/blah_blah)                                 : http://foo.com/blah_blah
http://foo.com/blah_blah_(wikipedia)                                      : http://foo.com/blah_blah_(wikipedia)
http://foo.com/blah-blah-(wiki-pedia)                                     : http://foo.com/blah-blah-(wiki-pedia)

kch

require 'yaml'

RX = /(\d)(?=\d{3}+(?!\d))/

# Long version
RX_LONG = /
  (\d)      # One digit
  (?=       # That is followed by
    \d{3}+  # One or more triples of digits
    (?!\d)  # That are not followed by a digit

kch

#!/usr/bin/env ruby1.9
# encoding: UTF-8
# Copyright © 2009 Caio Chassot
# Licensed under the WTFPL

def alternation(*s); s.map(&Regexp.method(:escape)).join("|") end

# All input is read here.
LINES                = $stdin.readlines
IS_SELECTION         = ENV.key?("TM_SELECTED_TEXT")