James Davidson jamesdavidson

Here are my attempts to script an IntelliJ-based IDE using javax.script.* API (ex-JSR-223).

The list of available scripting languages and engines:

	; A CLR port of Brian's functional brain from
	; http://blog.bestinclass.dk/index.php/2009/10/brians-functional-brain/
	;
	; A WPF app is fired up in another thread. Anything you type in the REPL
	; is dispatched to the WPF thread and evaluated there.
	;
	; Requires a ClojureCLR implmentation of futures and the following addition
	; to ClojureCLR's GenDelegate.cs:
	; public static Delegate CreateFunc(IFn fn)
	; {

	# -- coding: utf8 --

	# GeoHash decode and encode library

	base32 = {
	'0': '00000',
	'1': '00001',
	'2': '00010',
	'3': '00011',
	'4': '00100',

	(ns aws.s3
	(:refer-clojure :exclude [get])
	(:use [clojure.walk :only (keywordize-keys stringify-keys)]
	[clojure.contrib.def :only (defonce-)]
	[clojure.contrib.json :only (read-json write-json)])
	(:import [java.io PrintWriter InputStreamReader ByteArrayInputStream ByteArrayOutputStream]
	[java.util.zip GZIPInputStream GZIPOutputStream]
	[com.google.common.base Charsets]
	[com.amazonaws.services.s3 AmazonS3Client]
	[com.amazonaws.services.s3.model Region CreateBucketRequest ObjectMetadata


	;; depends on [org.imgscalr/imgscalr-lib "4.2"]

	(ns XXX.image
	(:refer-clojure :exclude [read])
	(:require [clojure.java.io :as io])
	(:import [org.imgscalr Scalr Scalr$Method Scalr$Mode]
	[java.awt Image]
	[java.awt.image RenderedImage BufferedImageOp]
	[javax.imageio ImageIO ImageWriter ImageWriteParam IIOImage]

	package org.halyph.barcode;

	import java.awt.Color;
	import java.awt.Graphics2D;
	import java.awt.geom.AffineTransform;
	import java.awt.image.BufferedImage;
	import java.io.File;
	import java.io.FileNotFoundException;
	import java.io.FileOutputStream;
	import java.io.IOException;

	dt = datetime.datetime.utcfromtimestamp(seconds_since_epoch)
	iso_format = dt.isoformat() + 'Z'

	(defn seq!!
	"Returns a (blocking!) lazy sequence read from a channel."
	[c]
	(lazy-seq
	(when-let [v (<!! c)]
	(cons v (seq!! c)))))

	(comment
	(def stream (chan))
	(go (dotimes [x 16]

	from functools import partial

	def identity(e):
	return e

	def walk(inner, outer, coll):
	if isinstance(coll, list):
	return outer([inner(e) for e in coll])
	elif isinstance(coll, dict):
	return outer(dict([inner(e) for e in coll.iteritems()]))

	/* BitSet.cs -- A vector of bits.
	Copyright (C) 1998, 1999, 2000, 2001, 2004, 2005 Free Software Foundation, Inc.

	This file is part of GNU Classpath.

	GNU Classpath is free software; you can redistribute it and/or modify
	it under the terms of the GNU General Public License as published by
	the Free Software Foundation; either version 2, or (at your option)
	any later version.