From 376a7d8be85e9a1494ee909ebf61d01322ee3af6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Francisco=20Mil=C3=A1n?=
 <36721657+francisco-milan@users.noreply.github.com>
Date: Wed, 5 Jun 2024 23:03:17 -0600
Subject: [PATCH] Set Default Git User Details  (#6920)

Co-authored-by: Marc Bernard <59966492+mbtools@users.noreply.github.com>
Co-authored-by: Lars Hvam <larshp@hotmail.com>
---
 src/env/zcl_abapgit_settings.clas.abap        | 32 +++++++++++++++++++
 .../zcl_abapgit_gui_page_sett_pers.clas.abap  | 24 ++++++++++++++
 src/zif_abapgit_definitions.intf.abap         |  2 ++
 3 files changed, 58 insertions(+)

diff --git a/src/env/zcl_abapgit_settings.clas.abap b/src/env/zcl_abapgit_settings.clas.abap
index 2d2d654e0..f6738c3a1 100644
--- a/src/env/zcl_abapgit_settings.clas.abap
+++ b/src/env/zcl_abapgit_settings.clas.abap
@@ -156,6 +156,18 @@ CLASS zcl_abapgit_settings DEFINITION
     METHODS set_activate_wo_popup
       IMPORTING
         !iv_act_wo_popup TYPE zif_abapgit_definitions=>ty_s_user_settings-activate_wo_popup .
+    METHODS set_default_git_uname
+      IMPORTING
+        !iv_default_git_uname TYPE string.
+    METHODS get_default_git_uname
+      RETURNING
+        VALUE(rv_default_git_uname) TYPE string.
+    METHODS set_default_git_email
+      IMPORTING
+        !iv_default_git_email TYPE string.
+    METHODS get_default_git_email
+      RETURNING
+        VALUE(rv_default_git_email) TYPE string.
   PROTECTED SECTION.
   PRIVATE SECTION.
     TYPES: BEGIN OF ty_s_settings,
@@ -491,4 +503,24 @@ CLASS zcl_abapgit_settings IMPLEMENTATION.
         cg_data = ms_settings ).
 
   ENDMETHOD.
+
+
+  METHOD get_default_git_uname.
+    rv_default_git_uname = ms_user_settings-default_git_uname.
+  ENDMETHOD.
+
+
+  METHOD set_default_git_uname.
+    ms_user_settings-default_git_uname = iv_default_git_uname.
+  ENDMETHOD.
+
+
+  METHOD get_default_git_email.
+    rv_default_git_email = ms_user_settings-default_git_email.
+  ENDMETHOD.
+
+
+  METHOD set_default_git_email.
+    ms_user_settings-default_git_email = iv_default_git_email.
+  ENDMETHOD.
 ENDCLASS.
diff --git a/src/ui/pages/sett/zcl_abapgit_gui_page_sett_pers.clas.abap b/src/ui/pages/sett/zcl_abapgit_gui_page_sett_pers.clas.abap
index e6c921ceb..ce66fbc2b 100644
--- a/src/ui/pages/sett/zcl_abapgit_gui_page_sett_pers.clas.abap
+++ b/src/ui/pages/sett/zcl_abapgit_gui_page_sett_pers.clas.abap
@@ -39,6 +39,9 @@ CLASS zcl_abapgit_gui_page_sett_pers DEFINITION
         hide_sapgui_hint       TYPE string VALUE 'hide_sapgui_hint',
         activate_wo_popup      TYPE string VALUE 'activate_wo_popup',
         label_colors           TYPE string VALUE 'label_colors',
+        git_default_values     TYPE string VALUE 'git_default_values',
+        default_git_uname      TYPE string VALUE 'default_git_uname',
+        default_git_email      TYPE string VALUE 'default_git_email',
       END OF c_id.
     CONSTANTS:
       BEGIN OF c_event,
@@ -188,6 +191,15 @@ CLASS zcl_abapgit_gui_page_sett_pers IMPLEMENTATION.
       iv_name          = c_id-parallel_proc_disabled
       iv_label         = 'Disable Parallel Processing'
       iv_hint          = 'If disabled, abapGit will use only a single thread to serialize objects'
+    )->start_group(
+      iv_name          = c_id-git_default_values
+      iv_label         = 'Git Default Values'
+    )->text(
+      iv_name          = c_id-default_git_uname
+      iv_label         = 'Default User'
+    )->text(
+      iv_name          = c_id-default_git_email
+      iv_label         = 'Default Email'
     )->command(
       iv_label         = 'Save Settings'
       iv_cmd_type      = zif_abapgit_html_form=>c_cmd_type-input_main
@@ -248,6 +260,14 @@ CLASS zcl_abapgit_gui_page_sett_pers IMPLEMENTATION.
       iv_key = c_id-parallel_proc_disabled
       iv_val = boolc( ms_settings-parallel_proc_disabled = abap_true ) ) ##TYPE.
 
+    " Git Default Values
+    ro_form_data->set(
+      iv_key = c_id-default_git_uname
+      iv_val = |{ ms_settings-default_git_uname }| ).
+    ro_form_data->set(
+      iv_key = c_id-default_git_email
+      iv_val = |{ ms_settings-default_git_email }| ).
+
   ENDMETHOD.
 
 
@@ -336,6 +356,10 @@ CLASS zcl_abapgit_gui_page_sett_pers IMPLEMENTATION.
     " Resources
     ms_settings-parallel_proc_disabled = mo_form_data->get( c_id-parallel_proc_disabled ).
 
+    " Git Default Values
+    ms_settings-default_git_uname = mo_form_data->get( c_id-default_git_uname ).
+    ms_settings-default_git_email = mo_form_data->get( c_id-default_git_email ).
+
     " Store in DB
     mo_settings->set_user_settings( ms_settings ).
 
diff --git a/src/zif_abapgit_definitions.intf.abap b/src/zif_abapgit_definitions.intf.abap
index 2b6ac8642..d63168aa5 100644
--- a/src/zif_abapgit_definitions.intf.abap
+++ b/src/zif_abapgit_definitions.intf.abap
@@ -232,6 +232,8 @@ INTERFACE zif_abapgit_definitions
       hide_sapgui_hint       TYPE abap_bool,
       activate_wo_popup      TYPE abap_bool,
       label_colors           TYPE string,
+      default_git_uname      TYPE string,
+      default_git_email      TYPE string,
     END OF ty_s_user_settings .
   TYPES:
     BEGIN OF ty_list_settings,