Move string compatibility functions to cider-util

I can't figure out what's bothering the byte-compiler in the old
approach... this should solve the problem, though.

1 files changed, 16 insertions, 0 deletions

diff --git a/cider-util.el b/cider-util.el
index 9ec214e1..0fcc7fd9 100644
--- a/cider-util.el
+++ b/cider-util.el
@@ -285,6 +285,22 @@ Unless you specify a BUFFER it will default to the current one."
 
 ;;; Strings
 
+(defun cider-string-trim-left (string)
+  "Remove leading whitespace from STRING."
+  (if (string-match "\\`[ \t\n\r]+" string)
+      (replace-match "" t t string)
+    string))
+
+(defun cider-string-trim-right (string)
+  "Remove trailing whitespace from STRING."
+  (if (string-match "[ \t\n\r]+\\'" string)
+      (replace-match "" t t string)
+    string))
+
+(defun cider-string-trim (string)
+  "Remove leading and trailing whitespace from STRING."
+  (string-trim-left (string-trim-right string)))
+
 (defun cider-string-join (strings &optional separator)
   "Join all STRINGS using SEPARATOR."
   (mapconcat #'identity strings separator))