14 lines
403 B
Plaintext
14 lines
403 B
Plaintext
# -*- mode: snippet -*-
|
|
# name: module ... end
|
|
# group : definitions
|
|
# key: mod
|
|
# --
|
|
module ${1:`(let ((fn (capitalize (file-name-nondirectory
|
|
(file-name-sans-extension
|
|
(or (buffer-file-name)
|
|
(buffer-name (current-buffer))))))))
|
|
(while (string-match "_" fn)
|
|
(setq fn (replace-match "" nil nil fn)))
|
|
fn)`}
|
|
$0
|
|
end |