11 lines
351 B
Text
11 lines
351 B
Text
|
# -*- mode: snippet; require-final-newline: nil -*-
|
||
|
|
# name: module ... end
|
||
|
|
# key: mod
|
||
|
|
# group: definitions
|
||
|
|
# --
|
||
|
|
module ${1:`(let ((fn (capitalize (file-name-nondirectory
|
||
|
|
(directory-file-name
|
||
|
|
default-directory)))))
|
||
|
|
(replace-regexp-in-string "_" "" fn t t))`}
|
||
|
|
$0
|
||
|
|
end
|