Skip to content

Instantly share code, notes, and snippets.

View nasser's full-sized avatar
🛰️
save-lisp-and-die

Ramsey Nasser nasser

🛰️
save-lisp-and-die
View GitHub Profile
<meta charset="utf-8">
<script src="js/jquery.js"></script>
<script src="js/jqconsole.js"></script>
<script src="js/sugar.js"></script>
<script src="js/peg.js"></script>
<script src="js/plt.js"></script>
<script type="text/javascript">
// uncomment next line to enable refresh
$ cd /Users/greg/Library/Application Support/Sublime Text 2/Packages/SublimeREPL/config/Clojure/Unity/
$ git pull
ReflectionTypeLoadException: The classes in the module cannot be loaded.
System.Reflection.Assembly.GetExportedTypes () (at /Users/builduser/buildslave/mono-runtime-and-classlibs/build/mcs/class/corlib/System.Reflection/Assembly.cs:376)
clojure.lang.Compiler.GetTypeFromAssy (System.Reflection.Assembly assy, System.String typeName)
clojure.lang.Compiler.InitAssembly (System.Reflection.Assembly assy, System.String relativePath)
clojure.lang.Compiler.LoadAssembly (System.IO.FileInfo assyInfo, System.String relativePath)
clojure.lang.RT.load (System.String relativePath, Boolean failIfNotFound)
clojure.lang.RT.load (System.String relativePath)
clojure/core$load$fn__5855__5859.invoke ()
clojure/core$load__5862.doInvoke (System.Object )
clojure.lang.RestFn.invoke (System.Object arg1)
@nasser
nasser / gist:554f54ede7d0350db886
Created November 21, 2014 05:35
Compile LuaJIT for ARM
$ make HOST_CC="gcc -m32" CROSS=/Volumes/crosstools/x-tools/arm-kindle-linux-gnueabi/bin/arm-kindle-linux-gnueabi- TARGET_FLAGS="--sysroot /Volumes/crosstools/x-tools/arm-kindle-linux-gnueabi/arm-kindle-linux-gnueabi/sysroot -ldl" TARGET_SYS=Other
var zeval = function(ast) {
if(ast.op == "+") {
return zeval(ast.left) + zeval(ast.right);
} else if(ast.op == "<") {
var evaled_left = zeval(ast.left);
var evaled_right = zeval(ast.right);
return evaled_left < evaled_right;
(def problematic-case-fn
(fn [x]
(case x
:xnw "xnw"
:ltg "ltg"
:qmu "qmu"
:tff "tff"
:btw "btw"
:zpo "zpo"
:dsq "dsq"
Reflection warning, /Users/nasser/Projects/leap/Assets/Arcadia/arcadia/core.clj:240:3 - call to method GetComponent can't be resolved (target class is unknown).
Reflection warning, /Users/nasser/Projects/leap/Assets/Arcadia/arcadia/core.clj:299:23 - reference to field/property Name can't be resolved (target class is unknown).
Reflection warning, /Users/nasser/Projects/leap/Assets/Arcadia/arcadia/core.clj:300:59 - reference to field/property Name can't be resolved (target class is unknown).
Reflection warning, /Users/nasser/Projects/leap/Assets/Arcadia/arcadia/core.clj:305:24 - reference to field/property IsSpecialName can't be resolved (target class is unknown).
Reflection warning, /Users/nasser/Projects/leap/Assets/Arcadia/arcadia/core.clj:305:43 - reference to field/property IsGenericMethod can't be resolved (target class is unknown).
Reflection warning, /Users/nasser/Projects/leap/Assets/Arcadia/arcadia/core.clj:302:11 - call to method GetMethods can't be resolved (target class is unknown).
Reflection warn
(defn obj->map [obj]
(apply
hash-map
:original obj
(mapcat
(fn [prop]
(let [k (keyword (camels-to-hyphens (.Name prop)))
v (. prop GetValue obj nil)]
(cond
(instance? IEnumerable v) [k (map obj->map v)]
leap.controller=> (pprint (hands))
({:palm-normal (0.1, 1.0, 0.1),
:arm #<Arm Valid Arm>,
:palm-velocity (-161.4, 163.1, 187.7),
:frame #<Frame Frame Id:873942>,
:pinch-strength 0.0,
:palm-position (38.8, 105.6, -0.1),
:is-right false,
:time-visible 0.171992,
:fingers
(ns leap.controller
(:use arcadia.core)
(:require [clojure.string :as string])
(:import [Leap Frame Hand Controller Controller+PolicyFlag Bone Bone+BoneType]
[System.Collections IEnumerable]
[System.Reflection PropertyInfo]
[UnityEngine Vector3]))
;; init controller
(def ^Leap.Controller controller (Controller.))