comparison contrib/hgk @ 7776:34ff1a1b5dd7

hgk: select first changeset at startup (issue1382)

7775:5280c39778b6

    parsecommit $id $contents 0 {}
}

proc parsecommit {id contents listed olds} {
    global commitinfo children nchildren parents nparents cdate ncleft

    set inhdr 1
    set comment {}
    set headline {}
    set auname {}

	set cdate($id) $comdate
	set comdate [clock format $comdate -format "%Y-%m-%d %H:%M:%S"]
    }
    set commitinfo($id) [list $headline $auname $audate \
			     $comname $comdate $comment $rev $branch]
}

proc readrefs {} {
    global tagids idtags headids idheads tagcontents env curid

7776:34ff1a1b5dd7

    parsecommit $id $contents 0 {}
}

proc parsecommit {id contents listed olds} {
    global commitinfo children nchildren parents nparents cdate ncleft
    global firstparents

    set inhdr 1
    set comment {}
    set headline {}
    set auname {}

	set cdate($id) $comdate
	set comdate [clock format $comdate -format "%Y-%m-%d %H:%M:%S"]
    }
    set commitinfo($id) [list $headline $auname $audate \
			     $comname $comdate $comment $rev $branch]

    if {[info exists firstparents]} {
        set i [lsearch $firstparents $id]
        if {$i != -1} {
            # remove the parent from firstparents, possible building
            # an empty list
            set firstparents [concat \
                                  [lrange $firstparents 0 [expr $i - 1]] \
                                  [lrange $firstparents [expr $i + 1] end]]
            if {$firstparents eq {}} {
                # we have found all parents of the first changeset
                # which means that we can safely select the first line
                after idle {
                    selectline 0 0
                }
            }
        }
    } else {
        # this is the first changeset, save the parents
        set firstparents $olds
        if {$firstparents eq {}} {
            # a repository with a single changeset
            after idle {
                selectline 0 0
            }
        }
    }
}

proc readrefs {} {
    global tagids idtags headids idheads tagcontents env curid