Much maturering of vim configs

1 files changed, 33 insertions, 0 deletions

diff --git a/vim/bundle/slimv/swank-clojure/swank/util/clojure.clj b/vim/bundle/slimv/swank-clojure/swank/util/clojure.clj
new file mode 100644
index 0000000..9d04875
--- /dev/null
+++ b/vim/bundle/slimv/swank-clojure/swank/util/clojure.clj
@@ -0,0 +1,33 @@
+(ns swank.util.clojure)
+
+(defn unmunge
+  "Converts a javafied name to a clojure symbol name"
+  ([#^String name]
+     (reduce (fn [#^String s [to from]]
+               (.replaceAll s from (str to)))
+             name
+             clojure.lang.Compiler/CHAR_MAP)))
+
+(defn ns-path
+  "Returns the path form of a given namespace"
+  ([#^clojure.lang.Namespace ns]
+     (let [#^String ns-str (name (ns-name ns))]
+       (-> ns-str
+           (.substring 0 (.lastIndexOf ns-str "."))
+           (.replace \- \_)
+           (.replace \. \/)))))
+
+(defn symbol-name-parts
+  "Parses a symbol name into a namespace and a name. If name doesn't
+   contain a namespace, the default-ns is used (nil if none provided)."
+  ([symbol]
+     (symbol-name-parts symbol nil))
+  ([#^String symbol default-ns]
+     (let [ns-pos (.indexOf symbol (int \/))]
+       (if (= ns-pos -1) ;; namespace found? 
+         [default-ns symbol] 
+         [(.substring symbol 0 ns-pos) (.substring symbol (inc ns-pos))]))))
+
+(defn resolve-ns [sym ns]
+  (or (find-ns sym)
+      (get (ns-aliases ns) sym))) 
\ No newline at end of file