Mercurial > hg
comparison contrib/hgk @ 24513:b5a0b2374eb6
hgk: display obsolete changesets in darkgrey
| author | Andrew Shadura <andrew@shadura.me> |
|---|---|
| date | Sat, 28 Mar 2015 20:05:01 +0100 |
| parents | e5c5ddc3b172 |
| children | d01c767d8753 |
comparison
equal
deleted
inserted
replaced
| 24512:e5c5ddc3b172 | 24513:b5a0b2374eb6 |
|---|---|
| 335 parsecommit $id $contents 0 {} | 335 parsecommit $id $contents 0 {} |
| 336 } | 336 } |
| 337 | 337 |
| 338 proc parsecommit {id contents listed olds} { | 338 proc parsecommit {id contents listed olds} { |
| 339 global commitinfo children nchildren parents nparents cdate ncleft | 339 global commitinfo children nchildren parents nparents cdate ncleft |
| 340 global firstparents | 340 global firstparents obsolete |
| 341 | 341 |
| 342 set inhdr 1 | 342 set inhdr 1 |
| 343 set comment {} | 343 set comment {} |
| 344 set headline {} | 344 set headline {} |
| 345 set auname {} | 345 set auname {} |
| 387 set rev [lindex $line 1] | 387 set rev [lindex $line 1] |
| 388 } elseif {$tag == "branch"} { | 388 } elseif {$tag == "branch"} { |
| 389 set branch [join [lrange $line 1 end]] | 389 set branch [join [lrange $line 1 end]] |
| 390 } elseif {$tag == "bookmark"} { | 390 } elseif {$tag == "bookmark"} { |
| 391 set bookmark [join [lrange $line 1 end]] | 391 set bookmark [join [lrange $line 1 end]] |
| 392 } elseif {$tag == "obsolete"} { | |
| 393 set obsolete($id) "" | |
| 392 } | 394 } |
| 393 } | 395 } |
| 394 } else { | 396 } else { |
| 395 if {$comment == {}} { | 397 if {$comment == {}} { |
| 396 set headline [string trim $line] | 398 set headline [string trim $line] |
| 1137 global colormap numcommits currentparents dupparents | 1139 global colormap numcommits currentparents dupparents |
| 1138 global idtags idline idheads idotherrefs idbookmarks | 1140 global idtags idline idheads idotherrefs idbookmarks |
| 1139 global lineno lthickness mainline mainlinearrow sidelines | 1141 global lineno lthickness mainline mainlinearrow sidelines |
| 1140 global commitlisted rowtextx idpos lastuse displist | 1142 global commitlisted rowtextx idpos lastuse displist |
| 1141 global oldnlines olddlevel olddisplist | 1143 global oldnlines olddlevel olddisplist |
| 1142 global aucolormap curid curidfont | 1144 global aucolormap curid curidfont obsolete |
| 1143 | 1145 |
| 1144 incr numcommits | 1146 incr numcommits |
| 1145 incr lineno | 1147 incr lineno |
| 1146 set id [lindex $displist $level] | 1148 set id [lindex $displist $level] |
| 1147 set lastuse($id) $lineno | 1149 set lastuse($id) $lineno |
| 1152 readcommit $id | 1154 readcommit $id |
| 1153 if {![info exists commitinfo($id)]} { | 1155 if {![info exists commitinfo($id)]} { |
| 1154 set commitinfo($id) {"No commit information available"} | 1156 set commitinfo($id) {"No commit information available"} |
| 1155 set nparents($id) 0 | 1157 set nparents($id) 0 |
| 1156 } | 1158 } |
| 1159 } | |
| 1160 if {[info exists obsolete($id)]} { | |
| 1161 set ofill darkgrey | |
| 1157 } | 1162 } |
| 1158 assigncolor $id | 1163 assigncolor $id |
| 1159 set currentparents {} | 1164 set currentparents {} |
| 1160 set dupparents {} | 1165 set dupparents {} |
| 1161 if {[info exists commitlisted($id)] && [info exists parents($id)]} { | 1166 if {[info exists commitlisted($id)] && [info exists parents($id)]} { |