aki michiakig

michiakig / three.html

Created August 19, 2011 20:55

three.js demo in ClojureScript

	<html>
	<head></head>
	<body>
	<script type="text/javascript" src="Three.js"></script>
	<script type="text/javascript" src="RequestAnimationFrame.js"></script>
	<script type="text/javascript" src="output.js"></script>
	</body>
	</html>

michiakig / three.cljs

Created August 19, 2011 20:53

three.js demo in ClojureScript

	(ns three.demo)
	(def camera (THREE.Camera. 75 (/ window/innerWidth
	window/innerHeight) 1 10000))
	(set! (.z (.position camera)) 1000)
	(def scene (THREE.Scene.))
	(def geometry (THREE.CubeGeometry. 200 200 200))
	(def obj (js/Object.))
	(set! (.color obj) 0xff0000)
	(set! (.wireframe obj) true)
	(def material (THREE.MeshBasicMaterial. obj))

michiakig / init.el

Created July 20, 2011 17:27

minimal dotemacs for slime

	;; SLIME
	(add-to-list 'load-path "~/.emacs.d/slime")
	(load "slime.el")
	(eval-after-load "slime"
	'(progn (slime-setup '(slime-repl))))
	(eval-after-load 'slime '(setq slime-protocol-version 'ignore))
	(require 'slime)
	(slime-setup '(slime-scratch slime-editing-commands))

	(setq inferior-lisp-program "sbcl") ; replace with your Common Lisp implementation

michiakig / ants.clj

Created July 19, 2011 22:37

Clojure ant sim from Rich Hickey

	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Ant sim ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	; Copyright (c) Rich Hickey. All rights reserved.
	; The use and distribution terms for this software are covered by the
	; Common Public License 1.0 (http://opensource.org/licenses/cpl.php)
	; which can be found in the file CPL.TXT at the root of this distribution.
	; By using this software in any fashion, you are agreeing to be bound by
	; the terms of this license.
	; You must not remove this notice, or any other, from this software.

	;dimensions of square world

michiakig / init.el

Created July 19, 2011 15:00

custom user file for emacs-starter-kit

	(require 'package)
	(add-to-list 'package-archives
	'("marmalade" . "http://marmalade-repo.org/packages/") t)
	(package-initialize)

	;; use Mac command key for meta
	(setq mac-command-modifier 'meta)
	;; recursively add emacs dir to load-path
	(let ((default-directory "~/.emacs.d/"))
	(normal-top-level-add-subdirs-to-load-path))