git-gui: added gui.maxrecentrepo to extend the number of remembered repos

The list of recently opened repositories shown when launching git-gui from
outside a repository was hard coded to only show a maximum of 10 items.
This config variable allows the user to override this default.

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>

diff --git a/lib/choose_repository.tcl b/lib/choose_repository.tcl
index ee58981f539bfd27dbba99db47d6f85102b0e7a6..3c10bc656d207553c8c093abcca275dd253a57fb 100644 (file)
--- a/lib/choose_repository.tcl
+++ b/lib/choose_repository.tcl
@@ -24,6 +24,10 @@ field sorted_recent       ; # recent repositories (sorted)
 constructor pick {} {
        global M1T M1B use_ttk NS
 
 constructor pick {} {
        global M1T M1B use_ttk NS
 

+       if {[set maxrecent [get_config gui.maxrecentrepo]] eq {}} {
+               set maxrecent 10
+       }
+

        make_dialog top w
        wm title $top [mc "Git Gui"]
 
        make_dialog top w
        wm title $top [mc "Git Gui"]
 


@@ -148,7 +152,7 @@ constructor pick {} {
                        -background [get_bg_color $w_body.recentlabel] \
                        -wrap none \
                        -width 50 \
                        -background [get_bg_color $w_body.recentlabel] \
                        -wrap none \
                        -width 50 \

-                       -height 10
+                       -height $maxrecent

                $w_recentlist tag conf link \
                        -foreground blue \
                        -underline 1
                $w_recentlist tag conf link \
                        -foreground blue \
                        -underline 1


@@ -264,7 +268,11 @@ proc _append_recentrepos {path} {
        git config --global --add gui.recentrepo $path
        load_config 1
 
        git config --global --add gui.recentrepo $path
        load_config 1
 

-       while {[llength $recent] > 10} {
+       if {[set maxrecent [get_config gui.maxrecentrepo]] eq {}} {
+               set maxrecent 10
+       }
+
+       while {[llength $recent] > $maxrecent} {

                _unset_recentrepo [lindex $recent 0]
                set recent [lrange $recent 1 end]
        }
                _unset_recentrepo [lindex $recent 0]
                set recent [lrange $recent 1 end]
        }