From d7a50098974c3e4f688211884a041c5afb15d0dd Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 11 Aug 2014 02:12:13 +0200
Subject: [PATCH] default configs are added on new projects

---
 src/ce_project.pas | 27 +++++++++++++++++++++++++--
 1 file changed, 25 insertions(+), 2 deletions(-)

diff --git a/src/ce_project.pas b/src/ce_project.pas
index fb23b45d..6046e196 100644
--- a/src/ce_project.pas
+++ b/src/ce_project.pas
@@ -4,8 +4,6 @@ unit ce_project;
 
 interface
 
-// TODO: configuration templates
-
 uses
   Classes, SysUtils, ce_dmdwrap, ce_libman;
 
@@ -55,6 +53,7 @@ type
     procedure beforeChanged;
     procedure afterChanged;
     procedure reset;
+    procedure addDefaults;
     function getAbsoluteSourceName(const aIndex: integer): string;
     function getAbsoluteFilename(const aFilename: string): string;
     procedure addSource(const aFilename: string);
@@ -85,6 +84,7 @@ begin
   fSrcsCop := TStringList.Create;
   fOptsColl := TCollection.create(TCompilerConfiguration);
   reset;
+  addDefaults;
   fModified := false;
 end;
 
@@ -231,6 +231,29 @@ begin
   result := TCompilerConfiguration(fOptsColl.Items[fConfIx]);
 end;
 
+procedure TCEProject.addDefaults;
+begin
+  with TCompilerConfiguration(fOptsColl.Add) do
+  begin
+    Name := 'debug';
+    debugingOptions.debug := true;
+    debugingOptions.addCInformations := true;
+  end;
+  with TCompilerConfiguration(fOptsColl.Add) do
+  begin
+    Name := 'unittest';
+    outputOptions.unittest := true;
+  end;
+  with TCompilerConfiguration(fOptsColl.Add) do
+  begin
+    Name := 'release';
+    outputOptions.release := true;
+    outputOptions.inlining := true;
+    outputOptions.boundsCheck := offAlways;
+    outputOptions.optimizations := true;
+  end;
+end;
+
 procedure TCEProject.reset;
 var
   defConf: TCompilerConfiguration;