asciifarm/client/keymacros.hy


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15


(defmacro send [data]
    `(fn [client] (client.send ~data)))

(defmacro inp [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)))