34 lines
1 KiB
Text
34 lines
1 KiB
Text
|
# -*- coding: utf-8 -*-
|
||
|
|
# name: defm
|
||
|
|
# contributor: Yasser Gonz¨¢lez Fern¨¢ndez <yglez@uh.cu>
|
||
|
|
# key: defm
|
||
|
|
# --
|
||
|
|
def ${1:name}(self, $2):
|
||
|
|
"""$3
|
||
|
|
${2:$
|
||
|
|
(let* ((indent
|
||
|
|
(concat "\n" (make-string (current-column) 32)))
|
||
|
|
(args
|
||
|
|
(mapconcat
|
||
|
|
'(lambda (x)
|
||
|
|
(if (not (string= (nth 0 x) ""))
|
||
|
|
(concat "- " (char-to-string 96) (nth 0 x)
|
||
|
|
(char-to-string 96) ":")))
|
||
|
|
(mapcar
|
||
|
|
'(lambda (x)
|
||
|
|
(mapcar
|
||
|
|
'(lambda (x)
|
||
|
|
(replace-regexp-in-string "[[:blank:]]*$" ""
|
||
|
|
(replace-regexp-in-string "^[[:blank:]]*" "" x)))
|
||
|
|
x))
|
||
|
|
(mapcar '(lambda (x) (split-string x "="))
|
||
|
|
(split-string text ",")))
|
||
|
|
indent)))
|
||
|
|
(if (string= args "")
|
||
|
|
(make-string 3 34)
|
||
|
|
(mapconcat
|
||
|
|
'identity
|
||
|
|
(list "" "Arguments:" args (make-string 3 34))
|
||
|
|
indent)))
|
||
|
|
}
|
||
|
|
$0
|