WIP try to fix spelling mistakes in search querie

currently works very slowly and uses a lot of CPU

1 files changed, 21 insertions, 8 deletions

diff --git a/lib/string.fnl b/lib/string.fnl
index 9ac6edd..ca29da0 100644
--- a/lib/string.fnl
+++ b/lib/string.fnl
@@ -1,12 +1,25 @@
-(fn split [string]
-  (accumulate [res [] v _
-               (string:gmatch "%S+")]
+(local {: must} (require :lib.utils))
+
+(fn empty? [str]
+  (or (= str nil) (= (# str) 0)))
+
+(fn letters [str]
+  (assert
+    (= "string" (type str))
+    (string.format "letters(): str must be string, %s given" (type str)))
+  (var result [])
+  (for [i 1 (must (luna.utf.len str))]
+    (table.insert result (must (luna.utf.sub str i 1))))
+  result)
+
+(fn split [str]
+  (accumulate [res [] v _ (str:gmatch "%S+")]
     (do
       (table.insert res v)
       res)))
 
-(fn ends-with [string end]
-  (= (string.sub string (- (# end))) end))
+(fn ends-with [str end]
+  (= (string.sub str (- (# end))) end))
 
 (fn trim [str]
   (str:match "^%s*(.-)%s*$"))
@@ -14,9 +27,9 @@
 (fn truncate [str len ellipsis]
   (if (and (= (type str) "string")
            (< 0 (# str)))
-    (if (< (# str) len)
+    (if (< (must (luna.utf.len str)) len)
       str
-      (.. (trim (luna.utf.sub str 1 len)) (or ellipsis "...")))
+      (.. (trim (must (luna.utf.sub str 1 len))) (or ellipsis "...")))
     ""))
 
-{: split : ends-with : trim : truncate}
+{: letters : empty? : split : ends-with : trim : truncate}