ijt

import Network.HTTP (simpleHTTP, getRequest, getResponseBody, urlEncode)

main = do
    resultJson <- queryFreebase "{\"query\":[{\"id\":null,\"name\":null,\"type\":\"/astronomy/planet\"}]}"
    putStrLn resultJson
   
-- Runs a query against Freebase and returns the result in JSON format.
queryFreebase :: String -> IO String
queryFreebase jsonQuery = do
    let query = urlEncode $ jsonQuery

ijt

#!/usr/bin/env runhaskell

import GHC.IO.Handle
import Network
import Network.Socket

main = do
    handle <- connectTo "hackage.haskell.org" (PortNumber 80)
    hPutStr handle "GET /packages/hackage.html HTTP/1.1\n"
    hPutStr handle "Host: hackage.haskell.org\n"

ijt

#!/usr/bin/python
# This file is originally from http://code.google.com/p/git-svn-utils/source/checkout. It
# contains some small changes by ijt to get it working on OS X.

import sys,re,os, subprocess

def get_output(cmd):
    '''a little wrapper around subprocess.Popen'''
    p = subprocess.Popen(cmd, stdout=subprocess.PIPE)
    p.wait()

ijt

syntax on

" Indentation
"
filetype indent on
function! Spaces()
    set expandtab
    set shiftwidth=4
    set softtabstop=4 " Backspace deletes 4 spaces
    set tabstop=4

ijt

# Path
#
if echo $PATH | grep -v $HOME/bin > /dev/null; then
    export PATH="$HOME/bin:$PATH"
fi

# Recursive search with ack
#
export ACK_ROOT=$HOME