1 files changed, 25 insertions, 1 deletions

diff --git a/src/strings.lisp b/src/strings.lisp
index 68289aa..b11c31c 100644
--- a/src/strings.lisp
+++ b/src/strings.lisp
@@ -3,11 +3,23 @@
 (defpackage :ukkoclot/strings
   (:use :c2cl :iterate)
   (:import-from :cl-unicode :general-category)
-  (:export :escape-xml :is-tg-whitespace-str :lisp->snake-case :snake->lisp-case :starts-with :starts-with-ignore-case))
+  (:export
+   :ends-with
+   :escape-xml
+   :is-tg-whitespace-str
+   :lisp->camel-case
+   :lisp->snake-case
+   :snake->lisp-case
+   :starts-with
+   :starts-with-ignore-case))
 (in-package :ukkoclot/strings)
 
 ;; These are very inefficient but I don't care until I profile
 
+(defun ends-with (str suffix)
+  (and (> (length str) (length suffix))
+       (string= str suffix :start1 (- (length str) (length suffix)))))
+
 (defun escape-xml (str &optional out)
   (if out
       (escape-xml% str out)
@@ -36,6 +48,18 @@
   (iter (for ch in-string str)
     (always (is-tg-whitespace ch))))
 
+(defun lisp->camel-case (str)
+  (with-output-to-string (out)
+    (let ((should-caps nil))
+      (iter (for ch in-string str)
+            (cond ((char= ch #\-)
+                   (setf should-caps t))
+                  (should-caps
+                   (write-char (char-upcase ch) out)
+                   (setf should-caps nil))
+                  (t
+                   (write-char (char-downcase ch) out)))))))
+
 (defun lisp->snake-case (str)
   (with-output-to-string (out)
     (loop for ch across str do