blob: 8b9952e1b81daccd6832cbd73f3976e62f418101 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(defmacro send [data]
`(fn [client] (client.send ~data)))
(defmacro input [action]
`(send ["input" ~action]))
(defmacro doall [actions]
`(fn [client] (for [action ~actions] (action client))))
(defmacro selector [name]
`(.getSelector (.getDisplay client) ~name))
(defmacro selectorvalue [name]
`(.getValue (selector ~name)))
|
