1 files changed, 16 insertions, 0 deletions
diff --git a/vim/bundle/slimv/swank-clojure/swank/util/string.clj b/vim/bundle/slimv/swank-clojure/swank/util/string.clj
new file mode 100644
index 0000000..3250a61
--- /dev/null
+++ b/vim/bundle/slimv/swank-clojure/swank/util/string.clj
@@ -0,0 +1,16 @@
+(ns swank.util.string)
+
+(defn largest-common-prefix
+  "Returns the largest common prefix of two strings."
+  ([#^String a, #^String b]
+     (apply str (take-while (comp not nil?) (map #(when (= %1 %2) %1) a b))))
+  {:tag String})
+
+(defn char-position
+  "Finds the position of a character within a string, optionally
+   provide a starting index. Returns nil if none is found."
+  ([c str] (char-position c str 0))
+  ([#^Character c #^String str #^Integer start]
+     (let [idx (.indexOf str (int c) start)]
+       (when (not= -1 idx)
+         idx))))
+\ No newline at end of file