diff options
author | Eric Wong <e@80x24.org> | 2017-02-21 23:05:46 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2017-02-21 23:05:46 +0000 |
commit | a49c12485985cce469c8b653ff7b76c85343b08d (patch) | |
tree | 706f7ff6b4eab086ee1212eff51155e92b331ec3 /lib/PublicInbox/RepoGitLog.pm | |
parent | 4af278501461f91844da1e2ffb82cf8571238d02 (diff) | |
download | public-inbox-a49c12485985cce469c8b653ff7b76c85343b08d.tar.gz |
Abbreviations can become ambiguous over time, and it seems other tools are fine with displaying unabbreviated hashes for commits. This should reduce workload for the search engines, too.
Diffstat (limited to 'lib/PublicInbox/RepoGitLog.pm')
-rw-r--r-- | lib/PublicInbox/RepoGitLog.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/PublicInbox/RepoGitLog.pm b/lib/PublicInbox/RepoGitLog.pm index 4e0997e0..38097ed3 100644 --- a/lib/PublicInbox/RepoGitLog.pm +++ b/lib/PublicInbox/RepoGitLog.pm @@ -10,16 +10,17 @@ use base qw(PublicInbox::RepoBase); use PublicInbox::RepoGit qw(git_dec_links git_commit_title); use PublicInbox::Qspawn; # cannot rely on --date=format-local:... yet, it is too new (September 2015) -use constant STATES => qw(h p D ai an s b); +use constant STATES => qw(H p D ai an s b); use constant STATE_BODY => (scalar(STATES) - 1); my $LOG_FMT = '--pretty=tformat:'. join('%n', map { "%$_" } STATES).'%x00'; sub parent_links { if (@_ == 1) { # typical, single-parent commit - qq( / parent <a\nhref="#p$_[0]">$_[0]</a>); + qq(\n parent <a\nhref="#p$_[0]">$_[0]</a>); } elsif (@_ > 0) { # merge commit - ' / parents ' . - join(' ', map { qq(<a\nhref="#p$_">$_</a>) } @_); + "\n parents " . + join("\n ", + map { qq(<a\nhref="#p$_">$_</a>) } @_); } else { ''; # root commit } @@ -30,7 +31,7 @@ sub flush_log_hdr ($$$) { my $lpfx = $req->{lpfx}; my $seen = $req->{seen}; $$dst .= '<hr /><pre>' if scalar keys %$seen; - my $id = $hdr->{h}; + my $id = $hdr->{H}; $seen->{$id} = 1; $$dst .= qq(<a\nid=p$id\n); $$dst .= qq(href="${lpfx}commit/$id"><b>); @@ -129,9 +130,8 @@ sub call_git_log { my $env = $req->{env}; my $git = $repo->{git}; my $tip = $req->{-repo}->tip; - my $cmd = $git->cmd(qw(log --no-notes --no-color --abbrev-commit), - $git->abbrev, $LOG_FMT, "-$max", - $tip, '--'); + my $cmd = $git->cmd(qw(log --no-notes --no-color --no-abbrev), + $LOG_FMT, "-$max", $tip, '--'); my $rdr = { 2 => $git->err_begin }; my $title = "log: $repo->{repo}"; if (defined $h) { |