blob: 6039ad8d798e1b7880803a3f2d51f870c5bd0e17 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
|
# -*- mode: snippet -*-
# contributor: Alexander Sulfrian <alexander@sulfrian.net>
# name: procedure
# key: proc
# condition: (not (delphi-in-class-definition))
# --
procedure ${1:$$(yas/choose-value (let (value) (dolist (element (delphi-get-classes) value) (setq value (cons (concat element ".") value)))))}${2:Name$(upcase-initials text)}($3);
begin
$0
end;
|