From d804eea71f7fc1fc0b6bc4dec38013af58fbb397 Mon Sep 17 00:00:00 2001
From: Enrico Maria De Angelis <enricomaria.dean6elis@gmail.com>
Date: Tue, 12 Sep 2023 17:55:33 +0100
Subject: [PATCH] Scheme: improve alignment for some snippets and add one
 UltiSnips snippet

---
 UltiSnips/scheme.snippets |  8 ++++++++
 snippets/scheme.snippets  | 24 ++++++++++++++----------
 2 files changed, 22 insertions(+), 10 deletions(-)
 create mode 100644 UltiSnips/scheme.snippets

diff --git a/UltiSnips/scheme.snippets b/UltiSnips/scheme.snippets
new file mode 100644
index 000000000..263538871
--- /dev/null
+++ b/UltiSnips/scheme.snippets
@@ -0,0 +1,8 @@
+###########################################################################
+#                            TextMate Snippets                            #
+###########################################################################
+snippet def
+(define ${2:(${1:name-and-args})}
+	${0:body})
+endsnippet
+# vim:ft=snippets:
diff --git a/snippets/scheme.snippets b/snippets/scheme.snippets
index 0aa137945..312be8eab 100644
--- a/snippets/scheme.snippets
+++ b/snippets/scheme.snippets
@@ -1,36 +1,40 @@
 snippet +
 	(+ ${1}
-		${0})
+	   ${0})
 
 snippet -
 	(- ${1}
-		${0})
+	   ${0})
 
 snippet /
 	(/ ${1}
-		${0})
+	   ${0})
 
 snippet *
 	(* ${1}
-		${0})
+	   ${0})
 
 # Definition
 snippet def
-	(define (${1:name})
-		${0:definition})
+	(define ${1:name}
+		${0})
+
+snippet deff
+	(define (${1:name-and-args})
+		${0:body})
 
 # Definition with lambda
 snippet defl
 	(define ${1:name}
-		(lambda (x)(${0:definition})))
+		(lambda (${2:args}) (${0:body})))
 
 # Condition
 snippet cond
 	(cond ((${1:predicate}) (${2:action}))
-		((${3:predicate}) (${0:action})))
+	      ((${3:predicate}) (${0:action})))
 
 # If statement
 snippet if
 	(if (${1:predicate})
-		(${2:true-action})
-		(${0:false-action}))
+	    (${2:true-action})
+	    (${0:false-action}))