vim/bundle/slimv/swank-clojure/swank/commands.clj


1
2
3
4
5
6
7
8
9
10
11
12
13
14

(ns swank.commands)

(defonce slime-fn-map {})

(defmacro defslimefn
  ([fname & body]
     `(alter-var-root #'slime-fn-map
                      assoc
                      (symbol "swank" ~(name fname))
		      (defn ~fname ~@body)))
  {:indent 'defun})

(defn slime-fn [sym]
  (slime-fn-map (symbol "swank" (name sym))))