| # -*- 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 |