Le mercredi 05 mars 2014 à 19:00 +0100, Jens Lehmann a écrit :
> Am 05.03.2014 00:01, schrieb Henri GEIST:
> > Permit to do a 'git clone --recursive' through git-gui.
> 
> I really like where this is heading!
> 
> Some minor issues:
> 
> - I think we should be more verbose in the commit message,
>   including that and why the default should be "on". Maybe
>   like this?
> 
>   "Permit to do a 'git clone --recursive' through git-gui.
>   Add a 'recursive' checkbox in the clone menu which allows
>   users to clone a repository and all its submodules in one
>   go (unless the 'update' flag is set to "none" in the
>   .gitmodules file for a submodule, in that case that
>   specific submodule is not cloned automatically).
> 
>   Enable this new option per default, as most users want to
>   clone all submodules too when cloning the superproject
>   (This is currently not possible without leaving git gui
>   or adding a custom tool entry for that)."
> 

Ok for me.

> 
> - I'd rather change the button text from "Recursive (For
>   submodules)" to something like "Recursively clone
>   submodules too" or such.
> 

Perfect

> 
> - Wouldn't it be easier to pass the '--recurse-submodules"
>   option to the "git clone" call for the superproject instead
>   of adding the _do_clone_submodules() function doing a
>   subsequent "git submodule update --init --recursive"? That
>   is also be more future proof with respect to the autoclone
>   config option we have in mind (which would add that behavior
>   for "git clone" itself, making the call you added redundant).
> 

That is what I planned to do at beginning.
But git-gui never call git clone anywhere.
It make the clone step by step with a long and complicated list of
commands just like a Tcl rewrite of git-clone.
Have a look on the function _do_clone2 in choose_repository.tcl.

As I suspect there should be a good reason for this that I did not
understand I have choose to not refactoring it.
And in fact looking in the code 'git clone --recursive' do nothing
else than calling 'git submodule update --init --recursive' like I
have done to complete this rewrite of 'git-clone'.


> 
> > Signed-off-by: Henri GEIST <geist.henri@laposte.net>
> > ---
> > I have set the default checkbox state to 'true' by default has all my gui users
> > use it all the time this way.
> > But as it change the default behavior you may prefer to set it to 'false' by
> > default.
> > 
> >  git-gui/lib/choose_repository.tcl |   34 ++++++++++++++++++++++++++++++++--
> >  1 file changed, 32 insertions(+), 2 deletions(-)
> > 
> > diff --git a/git-gui/lib/choose_repository.tcl b/git-gui/lib/choose_repository.tcl
> > index 3c10bc6..47d436b 100644
> > --- a/git-gui/lib/choose_repository.tcl
> > +++ b/git-gui/lib/choose_repository.tcl
> > @@ -18,6 +18,7 @@ field local_path       {} ; # Where this repository is locally
> >  field origin_url       {} ; # Where we are cloning from
> >  field origin_name  origin ; # What we shall call 'origin'
> >  field clone_type hardlink ; # Type of clone to construct
> > +field recursive      true ; # Recursive cloning flag
> >  field readtree_err        ; # Error output from read-tree (if any)
> >  field sorted_recent       ; # recent repositories (sorted)
> >  
> > @@ -525,6 +526,11 @@ method _do_clone {} {
> >  	foreach r $w_types {
> >  		pack $r -anchor w
> >  	}
> > +	${NS}::checkbutton $args.type_f.recursive \
> > +		-text [mc "Recursive (For submodules)"] \
> > +		-variable @recursive \
> > +		-onvalue true -offvalue false
> > +	pack $args.type_f.recursive
> >  	grid $args.type_l $args.type_f -sticky new
> >  
> >  	grid columnconfigure $args 1 -weight 1
> > @@ -952,6 +958,30 @@ method _do_clone_checkout {HEAD} {
> >  	fileevent $fd readable [cb _readtree_wait $fd]
> >  }
> >  
> > +method _do_validate_submodule_cloning {ok} {
> > +	if {$ok} {
> > +		$o_cons done $ok
> > +		set done 1
> > +	} else {
> > +		_clone_failed $this [mc "Cannot clone submodules."]
> > +	}
> > +}
> > +
> > +method _do_clone_submodules {} {
> > +	if {$recursive eq {true}} {
> > +		destroy $w_body
> > +		set o_cons [console::embed \
> > +			$w_body \
> > +			[mc "Cloning submodules"]]
> > +		pack $w_body -fill both -expand 1 -padx 10
> > +		$o_cons exec \
> > +			[list git submodule update --init --recursive] \
> > +			[cb _do_validate_submodule_cloning]
> > +	} else {
> > +		set done 1
> > +	}
> > +}
> > +
> >  method _readtree_wait {fd} {
> >  	set buf [read $fd]
> >  	$o_cons update_meter $buf
> > @@ -982,7 +1012,7 @@ method _readtree_wait {fd} {
> >  		fconfigure $fd_ph -blocking 0 -translation binary -eofchar {}
> >  		fileevent $fd_ph readable [cb _postcheckout_wait $fd_ph]
> >  	} else {
> > -		set done 1
> > +		_do_clone_submodules $this
> >  	}
> >  }
> >  
> > @@ -996,7 +1026,7 @@ method _postcheckout_wait {fd_ph} {
> >  			hook_failed_popup post-checkout $pch_error 0
> >  		}
> >  		unset pch_error
> > -		set done 1
> > +		_do_clone_submodules $this
> >  		return
> >  	}
> >  	fconfigure $fd_ph -blocking 0
> > 
>