0
@@ -109,7 +109,7 @@ If EXPR is not nil exeutes BODY.
0
      (replace-regexp-in-string
0
       "\\([A-Z]+\\)\\([A-Z][a-z]\\)" "\\1_\\2"
0
       (replace-regexp-in-string
0
-       "\\([a-z\\d]\\)\\([A-Z]\\)" "\\1_\\2"
0
+       "\\([a-z0-9]\\)\\([A-Z]\\)" "\\1_\\2"
0
        string)))))
0
 
0
 (defun string-not-empty (str) ;(+)
0
@@ -346,6 +346,21 @@ as the value of the symbol, and the hook as the function definition."
0
          history ; hist
0
          (car history-value))))) ;def
0
 
0
+;; railsy-replace
0
+(defun camelized-p (string)
0
+  "Return nil unless string is in camelized format (first character is capital, there is at least on lower capital and all characters are letters of numbers"
0
+  (let ((case-fold-search nil))
0
+      (string-match "^[A-Z][A-Za-z0-9]*[a-z]+[A-Za-z0-9]*$" string)))
0
+
0
+(defun underscored-p (string)
0
+  "Return nil unless string is in underscored format (containing only lower case characters, numbers or underscores)"
0
+  (let ((case-fold-search nil))
0
+    (string-match "^[a-z][a-z0-9_]*$" string)))
0
+
0
+(defun replace-rails-variable ()
0
+  (interactive)
0
+)
0
+
0
 ;; MMM
0
 
0
 ;; (defvar mmm-indent-sandbox-finish-position nil)