snakecase

aa1024 · Apr 9, 2018 · a7fb65c · a7fb65c
1 parent 4cc5d57
commit a7fb65c
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/libs/str.q b/libs/str.q
@@ -5,9 +5,12 @@
 
 \d .str
 
+/@function sc @desc Snakecase : underscore separated text , but the case is preserverd 
+/   @param string 
+/@returns underscore separated text without any case changes.
 sc:{ ssr[x;" ";"_"] }
 
-tc:{ "-"sv cut[0,where[x=upper x]; x] }
+tc:{ ssr[x;" ";"-"] }
 
 
 /@function us @desc Camel case to lower case underscore separated