33 lines
1 KiB
Clojure
33 lines
1 KiB
Clojure
|
(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)))
|