Mercurial > vba-clojure

comparison clojure/com/aurellem/vbm.clj @ 135:eb6ba88088d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Wrote a more efficient input-number-assembly program; 91 oc -> 60 oc.
author Dylan Holmes <ocsenave@gmail.com>
date Sun, 18 Mar 2012 05:13:19 -0500
parents 718abf3bec8a
children
comparison
equal deleted inserted replaced
134:718abf3bec8a 135:eb6ba88088d3
4 (:use com.aurellem.gb-driver)) 4 (:use com.aurellem.gb-driver))
5 5
6 ;;;;;;;;;;;;; read vbm file 6 ;;;;;;;;;;;;; read vbm file
7 7
8 (def ^:dynamic *moves-cache* 8 (def ^:dynamic *moves-cache*
9 (File. user-home "proj/pokemon-escape/moves/"))) 9 (File. user-home "proj/pokemon-escape/moves/"))
10 10
11 (defn buttons [mask] 11 (defn buttons [mask]
12 (loop [buttons [] 12 (loop [buttons []
13 masks (seq (dissoc button-code :listen))] 13 masks (seq (dissoc button-code :listen))]
14 (if (empty? masks) buttons 14 (if (empty? masks) buttons