2 # Copyright (C) 2006, 2007 Shawn Pearce
6 image create
photo ::blame::img_back_arrow -data {R0lGODlhGAAYAIUAAPwCBEzKXFTSZIz
+nGzmhGzqfGTidIT
+nEzGXHTqhGzmfGzifFzadETCVES
+VARWDFzWbHzyjAReDGTadFTOZDSyRDyyTCymPARaFGTedFzSbDy2TCyqRCyqPARaDAyCHES6VDy6VCyiPAR6HCSeNByWLARyFARiDARqFGTifARiFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAYABgAAAajQIBwSCwaj8ikcsk0BppJwRPqHEypQwHBis0WDAdEFyBIKBaMAKLBdjQeSkFBYTBAIvgEoS6JmhUTEwIUDQ4VFhcMGEhyCgoZExoUaxsWHB0THkgfAXUGAhoBDSAVFR0XBnCbDRmgog0hpSIiDJpJIyEQhBUcJCIlwA22SSYVogknEg8eD82qSigdDSknY0IqJQXPYxIl1dZCGNvWw
+Dm510GQQAh
/mhDcmVhdGVkIGJ5IEJNUFRvR0lGIFBybyB2ZXJzaW9uIDIuNQ0KqSBEZXZlbENvciAxOTk3LDE5OTguIEFsbCByaWdodHMgcmVzZXJ2ZWQuDQpodHRwOi8vd3d3LmRldmVsY29yLmNvbQA7
}
8 # Persistant data (survives loads)
10 field
history {}; # viewer history: {commit path}
11 field header
; # array commit,key -> header field
15 field w
; # top window in this viewer
16 field w_back
; # our back button
17 field w_path
; # label showing the current file path
18 field w_line
; # text column: all line numbers
19 field w_cgrp
; # text column: abbreviated commit SHA-1s
20 field w_file
; # text column: actual file data
21 field w_cmit
; # pane showing commit message
22 field status
; # text variable bound to status bar
23 field old_height
; # last known height of $w.file_pane
27 field active_color
#c0edc5
34 # Current blame data; cleared/reset on each load
36 field commit
; # input commit to blame
37 field path
; # input filename to view in $commit
39 field current_fd
{} ; # background process running
40 field highlight_line
-1 ; # current line selected
41 field highlight_commit
{} ; # sha1 of commit selected
43 field total_lines
0 ; # total length of file
44 field blame_lines
0 ; # number of lines computed
45 field have_commit
; # array commit -> 1
46 field line_commit
; # array line -> sha1 commit
47 field line_file
; # array line -> file name
49 field r_commit
; # commit currently being parsed
50 field r_orig_line
; # original line number
51 field r_final_line
; # final line number
52 field r_line_count
; # lines in this region
54 field tooltip_wm
{} ; # Current tooltip toplevel, if open
55 field tooltip_timer
{} ; # Current timer event for our tooltip
56 field tooltip_commit
{} ; # Commit in tooltip
57 field tooltip_text
{} ; # Text in current tooltip
59 constructor new
{i_commit i_path
} {
66 wm title
$top "[appname] ([reponame]): File Viewer"
68 frame $w.header
-background orange
69 label $w.header.commit_l
\
74 set w_back
$w.header.commit_b
76 -image ::blame::img_back_arrow \
81 -activebackground orange
82 bind $w_back <Button-1
> "
83 if {\[$w_back cget -state\] eq {normal}} {
87 label $w.header.commit
\
88 -textvariable @commit
\
92 label $w.header.path_l
\
97 set w_path
$w.header.path
102 pack $w.header.commit_l
-side left
103 pack $w_back -side left
104 pack $w.header.commit
-side left
105 pack $w_path -fill x
-side right
106 pack $w.header.path_l
-side right
108 panedwindow $w.file_pane
-orient vertical
109 frame $w.file_pane.out
110 frame $w.file_pane.cm
111 $w.file_pane add
$w.file_pane.out
\
116 $w.file_pane add
$w.file_pane.cm
\
122 set w_line
$w.file_pane.out.linenumber_t
125 -highlightthickness 0 \
127 -background white
-borderwidth 0 \
133 $w_line tag conf linenumber
-justify right
-rmargin 5
135 set w_cgrp
$w.file_pane.out.commit_t
138 -highlightthickness 0 \
140 -background white
-borderwidth 0 \
146 $w_cgrp tag conf curr_commit
147 $w_cgrp tag conf prior_commit
\
150 $w_cgrp tag
bind prior_commit
\
152 "[cb _load_commit @%x,%y];break"
154 set w_file
$w.file_pane.out.file_t
157 -highlightthickness 0 \
159 -background white
-borderwidth 0 \
164 -xscrollcommand [list $w.file_pane.out.sbx
set] \
167 scrollbar $w.file_pane.out.sbx
\
169 -command [list $w_file xview
]
170 scrollbar $w.file_pane.out.sby
\
172 -command [list scrollbar2many
[list \
181 $w.file_pane.out.sby
\
183 grid conf
$w.file_pane.out.sbx
-column 2 -sticky we
184 grid columnconfigure
$w.file_pane.out
2 -weight 1
185 grid rowconfigure
$w.file_pane.out
0 -weight 1
187 set w_cmit
$w.file_pane.cm.t
189 -background white
-borderwidth 0 \
194 -xscrollcommand [list $w.file_pane.cm.sbx
set] \
195 -yscrollcommand [list $w.file_pane.cm.sby
set] \
197 $w_cmit tag conf header_key
\
199 -background $active_color \
201 $w_cmit tag conf header_val
\
202 -background $active_color \
204 $w_cmit tag
raise sel
205 scrollbar $w.file_pane.cm.sbx
\
207 -command [list $w_cmit xview
]
208 scrollbar $w.file_pane.cm.sby
\
210 -command [list $w_cmit yview
]
211 pack $w.file_pane.cm.sby
-side right
-fill y
212 pack $w.file_pane.cm.sbx
-side bottom
-fill x
213 pack $w_cmit -expand 1 -fill both
219 -textvariable @status
\
222 pack $w.status.l
-side left
224 menu $w.ctxm
-tearoff 0
225 $w.ctxm add command
\
226 -label "Copy Commit" \
227 -command [cb _copycommit
]
233 $i conf
-cursor $cursor_ptr
234 $i conf
-yscrollcommand \
235 [list many2scrollbar
[list \
239 ] yview
$w.file_pane.out.sby
]
242 [cb _click $i @%x,%y]
245 bind $i <Any-Motion
> [cb _show_tooltip
$i @%x
,%y
]
246 bind $i <Any-Enter
> [cb _hide_tooltip
]
247 bind $i <Any-Leave
> [cb _hide_tooltip
]
253 tk_popup $w.ctxm %X %Y
262 bind $i <Key-Up
> {catch {%W yview scroll
-1 units
};break}
263 bind $i <Key-Down
> {catch {%W yview scroll
1 units
};break}
264 bind $i <Key-Left
> {catch {%W xview scroll
-1 units
};break}
265 bind $i <Key-Right
> {catch {%W xview scroll
1 units
};break}
266 bind $i <Key-k
> {catch {%W yview scroll
-1 units
};break}
267 bind $i <Key-j
> {catch {%W yview scroll
1 units
};break}
268 bind $i <Key-h
> {catch {%W xview scroll
-1 units
};break}
269 bind $i <Key-l
> {catch {%W xview scroll
1 units
};break}
270 bind $i <Control-Key-b
> {catch {%W yview scroll
-1 pages
};break}
271 bind $i <Control-Key-f
> {catch {%W yview scroll
1 pages
};break}
274 bind $w_cmit <Button-1
> [list focus $w_cmit]
275 bind $top <Visibility
> [list focus $top]
276 bind $w_file <Destroy
> [list delete_this
$this]
278 grid configure
$w.header
-sticky ew
279 grid configure
$w.file_pane
-sticky nsew
280 grid configure
$w.status
-sticky ew
281 grid columnconfigure
$top 0 -weight 1
282 grid rowconfigure
$top 0 -weight 0
283 grid rowconfigure
$top 1 -weight 1
284 grid rowconfigure
$top 2 -weight 0
286 set req_w
[winfo reqwidth
$top]
287 set req_h
[winfo reqheight
$top]
288 if {$req_w < 600} {set req_w
600}
289 if {$req_h < 400} {set req_h
400}
290 set g
"${req_w}x${req_h}"
294 set old_height
[winfo height
$w.file_pane
]
295 $w.file_pane sash
place 0 \
296 [lindex [$w.file_pane sash coord
0] 0] \
297 [expr {int
($old_height * 0.70)}]
298 bind $w.file_pane
<Configure
> \
299 "if {{$w.file_pane} eq {%W}} {[cb _resize %h]}"
307 if {$total_lines != 0 ||
$current_fd ne
{}} {
308 if {$current_fd ne
{}} {
309 catch {close $current_fd}
313 set highlight_line
-1
314 set highlight_commit
{}
317 array unset have_commit
318 array unset line_commit
319 array unset line_file
321 $w_cgrp conf
-state normal
322 $w_line conf
-state normal
323 $w_file conf
-state normal
325 $w_cgrp delete
0.0 end
326 $w_line delete
0.0 end
327 $w_file delete
0.0 end
329 $w_cgrp conf
-state disabled
330 $w_line conf
-state disabled
331 $w_file conf
-state disabled
334 if {[winfo exists
$w.status.c
]} {
335 $w.status.c coords bar
0 0 0 20
339 -height [expr {int
([winfo reqheight
$w.status.l
] * 0.6)}] \
343 $w.status.c create rectangle
0 0 0 20 -tags bar
-fill navy
344 pack $w.status.c
-side right
347 if {$history eq
{}} {
348 $w_back conf
-state disabled
350 $w_back conf
-state normal
352 lappend history [list $commit $path]
354 set status
"Loading $commit:[escape_path $path]..."
355 $w_path conf
-text [escape_path
$path]
357 set fd
[open $path r
]
359 set cmd
[list git cat-file blob
"$commit:$path"]
360 set fd
[open "| $cmd" r
]
362 fconfigure $fd -blocking 0 -translation lf
-encoding binary
363 fileevent $fd readable
[cb _read_file
$fd]
367 method _history_menu
{} {
369 if {[winfo exists
$m]} {
375 for {set i
[expr {[llength $history] - 2}]
376 } {$i >= 0} {incr i
-1} {
377 set e
[lindex $history $i]
381 if {[regexp {^
[0-9a-f
]{40}$} $c]} {
382 set t
[string range
$c 0 8]...
386 if {![catch {set summary
$header($c,summary
)}]} {
388 if {[string length
$t] > 70} {
389 set t
[string range
$t 0 66]...
393 $m add command
-label $t -command [cb _goback
$i $c $f]
395 set X
[winfo rootx
$w_back]
396 set Y
[expr {[winfo rooty
$w_back] + [winfo height
$w_back]}]
400 method _goback
{i c f
} {
401 set history [lrange $history 0 [expr {$i - 1}]]
407 method _read_file
{fd
} {
408 if {$fd ne
$current_fd} {
413 $w_cgrp conf
-state normal
414 $w_line conf
-state normal
415 $w_file conf
-state normal
416 while {[gets $fd line
] >= 0} {
417 regsub "\r\$" $line {} line
420 if {$total_lines > 1} {
421 $w_cgrp insert end
"\n"
422 $w_line insert end
"\n"
423 $w_file insert end
"\n"
426 $w_line insert end
"$total_lines" linenumber
427 $w_file insert end
"$line"
430 set ln_wc
[expr {[string length
$total_lines] + 2}]
431 if {[$w_line cget
-width] < $ln_wc} {
432 $w_line conf
-width $ln_wc
435 $w_cgrp conf
-state disabled
436 $w_line conf
-state disabled
437 $w_file conf
-state disabled
443 set cmd
{nice git blame
-M -C --incremental}
445 lappend cmd
--contents $path
450 set fd
[open "| $cmd" r
]
451 fconfigure $fd -blocking 0 -translation lf
-encoding binary
452 fileevent $fd readable
[cb _read_blame
$fd]
455 } ifdeleted
{ catch {close $fd} }
457 method _read_blame
{fd
} {
458 if {$fd ne
$current_fd} {
463 $w_cgrp conf
-state normal
464 while {[gets $fd line
] >= 0} {
465 if {[regexp {^
([a-z0-9
]{40}) (\d
+) (\d
+) (\d
+)$} $line line
\
466 cmit original_line final_line line_count
]} {
468 set r_orig_line
$original_line
469 set r_final_line
$final_line
470 set r_line_count
$line_count
472 if {[catch {set g
$have_commit($cmit)}]} {
473 set bg
[lindex $group_colors 0]
474 set group_colors
[lrange $group_colors 1 end
]
475 lappend group_colors
$bg
477 $w_cgrp tag conf g
$cmit -background $bg
478 $w_line tag conf g
$cmit -background $bg
479 $w_file tag conf g
$cmit -background $bg
481 set have_commit
($cmit) 1
483 } elseif
{[string match
{filename *} $line]} {
484 set file [string range
$line 9 end
]
486 set lno
$r_final_line
489 if {[regexp {^
0{40}$} $cmit]} {
491 set commit_type curr_commit
492 } elseif
{$cmit eq
$commit} {
494 set commit_type curr_commit
496 set commit_type prior_commit
497 set commit_abbr
[string range
$cmit 0 4]
502 catch {set a_name
$header($cmit,author
)}
503 while {$a_name ne
{}} {
504 if {![regexp {^
([[:upper
:]])} $a_name _a
]} break
505 append author_abbr
$_a
508 {^
[[:upper
:]][^
\s
]*\s
+} \
509 $a_name {} a_name
]} break
511 if {$author_abbr eq
{}} {
514 set author_abbr
[string range
$author_abbr 0 3]
515 while {[string length
$author_abbr] < 4} {
516 set author_abbr
" $author_abbr"
523 ![catch {set ncmit
$line_commit([expr {$first_lno - 1}])}]
524 && ![catch {set nfile
$line_file([expr {$first_lno - 1}])}]
532 set lno_e
"$lno.0 lineend + 1c"
533 if {![catch {set g g
$line_commit($lno)}]} {
534 $w_cgrp tag remove g
$g $lno.0 $lno_e
535 $w_line tag remove g
$g $lno.0 $lno_e
536 $w_file tag remove g
$g $lno.0 $lno_e
538 $w_cgrp tag remove a
$g $lno.0 $lno_e
539 $w_line tag remove a
$g $lno.0 $lno_e
540 $w_file tag remove a
$g $lno.0 $lno_e
543 set line_commit
($lno) $cmit
544 set line_file
($lno) $file
546 $w_cgrp delete
$lno.0 "$lno.0 lineend"
547 if {$lno == $first_lno} {
548 $w_cgrp insert
$lno.0 $commit_abbr $commit_type
549 } elseif
{$lno == [expr {$first_lno + 1}]} {
550 $w_cgrp insert
$lno.0 $author_abbr
552 $w_cgrp insert
$lno.0 { |
}
555 $w_cgrp tag add g
$cmit $lno.0 $lno_e
556 $w_line tag add g
$cmit $lno.0 $lno_e
557 $w_file tag add g
$cmit $lno.0 $lno_e
559 $w_cgrp tag add a
$cmit $lno.0 $lno_e
560 $w_line tag add a
$cmit $lno.0 $lno_e
561 $w_file tag add a
$cmit $lno.0 $lno_e
563 if {$highlight_line == -1} {
564 if {[lindex [$w_file yview
] 0] == 0} {
566 _showcommit
$this $lno
568 } elseif
{$highlight_line == $lno} {
569 _showcommit
$this $lno
578 ![catch {set ncmit
$line_commit($lno)}]
579 && ![catch {set nfile
$line_file($lno)}]
583 $w_cgrp delete
$lno.0 "$lno.0 lineend"
585 if {$lno == $first_lno} {
586 $w_cgrp insert
$lno.0 $commit_abbr $commit_type
587 } elseif
{$lno == [expr {$first_lno + 1}]} {
588 $w_cgrp insert
$lno.0 $author_abbr
590 $w_cgrp insert
$lno.0 { |
}
595 } elseif
{[regexp {^
([a-z-
]+) (.
*)$} $line line key data
]} {
596 set header
($r_commit,$key) $data
599 $w_cgrp conf
-state disabled
604 set status
{Annotation complete.
}
609 } ifdeleted
{ catch {close $fd} }
612 set have
$blame_lines
613 set total
$total_lines
615 if {$total} {set pdone
[expr {100 * $have / $total}]}
618 "Loading annotations... %i of %i lines annotated (%2i%%)" \
620 $w.status.c coords bar
0 0 $pdone 20
623 method _click
{cur_w pos
} {
624 set lno
[lindex [split [$cur_w index
$pos] .
] 0]
625 if {$lno eq
{}} return
626 _showcommit
$this $lno
629 method _load_commit
{pos
} {
630 set lno
[lindex [split [$w_cgrp index
$pos] .
] 0]
631 if {[catch {set cmit
$line_commit($lno)}]} return
632 if {[catch {set file $line_file($lno) }]} return
639 method _showcommit
{lno
} {
642 if {$highlight_commit ne
{}} {
643 set cmit
$highlight_commit
644 $w_cgrp tag conf a
$cmit -background {}
645 $w_line tag conf a
$cmit -background {}
646 $w_file tag conf a
$cmit -background {}
649 $w_cmit conf
-state normal
650 $w_cmit delete
0.0 end
651 if {[catch {set cmit
$line_commit($lno)}]} {
653 $w_cmit insert end
"Loading annotation..."
655 $w_cgrp tag conf a
$cmit -background $active_color
656 $w_line tag conf a
$cmit -background $active_color
657 $w_file tag conf a
$cmit -background $active_color
662 catch {set author_name
$header($cmit,author
)}
663 catch {set author_email
$header($cmit,author-mail
)}
664 catch {set author_time
[clock format \
665 $header($cmit,author-time
) \
666 -format {%Y-
%m-
%d
%H
:%M
:%S
}
669 set committer_name
{}
670 set committer_email
{}
671 set committer_time
{}
672 catch {set committer_name
$header($cmit,committer
)}
673 catch {set committer_email
$header($cmit,committer-mail
)}
674 catch {set committer_time
[clock format \
675 $header($cmit,committer-time
) \
676 -format {%Y-
%m-
%d
%H
:%M
:%S
}
679 if {[catch {set msg
$header($cmit,message)}]} {
682 set fd
[open "| git cat-file commit $cmit" r
]
683 fconfigure $fd -encoding binary -translation lf
684 if {[catch {set enc
$repo_config(i18n.commitencoding
)}]} {
687 while {[gets $fd line
] > 0} {
688 if {[string match
{encoding *} $line]} {
689 set enc
[string tolower
[string range
$line 9 end
]]
692 set msg
[encoding convertfrom
$enc [read $fd]]
693 set msg
[string trim
$msg]
696 set author_name
[encoding convertfrom
$enc $author_name]
697 set committer_name
[encoding convertfrom
$enc $committer_name]
699 set header
($cmit,author
) $author_name
700 set header
($cmit,committer
) $committer_name
702 set header
($cmit,message) $msg
705 $w_cmit insert end
"commit $cmit\n" header_key
706 $w_cmit insert end
"Author:\t" header_key
707 $w_cmit insert end
"$author_name $author_email" header_val
708 $w_cmit insert end
"$author_time\n" header_val
710 $w_cmit insert end
"Committer:\t" header_key
711 $w_cmit insert end
"$committer_name $committer_email" header_val
712 $w_cmit insert end
"$committer_time\n" header_val
714 if {$line_file($lno) ne
$path} {
715 $w_cmit insert end
"Original File:\t" header_key
716 $w_cmit insert end
"[escape_path $line_file($lno)]\n" header_val
719 $w_cmit insert end
"\n$msg"
721 $w_cmit conf
-state disabled
723 set highlight_line
$lno
724 set highlight_commit
$cmit
726 if {$highlight_commit eq
$tooltip_commit} {
731 method _copycommit
{} {
732 set pos
@$::cursorX,$::cursorY
733 set lno
[lindex [split [$::cursorW index
$pos] .
] 0]
734 if {![catch {set commit
$line_commit($lno)}]} {
743 method _show_tooltip
{cur_w pos
} {
744 set lno
[lindex [split [$cur_w index
$pos] .
] 0]
745 if {[catch {set cmit
$line_commit($lno)}]} {
750 if {$cmit eq
$highlight_commit} {
755 if {$cmit eq
$tooltip_commit} {
756 _position_tooltip
$this
757 } elseif
{$tooltip_wm ne
{}} {
758 _open_tooltip
$this $cur_w
759 } elseif
{$tooltip_timer eq
{}} {
760 set tooltip_timer
[after 1000 [cb _open_tooltip
$cur_w]]
764 method _open_tooltip
{cur_w
} {
766 set pos_x
[winfo pointerx
$cur_w]
767 set pos_y
[winfo pointery
$cur_w]
768 if {[winfo containing
$pos_x $pos_y] ne
$cur_w} {
773 set pos
@[join [list \
774 [expr {$pos_x - [winfo rootx
$cur_w]}] \
775 [expr {$pos_y - [winfo rooty
$cur_w]}]] ,]
776 set lno
[lindex [split [$cur_w index
$pos] .
] 0]
777 set cmit
$line_commit($lno)
782 catch {set author_name
$header($cmit,author
)}
783 catch {set author_email
$header($cmit,author-mail
)}
784 catch {set author_time
[clock format \
785 $header($cmit,author-time
) \
786 -format {%Y-
%m-
%d
%H
:%M
:%S
}
789 set committer_name
{}
790 set committer_email
{}
791 set committer_time
{}
792 catch {set committer_name
$header($cmit,committer
)}
793 catch {set committer_email
$header($cmit,committer-mail
)}
794 catch {set committer_time
[clock format \
795 $header($cmit,committer-time
) \
796 -format {%Y-
%m-
%d
%H
:%M
:%S
}
800 catch {set summary
$header($cmit,summary
)}
802 set tooltip_commit
$cmit
803 set tooltip_text
"commit $cmit
804 $author_name $author_email $author_time
807 set file $line_file($lno)
808 if {$file ne
$path} {
809 append tooltip_text
"
811 Original File: $file"
814 if {$tooltip_wm ne
"$cur_w.tooltip"} {
817 set tooltip_wm
[toplevel $cur_w.tooltip
-borderwidth 1]
818 wm overrideredirect
$tooltip_wm 1
819 wm transient
$tooltip_wm [winfo toplevel $cur_w]
820 pack [label $tooltip_wm.
label \
821 -background lightyellow
\
823 -textvariable @tooltip_text
\
826 _position_tooltip
$this
829 method _position_tooltip
{} {
830 set req_w
[winfo reqwidth
$tooltip_wm.
label]
831 set req_h
[winfo reqheight
$tooltip_wm.
label]
832 set pos_x
[expr {[winfo pointerx .
] + 5}]
833 set pos_y
[expr {[winfo pointery .
] + 10}]
835 set g
"${req_w}x${req_h}"
836 if {$pos_x >= 0} {append g
+}
838 if {$pos_y >= 0} {append g
+}
841 wm geometry
$tooltip_wm $g
845 method _hide_tooltip
{} {
846 if {$tooltip_wm ne
{}} {
849 set tooltip_commit
{}
851 if {$tooltip_timer ne
{}} {
852 after cancel
$tooltip_timer
857 method _resize
{new_height
} {
858 set diff
[expr {$new_height - $old_height}]
859 if {$diff == 0} return
861 set my
[expr {[winfo height
$w.file_pane
] - 25}]
862 set o
[$w.file_pane sash coord
0]
864 set oy
[expr {[lindex $o 1] + $diff}]
865 if {$oy < 0} {set oy
0}
866 if {$oy > $my} {set oy
$my}
867 $w.file_pane sash
place 0 $ox $oy
869 set old_height
$new_height