Skip to content

Instantly share code, notes, and snippets.

@dce
dce / after-use
Created August 27, 2009 18:52 — forked from defunkt/after-use
#!/usr/bin/osascript
run_command("cd ~/Projects/resque")
run_command("redis-server redis.conf")
open_tab()
run_command("cd ~/Projects/resque")
run_command("shotgun config.ru")
open_tab()
@dce
dce / url_dsl.rb
Created December 15, 2009 03:48 — forked from defunkt/url_dsl.rb
require 'open-uri'
# url dsl -- the ultimate url dsl!
#
# You just can't beat this:
#
# $ irb -r url_dsl
# >> include URLDSL
# => Object
# >> http://github.com/defunkt.json
require "rubygems"
require "mongo_mapper"
MongoMapper.database = 'test_db'
class Person
include MongoMapper::Document
key :first_name, String
key :last_name, String
grammar BasicLISP
rule expression
"(" (expression / method_call) ")"
end
rule method_call
[\w]+ argument*
end
rule argument
object FunctionalTest {
def fold(args: Array[Int], lambda: (Int, Int) => Int) : Int = {
var result = 0
args.foreach((arg: Int) => result = lambda(result, arg))
result
}
def fold2(lambda: (Int, Int) => Int) : (Array[Int]) => Int = {
def folded(args: Array[Int]) : Int = {
var result = 0
(define lat?
(lambda (l)
(or (null? l) (and (atom? (car l)) (lat? (cdr l))))))
(define rember
(lambda (a lat)
(cond
((null? lat) lat)
((eq? a (car lat)) (cdr lat))
(else (cons (car lat) (rember a (cdr lat)))))))
@dce
dce / background.html
Created May 3, 2010 03:33
Simple Chrome extension
<html>
<script src="jquery-1.4.2.min.js"></script>
<script>
var bitly = {
login: "your_login",
api_key: "your_api_key"
};
chrome.browserAction.onClicked.addListener(function(tab) {
$.get("http://api.bit.ly/v3/shorten?login=" + bitly.login +
-module(fold).
-export([fold/2, fold/3]).
fold([First | Rest], Fun) ->
  fold(Rest, Fun, First);
fold([], Fun) ->
  [].
fold([First | Rest], Fun, Result) ->
  fold(Rest, Fun, Fun(Result, First));
(define atom?
(lambda (a)
(not (or (null? a) (pair? a)))))
(define rember*
(lambda (a l)
(cond
((null? l) `())
((pair? (car l)) (cons (rember* a (car l)) (rember* a (cdr l))))
((eq? (car l) a) (rember* a (cdr l)))
~/Projects/project[master] > rvm default
~/Projects/project[master] > which ruby
/Users/dce/.rvm/rubies/ruby-1.8.7-p249/bin/ruby
~/Projects/project[master] > sc
Loading development environment (Rails 2.3.8)
ruby-1.8.7-p249 > BigDecimal("9.05").to_f
=> 9.05
ruby-1.8.7-p249 > exit
~/Projects/project[master] > rvm system
~/Projects/project[master] > which ruby