20 lines
608 B
Fennel
20 lines
608 B
Fennel
(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))
|
|
|
|
(fn actions.register [key edit generate]
|
|
(when (= actions.actionlist nil)
|
|
(set actions.actionlist []))
|
|
(table.insert actions.actionlist key)
|
|
(defmethod actions.edit key edit)
|
|
(defmethod actions.generate key generate))
|
|
|
|
actions.hot
|