13 lines
377 B
Plaintext

#name : class ... end
#contributor : hitesh <hitesh.jasani@gmail.com>
# --
class ${1:$
(let ((fn (capitalize (file-name-nondirectory
(file-name-sans-extension
(buffer-file-name))))))
(cond
((string-match "_" fn) (replace-match "" nil nil fn))
(t fn)))}
$0
end