ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-12-13 17:04:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix indent (was 3 spaces) of snippets for python-mode

Browse Source
This commit is contained in:
Zhang Chiyuan
2008-04-25 15:01:39 +00:00
parent 6c51fd8e21
commit db6a74078f
10 changed files with 112 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
snippets/text-mode/python-mode/class
View File

@@ -5,50 +5,50 @@
# contributor: Yasser González Fernández <yglez@uh.cu>
# --
class ${1:ClassName}(${2:object}):
"""$3
"""
"""$3
"""
def __init__(self, $4):
"""$5
${4:$
(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
def __init__(self, $4):
"""$5
${4:$
(let* ((indent
(concat "\n" (make-string (current-column) 32)))
(args
(mapconcat
'(lambda (x)
(mapcar
(lambda (x)
(replace-regexp-in-string "\s*$" ""
(replace-regexp-in-string "^\s*" "" 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)))
}
${4:$
(mapconcat
'(lambda (x)
(if (not (string= (nth 0 x) ""))
(concat "self._" (nth 0 x) " = " (nth 0 x))))
(mapcar
(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 "\s*$" ""
(replace-regexp-in-string "^\s*" "" 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)))
}
${4:$
(mapconcat
'(lambda (x)
(mapcar
'(lambda (x)
(replace-regexp-in-string "\s*$" ""
(replace-regexp-in-string "^\s*" "" x)))
x))
(mapcar '(lambda (x) (split-string x "="))
(split-string text ",")))
(concat "\n" (make-string (current-column) 32)))
}
$0
(if (not (string= (nth 0 x) ""))
(concat "self._" (nth 0 x) " = " (nth 0 x))))
(mapcar
'(lambda (x)
(mapcar
'(lambda (x)
(replace-regexp-in-string "\s*$" ""
(replace-regexp-in-string "^\s*" "" x)))
x))
(mapcar '(lambda (x) (split-string x "="))
(split-string text ",")))
(concat "\n" (make-string (current-column) 32)))
}
$0