Update

UltiSnips/ada.snippets

@@ -100,7 +100,16 @@ else:
 endsnippet
 
 snippet type "declare a new type" bA
-type ${1:TypeName} is ${2:array($3..$4)} of ${5:Integer};$0
+type ${1:TypeName} is ${2:array($3..$4) of }`!p
+if t[2] == "record":
+	snip.rv = "\n\t\t"
+else:
+	snip.rv = ""`$5`!p
+if t[2] == "record":
+	snip.rv = "\n\tend record"
+else:
+	snip.rv = ""
+`;$0
 endsnippet
 
 snippet docstring "Document String with most important infor" b
@@ -109,3 +118,13 @@ snippet docstring "Document String with most important infor" b
 -- Author(s): ${1:Yannick Reiß}
 -- Content: ${2: Function `!p snip.rv = fn.split('.')[0]`}
 endsnippet
+
+snippet project "Project" b
+project ${1:Default} is
+   for Source_Dirs use ("${2:src}");
+   for Object_Dir use "${3:obj}";
+   for Exec_Dir use "${4:bin}";
+   for Main use ("${5:main.adb}");
+   for Languages use ("Ada");
+end $1;
+endsnippet