respond.clj

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