respond.clj

(use '[clojure.contrib.macro-utils :only [macrolet]])

(defmacro defplugin [& body]
  (let [g (gensym)]
    (macrolet [(defcommand [docs words cmdkey & method-stuff]
                 `(do (dosync (doseq [word# ~words]
                                (assoc ~g word# {:cmd ~cmdkey :doc ~docs})))
                      (defmethod respond ~cmdkey ~@method-stuff)))]
      `(let [~g (ref [])]
         ~@body
        `(dosync
          (let [m-name# (keyword (last (.split (str *ns*) "\\.")))]
          (alter modules merge
                 {m-name#
                  {:load #(dosync (alter commands assoc m-name# ~g))
                   :unload #(dosync (alter commands dissoc m-name#))}})))))))