summaryrefslogtreecommitdiffstats
path: root/emacs.d/snippets/delphi-mode
diff options
context:
space:
mode:
authorAlexander Sulfrian <alexander@sulfrian.net>2010-01-13 06:25:15 +0100
committerAlexander Sulfrian <alexander@sulfrian.net>2010-01-13 06:25:15 +0100
commitd573b7413e267aae0c32e083cec45d583ccf0562 (patch)
tree21210212934a70bdb84ebe2f6ca8fa7a0e6203d7 /emacs.d/snippets/delphi-mode
parentf19dd70ece015509d52d0e9a7c113ccccad96e0e (diff)
downloaddotfiles-d573b7413e267aae0c32e083cec45d583ccf0562.tar.gz
dotfiles-d573b7413e267aae0c32e083cec45d583ccf0562.tar.xz
dotfiles-d573b7413e267aae0c32e083cec45d583ccf0562.zip
heavy update of emacs configs
Diffstat (limited to 'emacs.d/snippets/delphi-mode')
-rw-r--r--emacs.d/snippets/delphi-mode/constructor, destructor.yasnippet2
-rw-r--r--emacs.d/snippets/delphi-mode/dbg.yasnippet6
-rw-r--r--emacs.d/snippets/delphi-mode/func-prototype.yasnippet4
-rw-r--r--emacs.d/snippets/delphi-mode/func.yasnippet2
-rw-r--r--emacs.d/snippets/delphi-mode/procedure-prototype.yasnippet4
-rw-r--r--emacs.d/snippets/delphi-mode/procedure.yasnippet2
6 files changed, 13 insertions, 7 deletions
diff --git a/emacs.d/snippets/delphi-mode/constructor, destructor.yasnippet b/emacs.d/snippets/delphi-mode/constructor, destructor.yasnippet
index 33a52ed..114f30e 100644
--- a/emacs.d/snippets/delphi-mode/constructor, destructor.yasnippet
+++ b/emacs.d/snippets/delphi-mode/constructor, destructor.yasnippet
@@ -6,4 +6,4 @@
# --
constructor Create(${1:});
destructor Destroy; override;
-$0 \ No newline at end of file
+ $0$> \ No newline at end of file
diff --git a/emacs.d/snippets/delphi-mode/dbg.yasnippet b/emacs.d/snippets/delphi-mode/dbg.yasnippet
new file mode 100644
index 0000000..66fc15f
--- /dev/null
+++ b/emacs.d/snippets/delphi-mode/dbg.yasnippet
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# contributor : Alexander Sulfrian <alexander@sulfrian.net>
+# name: dbg
+# --
+DebugWriteln($1);
+ $0$> \ No newline at end of file
diff --git a/emacs.d/snippets/delphi-mode/func-prototype.yasnippet b/emacs.d/snippets/delphi-mode/func-prototype.yasnippet
index cae55d7..2344f07 100644
--- a/emacs.d/snippets/delphi-mode/func-prototype.yasnippet
+++ b/emacs.d/snippets/delphi-mode/func-prototype.yasnippet
@@ -4,5 +4,5 @@
# key: func
# condition: (delphi-in-class-definition)
# --
-function ${1:Name$(capitalize text)}($2): $3;
-$0 \ No newline at end of file
+function ${1:Name$(upcase-initials text)}($2): $3;
+ $0$> \ No newline at end of file
diff --git a/emacs.d/snippets/delphi-mode/func.yasnippet b/emacs.d/snippets/delphi-mode/func.yasnippet
index a42a598..31fe413 100644
--- a/emacs.d/snippets/delphi-mode/func.yasnippet
+++ b/emacs.d/snippets/delphi-mode/func.yasnippet
@@ -4,7 +4,7 @@
# key: func
# condition: (not (delphi-in-class-definition))
# --
-function ${1:$$(yas/choose-value (let (value) (dolist (element (delphi-get-classes) value) (setq value (cons (concat element ".") value)))))}${2:Name$(capitalize text)}($3): $4;
+function ${1:$$(yas/choose-value (let (value) (dolist (element (delphi-get-classes) value) (setq value (cons (concat element ".") value)))))}${2:Name$(upcase-initials text)}($3): $4;
begin
$0
end; \ No newline at end of file
diff --git a/emacs.d/snippets/delphi-mode/procedure-prototype.yasnippet b/emacs.d/snippets/delphi-mode/procedure-prototype.yasnippet
index 09927ac..3c1d8cb 100644
--- a/emacs.d/snippets/delphi-mode/procedure-prototype.yasnippet
+++ b/emacs.d/snippets/delphi-mode/procedure-prototype.yasnippet
@@ -4,5 +4,5 @@
# key: proc
# condition: (delphi-in-class-definition)
# --
-procedure ${1:Name$(capitalize text)}($2);
-$0 \ No newline at end of file
+procedure ${1:Name$(upcase-initials text)}($2);
+ $0$> \ No newline at end of file
diff --git a/emacs.d/snippets/delphi-mode/procedure.yasnippet b/emacs.d/snippets/delphi-mode/procedure.yasnippet
index 9e3a08e..6039ad8 100644
--- a/emacs.d/snippets/delphi-mode/procedure.yasnippet
+++ b/emacs.d/snippets/delphi-mode/procedure.yasnippet
@@ -4,7 +4,7 @@
# 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$(capitalize text)}($3);
+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; \ No newline at end of file