git-gui: Allow users to run fsck-objects from the gui.

I recently found a need to run fsck-objects in a number of repositories
that I also use git-gui against.  Tossing in a menu option to invoke
fsck-objects and have its output show up in a console window is simple
enough to do.

We probably need to enhance the console window used by fsck-objects,
like to open up the Git fsck-objects manual page and let the user see
what each message means (such as "dangling commit") and to also let the
user invoke prune, to cleanup any such dangling objects.  But right now
I'm going to ignore that problem in favor of getting other more important
features implemented.

Signed-off-by: Shawn O. Pearce <spearce@spearce.org>

diff --git a/git-gui b/git-gui
index d5738baf109d16eab62e1966e6192a8b35c11a38..2aa82781e95fa742f4b6526f8e251d0e2f2f9ee8 100755 (executable)
--- a/git-gui
+++ b/git-gui
@@ -1954,6 +1954,15 @@ proc do_repack {} {
        console_exec $w $cmd
 }
 
+proc do_fsck_objects {} {
+       set w [new_console "verify" "Verifying the object database"]
+       set cmd [list git fsck-objects]
+       lappend cmd --full
+       lappend cmd --cache
+       lappend cmd --strict
+       console_exec $w $cmd
+}
+
 set is_quitting 0
 
 proc do_quit {} {
@@ -2610,6 +2619,10 @@ if {!$single_commit} {
                -command do_repack \
                -font font_ui
 
+       .mbar.project add command -label {Verify Database} \
+               -command do_fsck_objects \
+               -font font_ui
+
        if {$tcl_platform(platform) eq {windows}} {
                .mbar.project add command \
                        -label {Create Desktop Icon} \