lib/transport.tcl

   1 # git-gui transport (fetch/push) support
   2 # Copyright (C) 2006, 2007 Shawn Pearce
   3
   4 proc fetch_from {remote} {
   5         set w [console::new \
   6                 [mc "fetch %s" $remote] \
   7                 [mc "Fetching new changes from %s" $remote]]
   8         set cmds [list]
   9         lappend cmds [list exec git fetch $remote]
  10         if {[is_config_true gui.pruneduringfetch]} {
  11                 lappend cmds [list exec git remote prune $remote]
  12         }
  13         console::chain $w $cmds
  14 }
  15
  16 proc prune_from {remote} {
  17         set w [console::new \
  18                 [mc "remote prune %s" $remote] \
  19                 [mc "Pruning tracking branches deleted from %s" $remote]]
  20         console::exec $w [list git remote prune $remote]
  21 }
  22
  23 proc fetch_from_all {} {
  24         set w [console::new \
  25                 [mc "fetch all remotes"] \
  26                 [mc "Fetching new changes from all remotes"]]
  27
  28         set cmd [list git fetch --all]
  29         if {[is_config_true gui.pruneduringfetch]} {
  30                 lappend cmd --prune
  31         }
  32
  33         console::exec $w $cmd
  34 }
  35
  36 proc prune_from_all {} {
  37         global all_remotes
  38
  39         set w [console::new \
  40                 [mc "remote prune all remotes"] \
  41                 [mc "Pruning tracking branches deleted from all remotes"]]
  42
  43         set cmd [list git remote prune]
  44
  45         foreach r $all_remotes {
  46                 lappend cmd $r
  47         }
  48
  49         console::exec $w $cmd
  50 }
  51
  52 proc push_to {remote} {
  53         set w [console::new \
  54                 [mc "push %s" $remote] \
  55                 [mc "Pushing changes to %s" $remote]]
  56         set cmd [list git push]
  57         lappend cmd -v
  58         lappend cmd $remote
  59         console::exec $w $cmd
  60 }
  61
  62 proc start_push_anywhere_action {w} {
  63         global push_urltype push_remote push_url push_thin push_tags
  64         global push_force
  65         global repo_config
  66
  67         set is_mirror 0
  68         set r_url {}
  69         switch -- $push_urltype {
  70         remote {
  71                 set r_url $push_remote
  72                 catch {set is_mirror $repo_config(remote.$push_remote.mirror)}
  73         }
  74         url {set r_url $push_url}
  75         }
  76         if {$r_url eq {}} return
  77
  78         set cmd [list git push]
  79         lappend cmd -v
  80         if {$push_thin} {
  81                 lappend cmd --thin
  82         }
  83         if {$push_force} {
  84                 lappend cmd --force
  85         }
  86         if {$push_tags} {
  87                 lappend cmd --tags
  88         }
  89         lappend cmd $r_url
  90         if {$is_mirror} {
  91                 set cons [console::new \
  92                         [mc "push %s" $r_url] \
  93                         [mc "Mirroring to %s" $r_url]]
  94         } else {
  95                 set cnt 0
  96                 foreach i [$w.source.l curselection] {
  97                         set b [$w.source.l get $i]
  98                         lappend cmd "refs/heads/$b:refs/heads/$b"
  99                         incr cnt
 100                 }
 101                 if {$cnt == 0} {
 102                         return
 103                 } elseif {$cnt == 1} {
 104                         set unit branch
 105                 } else {
 106                         set unit branches
 107                 }
 108
 109                 set cons [console::new \
 110                         [mc "push %s" $r_url] \
 111                         [mc "Pushing %s %s to %s" $cnt $unit $r_url]]
 112         }
 113         console::exec $cons $cmd
 114         destroy $w
 115 }
 116
 117 trace add variable push_remote write \
 118         [list radio_selector push_urltype remote]
 119
 120 proc do_push_anywhere {} {
 121         global all_remotes current_branch
 122         global push_urltype push_remote push_url push_thin push_tags
 123         global push_force use_ttk NS
 124
 125         set w .push_setup
 126         toplevel $w
 127         wm withdraw $w
 128         wm geometry $w "+[winfo rootx .]+[winfo rooty .]"
 129         pave_toplevel $w
 130
 131         ${NS}::label $w.header -text [mc "Push Branches"] \
 132                 -font font_uibold -anchor center
 133         pack $w.header -side top -fill x
 134
 135         ${NS}::frame $w.buttons
 136         ${NS}::button $w.buttons.create -text [mc Push] \
 137                 -default active \
 138                 -command [list start_push_anywhere_action $w]
 139         pack $w.buttons.create -side right
 140         ${NS}::button $w.buttons.cancel -text [mc "Cancel"] \
 141                 -default normal \
 142                 -command [list destroy $w]
 143         pack $w.buttons.cancel -side right -padx 5
 144         pack $w.buttons -side bottom -fill x -pady 10 -padx 10
 145
 146         ${NS}::labelframe $w.source -text [mc "Source Branches"]
 147         slistbox $w.source.l \
 148                 -height 10 \
 149                 -width 70 \
 150                 -selectmode extended
 151         foreach h [load_all_heads] {
 152                 $w.source.l insert end $h
 153                 if {$h eq $current_branch} {
 154                         $w.source.l select set end
 155                         $w.source.l yview end
 156                 }
 157         }
 158         pack $w.source.l -side left -fill both -expand 1
 159         pack $w.source -fill both -expand 1 -pady 5 -padx 5
 160
 161         ${NS}::labelframe $w.dest -text [mc "Destination Repository"]
 162         if {$all_remotes ne {}} {
 163                 ${NS}::radiobutton $w.dest.remote_r \
 164                         -text [mc "Remote:"] \
 165                         -value remote \
 166                         -variable push_urltype
 167                 if {$use_ttk} {
 168                         ttk::combobox $w.dest.remote_m -state readonly \
 169                                 -exportselection false \
 170                                 -textvariable push_remote \
 171                                 -values $all_remotes
 172                 } else {
 173                         eval tk_optionMenu $w.dest.remote_m push_remote $all_remotes
 174                 }
 175                 grid $w.dest.remote_r $w.dest.remote_m -sticky w
 176                 if {[lsearch -sorted -exact $all_remotes origin] != -1} {
 177                         set push_remote origin
 178                 } else {
 179                         set push_remote [lindex $all_remotes 0]
 180                 }
 181                 set push_urltype remote
 182         } else {
 183                 set push_urltype url
 184         }
 185         ${NS}::radiobutton $w.dest.url_r \
 186                 -text [mc "Arbitrary Location:"] \
 187                 -value url \
 188                 -variable push_urltype
 189         ${NS}::entry $w.dest.url_t \
 190                 -width 50 \
 191                 -textvariable push_url \
 192                 -validate key \
 193                 -validatecommand {
 194                         if {%d == 1 && [regexp {\s} %S]} {return 0}
 195                         if {%d == 1 && [string length %S] > 0} {
 196                                 set push_urltype url
 197                         }
 198                         return 1
 199                 }
 200         grid $w.dest.url_r $w.dest.url_t -sticky we -padx {0 5}
 201         grid columnconfigure $w.dest 1 -weight 1
 202         pack $w.dest -anchor nw -fill x -pady 5 -padx 5
 203
 204         ${NS}::labelframe $w.options -text [mc "Transfer Options"]
 205         ${NS}::checkbutton $w.options.force \
 206                 -text [mc "Force overwrite existing branch (may discard changes)"] \
 207                 -variable push_force
 208         grid $w.options.force -columnspan 2 -sticky w
 209         ${NS}::checkbutton $w.options.thin \
 210                 -text [mc "Use thin pack (for slow network connections)"] \
 211                 -variable push_thin
 212         grid $w.options.thin -columnspan 2 -sticky w
 213         ${NS}::checkbutton $w.options.tags \
 214                 -text [mc "Include tags"] \
 215                 -variable push_tags
 216         grid $w.options.tags -columnspan 2 -sticky w
 217         grid columnconfigure $w.options 1 -weight 1
 218         pack $w.options -anchor nw -fill x -pady 5 -padx 5
 219
 220         set push_url {}
 221         set push_force 0
 222         set push_thin 0
 223         set push_tags 0
 224
 225         bind $w <Visibility> "grab $w; focus $w.buttons.create"
 226         bind $w <Key-Escape> "destroy $w"
 227         bind $w <Key-Return> [list start_push_anywhere_action $w]
 228         wm title $w [append "[appname] ([reponame]): " [mc "Push"]]
 229         wm deiconify $w
 230         tkwait window $w
 231 }