This file contains 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 typoet.graphix | |
(:import [javax.swing JFrame]) | |
(:import [java.awt Dimension Canvas]) | |
(:import [java.awt.event WindowAdapter KeyAdapter MouseAdapter MouseMotionAdapter]) | |
(:use [clojure.contrib.seq-utils])) | |
(defstruct window :height :width :title :frame :canvas :handlers) | |
(defn- get-handlers | |
[window key] |
This file contains 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 rpcmacro | |
(:import [java.net URL]) | |
(:import [org.apache.xmlrpc XmlRpcException]) | |
(:import [org.apache.xmlrpc.client XmlRpcClient XmlRpcClientConfigImpl XmlRpcCommonsTransportFactory XmlRpcSunHttpTransport XmlRpcSunHttpTransportFactory]) | |
(:import [org.apache.commons.httpclient HttpClient HttpState]) | |
(:use [clojure.contrib.pprint])) | |
(defn mk-client [url] | |
(let [config (XmlRpcClientConfigImpl.) | |
client (XmlRpcClient.) |
This file contains 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
#!/usr/bin/env python | |
import os | |
import sys | |
from os.path import join | |
expectedFiles = [] | |
actualFiles = [] | |
returnValue = 0 | |
expectedFolder = sys.argv[1] |
NewerOlder