# -*- 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;