cmd-hook-macro.clj

(defmacro cmd-hook [prefix & exprs]
  `(rh/add-hook
     #'core/handle-command
     (fn [~'callback ~'cmd ~'args]
       (if (re-find ~prefix (s/lower-case ~'cmd))
         (cond-let [~'p]
                   ~@(map (fn [i#]
                            (if (instance? java.util.regex.Pattern i#)
                              `(re-find ~i# ~'args)
                              `~i#))
                          exprs)
                   `:else (~'callback ~'cmd ~'args))))))