From d71b435d31684e9d3265f0e2f90d7b5a34710463 Mon Sep 17 00:00:00 2001
From: Yann Lebrun <thyphoonfr@gmail.com>
Date: Mon, 1 Sep 2025 16:58:27 +0200
Subject: [PATCH] Add init repo

---
 main2.pb | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/main2.pb b/main2.pb
index a059e50..6f4fd62 100644
--- a/main2.pb
+++ b/main2.pb
@@ -1190,6 +1190,16 @@ Procedure.i GetGitVersion()
   ProcedureReturn #False
 EndProcedure
 
+Procedure GitInit()
+  If Git("init") = 0
+    MessageRequester("Git init", "Répertoire initialisé." + #LF$ + SupTrim(main\gitCall\output), #PB_MessageRequester_Info)
+    ProcedureReturn #True
+  EndIf
+  MessageRequester("Git init", "Échec: " + #LF$ + SupTrim(main\gitCall\errors), #PB_MessageRequester_Error)
+  ProcedureReturn 0
+
+EndProcedure
+
 Procedure.i DoCommit()
   Protected code.i,nb.l=0,i.l
   Protected args.s = "add"
@@ -2028,7 +2038,8 @@ Procedure Main()
                   Case #Panel_Config
                 EndSelect
               EndIf 
-              
+            Case #GID_BtnInit
+                GitInit()
             Case #GID_BtnBrowseRepo
               ; FR: Sélection dossier / EN: select folder
               Protected path$ = PathRequester(T("Dlg.SelectRepo","Sélectionnez le dépôt local..."), GetCurrentDirectory(),WindowID(#WinMain))
@@ -2103,8 +2114,8 @@ EndProcedure
 Main()
 
 ; IDE Options = PureBasic 6.21 (Windows - x64)
-; CursorPosition = 776
-; FirstLine = 721
+; CursorPosition = 1197
+; FirstLine = 1190
 ; Folding = ---------
 ; EnableThread
 ; EnableXP