init

snippets/crystal-mode/cls

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: class ... end
+# key: cls
+# group : definitions
+# --
+class ${1:`(let ((fn (capitalize (file-name-nondirectory
+                                 (file-name-sans-extension
+				 (or (buffer-file-name)
+				     (buffer-name (current-buffer))))))))
+             (replace-regexp-in-string "_" "" fn t t))`}
+  $0
+end