summaryrefslogtreecommitdiff
path: root/vim/bundle/slimv/swank-clojure/swank/commands.clj
diff options
context:
space:
mode:
Diffstat (limited to 'vim/bundle/slimv/swank-clojure/swank/commands.clj')
-rw-r--r--vim/bundle/slimv/swank-clojure/swank/commands.clj14
1 files changed, 14 insertions, 0 deletions
diff --git a/vim/bundle/slimv/swank-clojure/swank/commands.clj b/vim/bundle/slimv/swank-clojure/swank/commands.clj
new file mode 100644
index 0000000..1ad8bdc
--- /dev/null
+++ b/vim/bundle/slimv/swank-clojure/swank/commands.clj
@@ -0,0 +1,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)))) \ No newline at end of file