gitk: When a commit contains a note, mark it with a yellow box

It is desirable to see at a glance which commits do contain notes.
Therefore mark them with a yellow rectangle.

That can be suppressed with `gitk --no-notes`.

Signed-off-by: Raphael Zimmerer <killekulla@rdrz.de>
Signed-off-by: Paul Mackerras <paulus@samba.org>

diff --git a/gitk b/gitk
index 8e15572f0b64e20e316a5075b51e2408c077bb38..3689c175871ffdc692e721ab1a51888a39091f81 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -1671,8 +1671,9 @@ proc parsecommit {id contents listed} {
        }
        set comment $newcomment
     }
        }
        set comment $newcomment
     }

+    set hasnote [string first "\nNotes:\n" $contents]

     set commitinfo($id) [list $headline $auname $audate \
     set commitinfo($id) [list $headline $auname $audate \

-                            $comname $comdate $comment]
+                            $comname $comdate $comment $hasnote]

 }
 
 proc getcommit {id} {
 }
 
 proc getcommit {id} {


@@ -5896,6 +5897,9 @@ proc drawcmittext {id row col} {
        || [info exists idotherrefs($id)]} {
        set xt [drawtags $id $x $xt $y]
     }
        || [info exists idotherrefs($id)]} {
        set xt [drawtags $id $x $xt $y]
     }

+    if {[lindex $commitinfo($id) 6] > 0} {
+       set xt [drawnotesign $xt $y]
+    }

     set headline [lindex $commitinfo($id) 0]
     set name [lindex $commitinfo($id) 1]
     set date [lindex $commitinfo($id) 2]
     set headline [lindex $commitinfo($id) 0]
     set name [lindex $commitinfo($id) 1]
     set date [lindex $commitinfo($id) 2]


@@ -6342,6 +6346,17 @@ proc drawtags {id x xt y1} {
     return $xt
 }
 
     return $xt
 }
 

+proc drawnotesign {xt y} {
+    global linespc canv fgcolor
+
+    set orad [expr {$linespc / 3}]
+    set t [$canv create rectangle [expr {$xt - $orad}] [expr {$y - $orad}] \
+              [expr {$xt + $orad - 1}] [expr {$y + $orad - 1}] \
+              -fill yellow -outline $fgcolor -width 1 -tags circle]
+    set xt [expr {$xt + $orad * 3}]
+    return $xt
+}
+

 proc xcoord {i level ln} {
     global canvx0 xspc1 xspc2
 
 proc xcoord {i level ln} {
     global canvx0 xspc1 xspc2