Mercurial > vba-clojure

comparison clojure/com/aurellem/run/final_cut.clj @ 534:3f2072b8e457

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor change to make button presses more dramatic.
author Robert McIntyre <rlm@mit.edu>
date Mon, 25 Jun 2012 12:45:57 -0500
parents 60da469773e5
children 614eddc5b38c
comparison
equal deleted inserted replaced
533:60da469773e5 534:3f2072b8e457
57 (defn composite-frames-command 57 (defn composite-frames-command
58 [screenshot ram-map target move] 58 [screenshot ram-map target move]
59 (let [actual-keys (set move) 59 (let [actual-keys (set move)
60 keys [:a :b :start :select :u :d :l :r] 60 keys [:a :b :start :select :u :d :l :r]
61 button-on-name ["-size" "5x5" "xc:red"] 61 button-on-name ["-size" "5x5" "xc:red"]
62 button-off-name ["-size" "5x5" "xc:black"]] 62 button-off-name ["-size" "5x5" "xc:white"]]
63 ["convert" 63 ["convert"
64 "-size" "318x276" "xc:white" 64 "-size" "318x276" "xc:white"
65 (map 65 (map
66 (fn [index] 66 (fn [index]
67 (let [position ["-geometry" 67 (let [position ["-geometry"