Bots build bots

macros.hy

;; do-trigger should be ~name, but there's two levels of quasi-quotes

(defmacro method-with-attributes [name]
  `(defmacro effect-trigger [attributes body]
     `[do-trigger (fn [self dying-rules]
                    (let [~@(genexpr `[~x (. self ~x)] [x attributes])]
                      ~body))]))