Browse Source

Merge branch 'js/git-gui-msgfmt-on-windows' into maint

Because recent Git for Windows do come with a real msgfmt, the
build procedure for git-gui has been updated to use it instead of a
hand-rolled substitute.

* js/git-gui-msgfmt-on-windows:
  git-gui (MinGW): make use of MSys2's msgfmt
  git gui: allow for a long recentrepo list
  git gui: de-dup selected repo from recentrepo history
  git gui: cope with duplicates in _get_recentrepo
  git-gui: remove duplicate entries from .gitconfig's gui.recentrepo
maint
Junio C Hamano 7 years ago
parent
commit
f613b251da
  1. 2
      git-gui/Makefile
  2. 17
      git-gui/lib/choose_repository.tcl

2
git-gui/Makefile

@ -161,7 +161,9 @@ ifeq ($(uname_S),Darwin) @@ -161,7 +161,9 @@ ifeq ($(uname_S),Darwin)
endif
endif
ifneq (,$(findstring MINGW,$(uname_S)))
ifeq ($(shell expr "$(uname_R)" : '1\.'),2)
NO_MSGFMT=1
endif
GITGUI_WINDOWS_WRAPPER := YesPlease
GITGUI_RELATIVE := 1
endif

17
git-gui/lib/choose_repository.tcl

@ -142,6 +142,10 @@ constructor pick {} { @@ -142,6 +142,10 @@ constructor pick {} {
-label [mc "Recent Repositories"]
}

if {[set lenrecent [llength $sorted_recent]] < $maxrecent} {
set lenrecent $maxrecent
}

${NS}::label $w_body.space
${NS}::label $w_body.recentlabel \
-anchor w \
@ -153,7 +157,7 @@ constructor pick {} { @@ -153,7 +157,7 @@ constructor pick {} {
-background [get_bg_color $w_body.recentlabel] \
-wrap none \
-width 50 \
-height $maxrecent
-height $lenrecent
$w_recentlist tag conf link \
-foreground blue \
-underline 1
@ -235,19 +239,19 @@ method _invoke_next {} { @@ -235,19 +239,19 @@ method _invoke_next {} {

proc _get_recentrepos {} {
set recent [list]
foreach p [get_config gui.recentrepo] {
foreach p [lsort -unique [get_config gui.recentrepo]] {
if {[_is_git [file join $p .git]]} {
lappend recent $p
} else {
_unset_recentrepo $p
}
}
return [lsort $recent]
return $recent
}

proc _unset_recentrepo {p} {
regsub -all -- {([()\[\]{}\.^$+*?\\])} $p {\\\1} p
git config --global --unset gui.recentrepo "^$p\$"
catch {git config --global --unset-all gui.recentrepo "^$p\$"}
load_config 1
}

@ -262,12 +266,11 @@ proc _append_recentrepos {path} { @@ -262,12 +266,11 @@ proc _append_recentrepos {path} {
set i [lsearch $recent $path]
if {$i >= 0} {
_unset_recentrepo $path
set recent [lreplace $recent $i $i]
}

lappend recent $path
git config --global --add gui.recentrepo $path
load_config 1
set recent [get_config gui.recentrepo]

if {[set maxrecent [get_config gui.maxrecentrepo]] eq {}} {
set maxrecent 10
@ -275,7 +278,7 @@ proc _append_recentrepos {path} { @@ -275,7 +278,7 @@ proc _append_recentrepos {path} {

while {[llength $recent] > $maxrecent} {
_unset_recentrepo [lindex $recent 0]
set recent [lrange $recent 1 end]
set recent [get_config gui.recentrepo]
}
}


Loading…
Cancel
Save