36 lines
1.1 KiB
Text
36 lines
1.1 KiB
Text
|
# -*- coding: utf-8 -*-
|
||
|
|
# name: def
|
||
|
|
# contributor: Orestis Markou
|
||
|
|
# contributor: Yasser González Fernández <yglez@uh.cu>
|
||
|
|
# key: def
|
||
|
|
# --
|
||
|
|
def ${1:name}($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
|