13 lines
377 B
Plaintext
13 lines
377 B
Plaintext
|
(local util (require :lib.util))
|
||
|
|
(local {: defmulti : defmethod} (util.require :lib.multimethod))
|
||
|
|
(local {: textfield} (util.require :editor.imstate))
|
||
|
|
|
||
|
|
(local actions (util.hot-table ...))
|
||
|
|
|
||
|
|
(set actions.edit (defmulti #$1.action :edit ...))
|
||
|
|
(set actions.generate (defmulti #$1.action :generate ...))
|
||
|
|
|
||
|
|
(defmethod actions.edit :default (fn [action view x y w i] y))
|
||
|
|
|
||
|
|
actions.hot
|