Stanton Teters stantont
stantont
/ comma-first-var.js
Created
May 20, 2010 18:29
— forked from isaacs/comma-first-var.js
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // See comments below. | |
| // This code sample and justification brought to you by | |
| // Isaac Z. Schlueter, aka isaacs | |
| // standard style | |
| var a = "ape", | |
| b = "bat", | |
| c = "cat", | |
| d = "dog", |
stantont
/ pless.sh
Created
May 9, 2010 14:25
— forked from defunkt/pless.sh
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # my new favorite bashrc function | |
| # quickly inspect source files in style | |
| function pless { | |
| pygmentize $1 | less -r | |
| } | |
stantont
/ pless.sh
Created
May 5, 2010 02:51
— forked from defunkt/pless.sh
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # my new favorite bashrc function | |
| # quickly inspect source files in style | |
| function pless { | |
| pygmentize $1 | less -r | |
| } | |
stantont
/ appengine setup for clojure
Created
May 5, 2010 02:17
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns com.freiheit.clojure.appengine.appengine-local | |
| (:use | |
| [compojure.http routes servlet helpers] | |
| clojure.contrib.test-is | |
| compojure.server.jetty | |
| [clojure.contrib def str-utils duck-streams]) | |
| (:require | |
| [clojure.contrib.logging :as log]) | |
| (:import | |
| [com.google.appengine.api.labs.taskqueue.dev LocalTaskQueue] |
stantont
/ appengine setup for clojure.clj
Created
April 27, 2010 01:42
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns com.freiheit.clojure.appengine.appengine-local | |
| (:use | |
| [compojure.http routes servlet helpers] | |
| clojure.contrib.test-is | |
| compojure.server.jetty | |
| [clojure.contrib def str-utils duck-streams]) | |
| (:require | |
| [clojure.contrib.logging :as log]) | |
| (:import | |
| [com.google.appengine.api.labs.taskqueue.dev LocalTaskQueue] |
stantont
/ lein-completion.bash
Created
April 23, 2010 11:11
— forked from timcharper/lein-completion.bash
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| _lein_test() | |
| { | |
| local curw | |
| COMPREPLY=() | |
| curw=${COMP_WORDS[COMP_CWORD]} | |
| if [ -d test ]; then | |
| COMPREPLY=($(compgen -W '$(cd test; find * -name \*.clj | sed "s/.clj\$//" | sed "s/_/-/g" | sed "s|/|.|g")' -- $curw)); | |
| return 0 | |
| fi | |
| } |
stantont
/ lein-completion.bash
Created
April 17, 2010 03:35
— forked from timcharper/lein-completion.bash
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| _lein_test() | |
| { | |
| local curw | |
| COMPREPLY=() | |
| curw=${COMP_WORDS[COMP_CWORD]} | |
| if [ -d test ]; then | |
| COMPREPLY=($(compgen -W '$(cd test; find * -name \*.clj | sed "s/.clj\$//" | sed "s/_/-/g" | sed "s|/|.|g")' -- $curw)); | |
| return 0 | |
| fi | |
| } |
stantont
/ Evolution of a Python programmer.py
Created
February 3, 2010 21:49
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #Newbie programmer | |
| def factorial(x): | |
| if x == 0: | |
| return 1 | |
| else: | |
| return x * factorial(x - 1) | |
| print factorial(6) | |
| #First year programmer, studied Pascal |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/bin/bash | |
| #Clojure command-line startup file cobbled together from different--forgotten--sources | |
| BREAK_CHARS="(){}[],^%$#@\"\";:''|\\" | |
| JAR_DIR=/Users/stantont/lib/java/jars | |
| CLOJURE_JAR=$JAR_DIR/clojure.jar | |
| CONTRIB_JAR=$JAR_DIR/clojure-contrib.jar | |
| COMPLETIONS="" | |
| if [ -e $HOME/.clj/completions ]; then | |
| COMPLETIONS="-f $HOME/.clj/completions" |
stantont
/ Dismount_All_Hard_Drives.scpt
Created
May 11, 2009 00:34
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| --modified version of http://www.macosxhints.com/article.php?story=20041024142036862 | |
| --skips non-hard drives, ie, DVD/CD drives | |
| tell application "Finder" | |
| set bootDisk to the name of startup disk | |
| set allVolumes to the name of every disk whose (name is not bootDisk) and (local volume is true) and ((format is Mac OS Extended format) or (format is Mac OS format)) | |
| repeat with myDisk in allVolumes | |
| try | |
| eject myDisk | |
| end try | |
| end repeat |