kch

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

VALID_BROWSERS = %w[ WebKit Safari ]

# Used in my appscripts to target Safari or WebKit dynamically.
# Returns an Appscript::Application for one of these browsers following this priority:
# 1. is frontmost
# 2. is running and default

kch

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

require 'fileutils'
require 'unicode_utils'

ARGV.each do |f|
  f_  = UnicodeUtils.downcase(f)
  f__ = "#{f_}_#{rand}"
  FileUtils.mv(f, f__)

kch

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

def ipv6?(s)
  raise NotImplementedError
end

good, bad = YAML::load(DATA.read).values_at *%w[ GOOD BAD ]
results   = []

kch

framework 'Cocoa'

# store any new classes created during the requires that follow
LOADED_RUBY_CLASSES = []
class << Object
  def inherited(m)
    LOADED_RUBY_CLASSES << m
  end
end
  

kch

#!/usr/bin/env macruby
framework 'Cocoa'

cocoa_array = NSArray.new
ruby_array  = []

puts ruby_array.count               # => 0
puts ruby_array.count { true }      # => 0
puts ruby_array.count("whatever")   # => 0

kch

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

ARGV.reject! { |path| !File.file?(path) }
(puts DATA.read.gsub("$0", File.basename($0)); exit 1) if ARGV.empty?

ARGV.each do |path|
  ls = IO.readlines(path)
  ix = ls[0] !~ /^#!/ ? 0 : 1
  next if ls[ix] =~ /#.*?coding\s*[:=]\s*\S/

kch

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

(puts DATA.read.gsub(/\$0/, File.basename($0)); exit 1) unless ARGV.empty? # handled -h and anything else since we don't take args

# tokenize lines
lines = STDIN.read.strip.split(/\n+/)
gems  = lines.inject({}) do |h, line|
  next h if line =~ /^\s*(#.*)?$/

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

kch

Contents/MacOS/main

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>