summaryrefslogblamecommitdiffstats
path: root/emacs.d/snippets/delphi-mode/procedure.yasnippet
blob: 6039ad8d798e1b7880803a3f2d51f870c5bd0e17 (plain) (tree)
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;