From d573b7413e267aae0c32e083cec45d583ccf0562 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander@sulfrian.net>
Date: Wed, 13 Jan 2010 06:25:15 +0100
Subject: heavy update of emacs configs

---
 emacs.d/snippets/delphi-mode/constructor, destructor.yasnippet | 2 +-
 emacs.d/snippets/delphi-mode/dbg.yasnippet                     | 6 ++++++
 emacs.d/snippets/delphi-mode/func-prototype.yasnippet          | 4 ++--
 emacs.d/snippets/delphi-mode/func.yasnippet                    | 2 +-
 emacs.d/snippets/delphi-mode/procedure-prototype.yasnippet     | 4 ++--
 emacs.d/snippets/delphi-mode/procedure.yasnippet               | 2 +-
 6 files changed, 13 insertions(+), 7 deletions(-)
 create mode 100644 emacs.d/snippets/delphi-mode/dbg.yasnippet

(limited to 'emacs.d/snippets/delphi-mode')

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
-- 
cgit v1.2.3